VBA – 复制和改变价值

我正在从一个工作表复制值到另一个工作表使用：

Worksheets("Source").Range("D2:D" & Last_Index_F).Copy Worksheets("Tabell7").Range("C2") 

我正在复制的值是数值。 对于我复制的每一个值，我想要添加2.它有一个直接的方法，而不是通过列（使用For或While），并添加2？

Answer 1

而不是复制，只需直接赋值…

 Worksheets("Tabell7").Range("C2").Value = _ Worksheets("Source").Range("D2:D" & Last_Index_F).Value + 2 

你会发现这也更快，因为它避免了从剪贴板写入和检索数据！