Vba 在选定的单元格上运行宏

我编写了下面的宏来帮助我进行VLOOKUP重复动作。 它可以工作，但我无法同时在多个单元格上运行它

我想在宏的开头有一段代码要写

非常感谢您的帮助；-）

---

您应该避免使用

。按照@Makah的建议选择/ActiveCell

等。

如果您想要使用的公式是say

=VLOOKUP（$C1，BO！D:XFA，N，FALSE）

其中

N

是公式中的列号（基于您上面的代码），并且您想要将其从say

D1

中放入，那么使用这样一个简单的循环

Sub Sample()
    Dim ws As Worksheet
    Dim n As Long, col As Long

    '~~> Change this to the relevant sheet
    Set ws = ThisWorkbook.Sheets("Sheet1")

    col = 4 '<~~ For COl D

    With ws
        For n = 1 To 8
            .Cells(1, col).Formula = "=VLOOKUP($C1,BO!D:XFA," & n & ",FALSE)"
            col = col + 1
        Next n
    End With
End Sub

子样本（）
将ws设置为工作表
暗n一样长，col一样长
“~~>将其更改为相关的工作表
设置ws=ThisWorkbook.Sheets（“Sheet1”）
col=4'
ActiveCell
字面意思是活动单元格。你想做什么，什么不起作用？@mehow但他正在使用
ActiveCell.Offset（0，1）更改单元格。选择
。这不是一个好的代码，但是…..除了在每次可以（i）录制宏（ii）在单元格中编写代码（iii）复制粘贴或自动填充时编写vlookup外，您还可以（i）录制宏（ii）复制粘贴或自动填充代码。嗨，Siddhart，非常感谢您的帮助。我在使用时遇到了一个错误91：事实上，我在同一工作簿中有两张工作表，它们有一个共同的列，我正在尝试自动合并数据。非常感谢
code
Sub Croisement_ZANOX_BO_2（）Dim ws As Worksheet Dim n As Long，col As Long'~>将其更改为相关的工作表集ws=test.Sheets（“ZANOX”）col=4'Hi Siddhart，非常感谢您的帮助！
Sub Sample()
    Dim ws As Worksheet
    Dim n As Long, col As Long

    '~~> Change this to the relevant sheet
    Set ws = ThisWorkbook.Sheets("Sheet1")

    col = 4 '<~~ For COl D

    With ws
        For n = 1 To 8
            .Cells(1, col).Formula = "=VLOOKUP($C1,BO!D:XFA," & n & ",FALSE)"
            col = col + 1
        Next n
    End With
End Sub