Excel VBA复制粘贴值(xlPasteValues)在相同的列上。

I have this code

我有这段代码

    Sheets("Main").Columns("H:S").Copy
    Sheets("Main").Columns("H:S").PasteSpecial xlPasteValues

It is not working, but manually works very well. What is problem?

它不工作，但是手动工作得很好。问题是什么?

Runtime error 1004 Says what copy size differs from paste size

运行时错误1004表示复制大小与粘贴大小不同

Recorded macro also got same error on repeat, there are no merged cells and filters, no hidden rows and columns

录制的宏在重复上也有相同的错误，没有合并的单元格和过滤器，没有隐藏的行和列

1 个解决方案

#1

Different approach...

不同的方法……

With Sheets("Main").Columns("H:S") .Value = .Value End With

以表(“Main”).列(“H:S”).Value = .Value结尾。