如何编写可遍历工作表所有行的VBA代码，实现源表数据到目标表指定单元格的自动复制粘贴？

当然可以！这种应对行数不固定的动态处理需求，在VBA里是很容易实现的。核心思路就是先找到数据的最后一行，然后通过循环逐行处理，彻底摆脱固定行代码的重复修改。

这里给你一段通用的实现代码，你可以根据自己的实际工作表和单元格对应关系调整：

Sub CopyDynamicProductData()
    Dim sourceSheet As Worksheet
    Dim targetSheet As Worksheet
    Dim lastDataRow As Long
    Dim currentRow As Long
    
    ' 替换成你的源工作表和目标工作表名称
    Set sourceSheet = ThisWorkbook.Worksheets("产品列表")
    Set targetSheet = ThisWorkbook.Worksheets("数据汇总")
    
    ' 自动获取源数据的最后一行（假设产品数据从A列开始，第1行是表头）
    lastDataRow = sourceSheet.Cells(sourceSheet.Rows.Count, "A").End(xlUp).Row
    
    ' 从第2行开始循环（跳过表头），遍历每一行产品数据
    For currentRow = 2 To lastDataRow
        ' 这里替换成你原来固定行代码里的复制粘贴逻辑
        ' 示例：把源行的A列（产品名称）复制到目标行的C列
        targetSheet.Cells(currentRow, "C").Value = sourceSheet.Cells(currentRow, "A").Value
        ' 继续添加其他需要复制的字段，比如：
        targetSheet.Cells(currentRow, "D").Value = sourceSheet.Cells(currentRow, "B").Value ' 产品编号
        targetSheet.Cells(currentRow, "E").Value = sourceSheet.Cells(currentRow, "D").Value ' 产品价格
        
        ' 如果需要复制格式/公式，用Copy方法代替直接赋值：
        ' sourceSheet.Cells(currentRow, "F").Copy targetSheet.Cells(currentRow, "F")
    Next currentRow
    
    MsgBox "所有产品数据已同步完成！", vbExclamation
End Sub

关键细节说明： #

1. 自动获取最后一行：lastDataRow = sourceSheet.Cells(sourceSheet.Rows.Count, "A").End(xlUp).Row 这行代码会从A列的最底部往上找第一个非空单元格，精准定位到最后一行数据，不管新增多少行都能自动识别。
2. 循环遍历：For currentRow = 2 To lastDataRow 跳过表头行（如果你的表头不在第1行，改起始数字即可），逐行处理每一条产品数据。
3. 高效复制：直接用.Value赋值比传统的Copy/Paste更快，而且不会占用剪贴板；如果需要复制格式、公式或者批注，再换成Copy方法即可。
4. 灵活调整：你只需要修改工作表名称、列的对应关系，就能适配自己的业务场景。比如如果目标数据是从第10行开始，那把targetSheet.Cells(currentRow, "C")改成targetSheet.Cells(9 + currentRow, "C")就行。

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