使用VBA将多个单元格移动到新工作表

Question

我有当前完全正常的代码。此代码将从工作表中获取单元格A1＆＃34;更新＆＃34;并将其放入工作表的单元格A2＆＃34; Archived。

Worksheets("Archived").Range("A2") = Worksheets("Update").Range("Table2").Range("A1")

但是，当我一次执行多个单元格时，它不起作用。它根本不会将任何内容复制到工作表中的任何单元格中＃34; Archived＆＃34;。这是为什么？

Worksheets("Archived").Range("A2:A3") = Worksheets("Update").Range("Table2").Range("A1:A2")

之前我使用过.copy方法，但听说它速度慢，效率低，效率高。这将是一个更好的路线。这是真的吗？

Answer 1

我总是不愿意使用细胞范围。你可以做到

ThisWorkbook.Sheets("Archived").Cells(2, 1).FormulaR1C1 = ThisWorkbook.Sheets("Update").Cells(1, 1).Value

复制一个单个单元格或

For x = 1 To 2
    ThisWorkbook.Sheets("Archived").Cells(x + 1, 1).FormulaR1C1 = ThisWorkbook.Sheets("Update").Cells(x, 1).Value
Next x

用于复制多个相邻的单元格。