VBA - 复制和改变价值

Question

我正在使用以下方法将值从一个工作表复制到另一个工作表：

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 ...

{{1}}

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