如何为Excel/VBA脚本添加循环以处理Sheet1可变数据集至最后一行？

需求回顾 #

• 遍历Sheet1的每一行数据，将该行K列值复制到Sheet2的I5，W列值复制到Sheet2的I3
• 等待Sheet2的I6（依赖I5、I3计算，需1-2秒外部数据拉取）计算完成后，把结果粘贴回Sheet1对应行的X列
• 循环执行直至Sheet1没有数据行

优化后的完整代码 #

Sub Gspread()
    Dim ws1 As Worksheet, ws2 As Worksheet
    Dim lastRow As Long, i As Long
    
    ' 绑定工作表对象，避免频繁切换选择操作
    Set ws1 = ThisWorkbook.Sheets("Sheet1")
    Set ws2 = ThisWorkbook.Sheets("Sheet2")
    
    ' 获取Sheet1中K列最后一行数据的行号（自动适配可变数据范围）
    lastRow = ws1.Cells(ws1.Rows.Count, "K").End(xlUp).Row
    
    ' 从第2行开始循环（假设第1行是表头，若表头不在第1行可修改起始行）
    For i = 2 To lastRow
        ' 写入Sheet2对应单元格
        ws2.Range("I5").Value = ws1.Cells(i, "K").Value
        ws2.Range("I3").Value = ws1.Cells(i, "W").Value
        
        ' 等待2秒确保外部数据拉取完成，可根据实际情况调整等待时长
        Application.Wait Now + TimeValue("00:00:02")
        
        ' 将计算结果写回Sheet1对应行的X列
        ws1.Cells(i, "X").Value = ws2.Range("I6").Value
    Next i
End Sub

关键改进点 #

• 替换录制脚本里的Select/ActiveCell操作，直接用工作表对象操作单元格，代码更稳定、运行更快
• 自动获取数据最后一行，无需手动指定范围，适配可变数据量
• 用For...Next循环实现批量遍历，完成重复操作
• 添加等待逻辑，确保外部数据拉取完成后再读取计算结果

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