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自动填充到其左侧列的末尾（在本例中为列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

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

2 个答案: