Excel VBA宏：如何将VLookup公式动态AutoFill至所有有效行？

原代码的核心问题是硬编码了固定行号1525，无法适配不同行数的工作表。要实现动态填充，关键是自动获取数据的最后一行行号，再以此构建填充范围，具体修改方案如下：

修改后的代码 #

Dim lastRow As Long
' 以查找值所在的O列为基准，获取数据最后一行的行号
lastRow = Cells(Rows.Count, "O").End(xlUp).Row

' 在E2单元格写入VLookup公式（直接用单元格公式而非WorksheetFunction，避免匹配失败时宏报错）
Range("E2").Formula = "=VLOOKUP(O2,CD!B:H,7,FALSE)"
' 自动填充公式至最后一行数据
Range("E2:E" & lastRow).FillDown

关键修改点说明 #

• 动态获取最后一行：Cells(Rows.Count, "O").End(xlUp).Row会从O列的最后一行向上查找，定位到最后一个有数据的单元格，以此得到准确的行号，完全适配不同用户的工作表行数。如果你的数据最后一行基准列不是O列，只需把代码中的"O"替换为对应列标（比如A列就写"A"）。
• 替换WorksheetFunction为单元格公式：原代码用Application.WorksheetFunction.VLookup会在匹配不到值时直接触发宏报错，改用单元格公式=VLOOKUP(...)会显示Excel标准的#N/A提示，更符合用户使用习惯。
• 避免Select/ActiveCell：VBA中尽量减少使用Select和ActiveCell，这类操作不仅效率低，还容易因用户操作干扰导致错误，直接定位单元格操作更稳定可靠。

内容的提问来源于stack exchange，提问作者PhaseOn