Excel VBAmacros – 复制单元格和粘贴值到活动单元格范围

我遇到了这个Excelmacros的一些问题,因为我很新。

我想采取各种单元格,复制它们,然后将其值粘贴到活动单元格和它下面的单元格。

例如,我已经select了单元格D2。 当我运行macros时,我想要复制的值是A1,B4和C3。 当我运行macros,我想要这些单元格的值分别粘贴到单元格D2,D3和D4。

任何帮助这个代码将不胜感激!

D2将是:

Selection.Value = ActiveSheet.Range("A1").Value 

D3会使用OFFSET:

 Selection.Offset(1).Value = ActiveSheet.Range("B4").Value 

所以D4:

 Selection.Offset(2).Value = ActiveSheet.Range("C3").Value