Question

我是VBA的新手，可以使用自动填充/填充功能大大提供一些帮助。

我正在设置一个宏，将Vlookup公式合并到新工作表的第一个空列的单元格中。

这适用于第一个单元格，但我无法使用自动填充/填充功能将公式复制到电子表格中的所有单元格（或至少到第450行），因为我不知道如何这样做而不定义范围。我无法定义范围，因为它每次都会变化..

ActiveSheet.Range("IV1").End(xlToLeft).Offset(, 1).Formula = "=VLOOKUP(B2,Plate.xlsm!$R$3:$S$10,2,FALSE)"

请帮忙！

Answer 1

这应该做你想要的。它会找到第2行中的第一个空白列，在那里插入公式，然后使用列B将其复制到最后一行以检查最后使用的行（因为那是VLookUp正在查看的列：< / p>

Sub TesterIt()

  Dim LastRow As Long, StartCell As Range

  Set StartCell = ActiveSheet.Cells(2, Columns.Count).End(xlToLeft).Offset(0, 1)
  StartCell.Formula = "=VLOOKUP(B2,Plate.xlsm!$R$3:$S$10,2,FALSE)"
  LastRow = Range("B" & Rows.Count).End(xlUp).Row
  Range(StartCell, Cells(LastRow, StartCell.Column)).FillDown

End Sub

Answer 2

或者你可以直接这样做：

With ActiveSheet
    Dim FirstEmpCol As Long, LastRow As Long
    FirstEmpCol = .Cells(1, .Columns.Count).End(xlToLeft).Offset(0, 1).Column
    LastRow = .Cells(.Rows.Count, "B").End(xlUp).Row
    .Range(.Cells(2, FirstEmpCol), .Cells(LastRow, FirstEmpCol).Formula = _
        "=VLOOKUP(B2,Plate.xlsm!$R$3:$S$10,2,FALSE)"    
End With

具有更改范围的自动填充/填充公式

2 个答案: