Excel VBA Vlookup 问题

Question

我是 Excel VBA 的初学者。

以下是我编写的代码，它应该遍历工作表中的列，通过引用左侧的列值填充值并引用同一工作簿中的另一个工作表来查找正确的对应值应该是什么.

我使用了While 循环，因此我可以将此VLOOKUP 宏应用于列中的每个单元格（只有查找值会发生变化，这应该是表示左侧列的变量）：

Dim result As String
Dim sheet As Worksheet
Dim rownum As Integer
Dim iterator As Integer
Dim lookup_value As String
Dim vlookupString1 As String

Set sheet = ActiveWorkbook.Sheets("datasheet")
rownum = sheet.Range("A1").End(xlDown).Row
Set iterator = 3

While iterator < rownum

lookup = "M" & iterator
vlookup1String = "=VLOOKUP(" & lookup & ",'GICS Sub-industry codes'!$A$2:$B$155,2,FALSE)"
With ActiveSheet.Cells
       Range("N" & iterator).Select
       Selection.Value = vlookup1String
End With
iterator = iterator + 1

End While

我在说“预期 if 或 select 或 sub...”时收到错误 @end

1) 我是否犯了语法错误？
2）我的方法是否正确。我只在另一个地方观察到这种在vba 中设计VLOOKUPS 的字符串方法。它似乎最合适。

Answer 1

修复代码
您应该在循环中使用 Wend 而不是 End While。

更清洁的替代品
但是您可以一次填充整个范围，如下所示

1. 最好使用 End(xlup) 从底部“循环”一个范围，而不是使用 End(xlDown) 向下查看（不依赖空格）
2. 您几乎不需要在 VBA 中使用 Select

进一步说明

1. rng1 设置工作范围从工作表 datasheet 中 A 列中最后使用的单元格到 A3
2. rng1.Offset(0, Range("N1").Column - 1) 表示将 rng1（即 A 列）偏移 13 列以使用 N 列（即 OFFSET A 乘 14-1）进行公式插入
3. 我使用宏记录器在 N 列中获取了此部分所需的代码"=VLOOKUP(RC[-1],'GICS Sub-industry codes'!R2C1:R155C2,2,FALSE)"。
4. IN R1C1 说，RC[-1] 表示引用同一行中的单元格，但左侧一列。所以在N3 中，公式将以=VLOOKUP(M4..) 开头，所以在N30 中，公式将以`=VLOOKUP(M30..) 等开头

建议代码

Sub QuickFill()
Dim ws As Worksheet
Dim rng1 As Range
Set ws = Sheets("datasheet")
Set rng1 = ws.Range(ws.[a3], ws.Cells(Rows.Count, "A").End(xlUp))
rng1.Offset(0, Range("N1").Column - 1).FormulaR1C1 = "=VLOOKUP(RC[-1],'GICS Sub-industry codes'!R2C1:R155C2,2,FALSE)"
End Sub