VBA - 複製並改變價值

Question

我是從一張薄片currentlying複製值來使用另一種片：

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

我複製的值是數值。對於我複製的每一個值，我想添加2.它有一種直接執行此操作的方法，而不是通過列（使用For或While）並添加2？

Answer 1

而不是複製的，只是直接分配的Value ......

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

你會發現這也是快得多，因爲它從剪貼板避免寫入和檢索數據！