VBA-复制和更改值

我正在使用以下方法将值从一张图纸复制到另一张图纸：

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

---

我复制的值是数值。对于我复制的每个值，我想添加2。如果没有一种直接执行此操作的方法，而不是通过列（使用For或While）添加2？

而不是复制，只需直接指定

值即可

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

您会发现这也快得多，因为它避免了从剪贴板写入和检索数据
 不复制，只需直接指定
值

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

您会发现这也快得多，因为它避免了从剪贴板写入和检索数据
 您可以将第一个范围读入数组，处理（循环）数组（添加+2），然后输出到第二个范围。而不是使用.Copy use.Value并在末尾抛出+2。您可以将第一个范围读入数组，处理（循环）数组（添加+2）然后输出到第二个范围。而不是使用.Copy use.Value并在末尾抛出+2