如何给Excel VBA代码添加循环以遍历第4至191行？

你完全不需要复制代码191次，用循环结构就能轻松实现批量处理，下面是优化后的代码，同时还做了稳定性和效率的提升：

Sub OverwriteMarkUp()
    Dim i As Integer
    Dim wsSource As Worksheet
    Dim wsTarget As Worksheet
    
    ' 关闭屏幕更新提升运行速度
    Application.ScreenUpdating = False
    ' 禁用事件触发（可选，避免不必要的干扰）
    Application.EnableEvents = False
    
    ' 指定数据源所在工作表，建议替换成实际表名比如Sheet1
    Set wsSource = ActiveSheet
    
    ' 遍历第4行到第191行
    For i = 4 To 191
        On Error Resume Next
        ' 获取目标工作表名称
        tempHTName = wsSource.Range("B" & i).Value
        ' 尝试获取目标工作表对象
        Set wsTarget = ActiveWorkbook.Sheets(tempHTName)
        On Error GoTo 0
        
        ' 如果找到目标工作表，执行赋值操作
        If Not wsTarget Is Nothing Then
            wsTarget.Visible = True
            ' 直接赋值替代复制粘贴，效率更高
            wsTarget.Range("P3").Value = wsSource.Range("AI" & i).Value
            wsTarget.Visible = False
            ' 释放对象引用
            Set wsTarget = Nothing
        End If
    Next i
    
    ' 清空指定区域内容
    wsSource.Range("Z4:Z191").ClearContents
    
    ' 恢复系统设置
    Application.ScreenUpdating = True
    Application.EnableEvents = True
    MsgBox "Done"
End Sub

关键优化点说明： #

• 循环遍历：用For i = 4 To 191遍历每一行，把原来固定的行号4换成变量i，自动处理所有目标行
• 避免Select/Activate：直接通过工作表对象（wsSource、wsTarget）引用单元格，不仅运行更快，还能避免因切换工作表导致的错误
• 直接赋值替代复制粘贴：wsTarget.Range("P3").Value = wsSource.Range("AI" & i).Value比复制粘贴更高效，尤其批量处理时差异明显
• 错误处理优化：仅在获取工作表时临时跳过错误，之后恢复默认错误处理，同时判断工作表是否存在，避免无效操作

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