Excel实现千次重复操作的Do-loop循环技术需求问询

手动重复1000次这种操作太折磨人了！用VBA的Do-Loop或者For循环就能轻松搞定，下面给你两种实用的方案：

方案1：Do-Loop循环（匹配你的需求） #

这个循环会从第1行逐步执行到第1000行，完全复刻你手动操作的逻辑：

Sub ProcessRowsWithDoLoop()
    Dim currentRow As Integer
    currentRow = 1 ' 起始行
    
    Do While currentRow <= 1000
        ' 复制A列当前行内容到B列对应行
        Range("A" & currentRow).Copy Destination:=Range("B" & currentRow)
        
        ' 把C列当前行的计算值（仅值，不含公式）复制到D列对应行
        Range("C" & currentRow).Copy
        Range("D" & currentRow).PasteSpecial Paste:=xlPasteValues
        
        currentRow = currentRow + 1 ' 推进到下一行
    Loop
    
    Application.CutCopyMode = False ' 清理剪贴板，避免残留选中状态
End Sub

方案2：For循环（更简洁高效） #

如果追求代码简洁和执行效率，For循环是更好的选择，而且直接赋值不需要用到剪贴板：

Sub ProcessRowsWithForLoop()
    Dim i As Integer
    
    For i = 1 To 1000
        ' 复制A到B
        Range("A" & i).Copy Range("B" & i)
        ' 直接将C列的计算值赋值给D列（比粘贴更高效）
        Range("D" & i).Value = Range("C" & i).Value
    Next i
End Sub

使用步骤： #

• 打开你的Excel文件，按下Alt + F11打开VBA编辑器
• 在左侧的项目窗口里，右键点击你的工作簿 → 插入 → 模块
• 把上面任意一段代码粘贴到模块窗口中
• 按下F5运行宏，或者回到Excel界面通过「开发工具」→「宏」来执行

两种方案都能帮你自动完成1000行的操作，完全不需要手动重复。如果你的C列公式是依赖B列内容的，不用担心——每次复制A到B后，Excel会自动计算C列的最新值，然后我们再把这个值存入D列，逻辑和你手动操作完全一致。

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