VBA代码遇Runtime Error 424（需对象），求修复：复制列至其他表作表头

错误原因分析 #

你遇到的Runtime Error 424核心问题是代码里用了不存在的ActiveWorksheet对象——VBA中并没有这个对象，正确的活动工作表引用是ActiveSheet。但更关键的是，在循环遍历工作表时，你应该直接使用当前循环的ws对象，而不是依赖活动工作表，否则不仅会触发对象缺失错误，还可能误操作到其他工作表。

另外你的代码还有两处不符合需求的细节：

• PasteSpecial语句不完整，没有指定转置参数来实现“转置粘贴”的需求
• 原代码逻辑是往工作表的最后一行下方追加数据，但你的需求是设置表头行，应该粘贴到工作表的起始位置（比如A1单元格）

修复后的完整代码（推荐高效写法） #

我改用了直接赋值的方式替代复制粘贴，这种方法比剪贴板操作更快更稳定，还能避免剪贴板干扰：

Sub Test()
    Dim ws As Worksheet
    ' 先把要复制的表头数据存入变量，减少重复访问工作表的次数
    Dim headerData As Variant
    headerData = ThisWorkbook.Worksheets("Generate").Range("B2:B42").Value
    
    For Each ws In ThisWorkbook.Worksheets
        If ws.Name <> "Generate" Then
            ' 转置数据并写入表头行（从A1开始的区域）
            ws.Range("A1").Resize(1, UBound(headerData)).Value = Application.Transpose(headerData)
        End If
    Next ws
End Sub

如果你坚持用复制粘贴的写法 #

以下是修正了对象错误和转置参数的版本：

Sub TestWithCopyPaste()
    Dim ws As Worksheet
    Dim sourceRange As Range
    
    ' 提前定义要复制的区域，提升代码可读性
    Set sourceRange = ThisWorkbook.Worksheets("Generate").Range("B2:B42")
    
    For Each ws In ThisWorkbook.Worksheets
        If ws.Name <> "Generate" Then
            sourceRange.Copy
            ' 粘贴到A1单元格，同时启用转置
            ws.Range("A1").PasteSpecial Paste:=xlPasteAll, Transpose:=True
            Application.CutCopyMode = False ' 清除剪贴板状态，避免后续误操作
        End If
    Next ws
End Sub

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