顺序复制粘贴值到参考单元格的VBA Macro实现方法求助

以下是满足需求的完整可运行代码，直接替换你原有宏里的遍历部分即可：

Sub 批量处理表单()
    Dim wsResults As Worksheet
    Dim colIndex As Long
    
    ' 绑定results工作表
    Set wsResults = ThisWorkbook.Sheets("results")
    ' 起始列为C列，对应列号3
    colIndex = 3
    
    Do
        ' 读取目标单元格值，为空则终止循环
        If IsEmpty(wsResults.Cells(3, colIndex)) Then Exit Do
        
        ' 赋值给当前工作表A2
        ActiveSheet.Range("A2") = wsResults.Cells(3, colIndex).Value
        
        ' --------------------------
        ' 此处写入你已经写好的其余预设脚本，或者直接调用已有的宏
        ' 示例：Call 你原来的生成表单的宏名
        ' --------------------------
        
        ' 列索引+1，处理下一个单元格
        colIndex = colIndex + 1
    Loop
End Sub

注意事项 #

• 如果你的预设逻辑已经是独立的宏，直接取消注释上面的Call语句，替换成你自己的宏名即可，无需重复拷贝逻辑
• 如果赋值的目标表固定不是当前激活表，可以把ActiveSheet替换成ThisWorkbook.Sheets("你的目标表名")，避免切表后运行出错
• 若results表第3行存在中间空单元格但后续还有需要处理的值，可以调整退出判断逻辑，比如增加连续空值计数阈值，避免提前终止循环
• 运行宏前建议先保存原文件，避免意外错误导致数据丢失

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