将单元格值（非公式）从一张纸复制并粘贴到另一张纸

Question

I am trying to copy and paste the values of a large number of cells from one sheet to another. I tried

Sheets("Sheet1").Range("A1:Z150").Copy Destination:=Sheets("Backup").Range("A1")

It copies the formulae instead.

Adding .Value results in the error Object required .

I also tried.

Sheets("Sheet1").Range("A1:Z150").Value = Sheets("Backup").Range("A1").Value

How do I copy cell values?

Answer 1

如果要使用value ，则两个范围的大小应相同：

Sheets("Sheet1").Range("A1:Z150").Value = Sheets("Backup").Range("A1:Z150").Value

Answer 2

You can try this:

Sheets("Sheet1").Range("A1:Z150").Copy
Sheets("Backup").Range("A1").PasteSpecial xlValues

Answer 3

You could use Address property of Range object to be sure to reference the same address in different ranges:

With Sheets("Sheet1").Range("A1:Z150")
    Sheets("Backup").Range(.Address).Value = .Value
End With