excel - Excel宏 - 拉单元格功能直到表格结束

Question

我将用一个例子来说明我的问题：

我有很多表，它们的行数不同。我想将函数下拉到表格末尾。

例如：

A        B
1        =1*2   // <- this is the function that I want to pull
2
3
4

输出应该是：

A        B
1        =1*2
2        =2*2
3        =3*2
4        =4*2

重要的是，拉长由 A 列的最后一个单元格确定（在本例中为 4）

另请注意，该功能也可能会更改，这应该适用于任何功能。

谢谢，

多伦

Answer 1

这是一个宏的示例，它将自动将单元格中的值填充B1到其左侧列的末尾（在本例中为 column A）。

Sub AutoFill()
    Dim FillFrom As Range
    Set FillFrom = ActiveSheet.Range("B1")

    FillFrom.AutoFill Destination:=Range(FillFrom.Address, FillFrom.Offset(0, -1).End(xlDown).Offset(0, 1).Address)
End Sub

Answer 2

尝试这个：

Public Sub DoWhatIWantYouToDo()
    Dim lr As Integer, i As Integer
    lr = Sheets("Sheet1").UsedRange.Rows.Count
    For i = 2 To lr
        Sheets("Sheet1").Range("B" & i).Formula = "=" & " A" & i & "*2"
    Next
End Sub