vba - 插入公式范围

Question

我正在尝试将公式插入到 A 列的最后使用的行中，并让公式自动填充到 B 列的最后使用的行。

该代码有效 - 但它也会覆盖 B 列和 C 列中的数据并将公式插入其中。

这是我的代码：

With ThisWorkbook
    With .Sheets("Raw Data")
        Set rngA = .Range(.Cells(.Rows.Count, "A").End(xlUp), .Cells(.Rows.Count, "B").End(xlUp).Offset(0, 1))
            rngA.Value = ThisWorkbook.Sheets("Instructions").Range("D9").Value
    End With
End With

谁能帮我查明是哪部分代码导致了问题以及如何解决？

Answer 1

尝试以下操作，看看是否适合您：

Dim lrA as Long, lrB as Long

With ThisWorkbook.Worksheets("Raw Data")
    lrA = .Cells(.Rows.Count, "A").End(xlUp).Row
    lrB = .Cells(.Rows.Count, "B").End(xlUp).Row
    .Range(.Cells(lrA+1,1),.Cells(lrB,1)).Formula = ThisWorkbook.Sheets("Instructions").Range("D9").Formula
End With

您可能希望将A1更改为包含公式的第一个单元格。