VBA循环调用子过程复制数据触发Runtime Error 424，求解决方案

首先，咱们来拆解一下你遇到的Runtime Error 424 "Object Required"错误的核心原因：

• 工作表对象引用混乱：你在Newsheet过程里新建了一个工作表，但循环里直接用Sheet2作为目标表引用。如果你的工作簿原本没有Sheet2，或者新建的工作表默认命名是Sheet3/Sheet4这类（而非Sheet2），VBA就找不到这个指定的对象，直接触发错误。
• 未明确指定工作表的范围：Numrows = Range("A1", Range("A1").End(xlDown)).Rows.Count这段代码没有限定工作表，默认会使用当前激活的工作表——如果运行时激活的不是Sheet1，不仅行数计算会错，还会引用到错误的单元格范围。
• 冗余的Select操作：VBA里尽量避免用Select/Activate，这类操作很容易因为工作表切换导致引用逻辑混乱，完全可以直接通过对象引用完成操作。

修正后的完整代码 #

Sub CopyValues(rngSource As Range, rngTarget As Range)
    ' 先判断源范围是否有效，避免空范围复制出错
    If Not rngSource Is Nothing And rngSource.Cells.Count > 0 Then
        rngTarget.Resize(rngSource.Rows.Count, rngSource.Columns.Count).Value = rngSource.Value
    End If
End Sub

Sub Newsheet()
    Dim sourceWS As Worksheet
    Dim targetWS As Worksheet
    Dim numRows As Long
    Dim rowCount As Long
    Dim iRow As Long
    
    ' 明确指定源工作表为Sheet1，避免激活状态影响
    Set sourceWS = ThisWorkbook.Worksheets("Sheet1")
    ' 新建工作表并直接赋值给变量，后续所有引用都用这个变量
    Set targetWS = ThisWorkbook.Worksheets.Add(After:=ActiveSheet)
    
    ' 准确计算Sheet1中A列的有效数据行数（兼容中间有空行的情况）
    numRows = sourceWS.Cells(sourceWS.Rows.Count, "A").End(xlUp).Row
    
    iRow = 1
    For rowCount = 1 To numRows
        ' 通过明确的工作表变量引用范围，彻底避免对象找不到的问题
        Call CopyValues(sourceWS.Range("A" & rowCount, "G" & rowCount), targetWS.Range("A" & iRow))
        Call CopyValues(sourceWS.Range("H" & rowCount, "AF" & rowCount), targetWS.Range("A" & iRow + 1))
        Call CopyValues(sourceWS.Range("AG" & rowCount, "BL" & rowCount), targetWS.Range("A" & iRow + 2))
        iRow = iRow + 3
    Next rowCount
End Sub

关键修改点说明 #

1. 用变量锁定工作表对象：把Sheet1和新建的工作表分别赋值给sourceWS和targetWS变量，后续所有范围引用都明确指向这两个表，再也不会出现对象找不到的问题。
2. 精准计算有效行数：改用sourceWS.Cells(sourceWS.Rows.Count, "A").End(xlUp).Row计算A列最后一行，哪怕中间有空行，也能准确获取实际有数据的行数。
3. 添加空范围校验：在CopyValues里增加判断，防止源范围为空时触发不必要的错误。
4. 移除冗余的Select操作：直接通过工作表变量引用单元格，避免激活/选择操作带来的逻辑混乱。

这样修改后，不管循环多少次都能稳定运行，而且全程不需要依赖剪贴板，直接通过值赋值的方式复制数据，效率也更高。

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