Excel VBA 自動填充不填充第一行和第一列

Question

我需要將公式從一個單元格復制到一組單元格中。 我試過使用自動填充，它在一定程度上起作用，但它不會填充第一行或第一列。

我在 C4 中的公式應該復制到整個塊 C4:X12。 （在現實生活中它是和積。）

Sub GetUniqueLocationsTEST()
    Dim LastRow As Long
    Dim LastCol As Long

    With thisWorkbook.Worksheets("sheet2")
        LastRow = .Cells(.Rows.Count, "B").End(xlUp).row
        LastCol = .Cells(3, .Columns.Count).End(xlToLeft).Column
        .Range("C4").formula = "=1+1"
        .Range("C4").AutoFill Destination:=.Range("C4:X12") ', .Cells(LastRow, LastCol))
    End With
End Sub

結果 C4 顯示“2”，范圍 D5:X12 正確顯示“2”。 但是 D4:X4 和 C5:C12 是空白的 - 那里沒有復制任何內容！ 如果我將其他隨機文本放入這些單元格中，它在 Sub 運行后仍然存在。

在示例代碼中，您會看到我什至將目標范圍強制為文字。

也許自動填充不是正確的方法？ 我應該使用復制嗎？ 或者是其他東西？

Answer 1

您可能不需要AutoFill 。 您可以一次性將公式寫入整個范圍，如果需要，Excel 將更新相關引用：

.Range("C4", .Cells(LastRow, LastCol)).Formula = your formula