VBA剪贴板粘贴宏故障：内容集中单单元格且报错1004求助

问题根源 #

原代码存在两处关键错误：

1. 先用MSForms.DataObject.GetText将剪贴板内容转为纯文本，丢失了网页表格自带的列/行分隔结构，导致内容全部挤入单个单元格。
2. 先执行Range("A3").Value = SText把纯文本写入单元格，后续调用PasteSpecial时，剪贴板内容状态被干扰，触发“错误1004”。

修正后的宏代码 #

Sub COLAR()
    ' 清除目标区域旧内容
    Worksheets("FORMULAS").Range("A3:M90").ClearContents
    
    ' 定位到目标起始位置并粘贴剪贴板的结构化表格内容（仅保留值）
    With ThisWorkbook.Sheets("FORMULAS")
        .Activate
        .Range("A3").Select
        .PasteSpecial xlPasteValues
    End With
    
    ' 跳转至指定工作表
    Application.Goto Reference:=Worksheets("CC").Range("A1"), Scroll:=True
End Sub

修正说明 #

• 移除MSForms.DataObject相关逻辑：网页复制的表格在剪贴板中以结构化格式存储，直接粘贴即可保留列分行匹配的结构，无需转成纯文本。
• 删除Range("A3").Value = SText：避免提前写入纯文本破坏粘贴环境，同时消除PasteSpecial的冲突报错。
• 用With语句简化工作表操作，保留原逻辑里的激活/选中步骤，确保粘贴位置精准。

额外注意事项 #

• 复制网页表格时，需完整选中目标表格区域，避免只选部分单元格导致结构缺失。
• 复制后立即运行宏，防止剪贴板内容被其他操作覆盖。

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