VBA Excel中：複製選細胞

在Excel中我有以下的片狀結構：

Sheet1  
A  B  C  D  E F G H I J K ... 
2001 x  x  x  x 2002 x x x x 2003 ...

我想創建VBA宏是複製並粘貼值與年在另一張紙上：

Sheet2 
A  B  C  D ... 
2001 2002 2003 2004 ...

我該如何以簡單的方式做到這一點？

我的解決方案草圖至今

Set sourceRng = sourceSheet.range(Mark every fifth cell) 
Set targetRng = destinationSheet.range(something) 

sourceRng.Copy 
targetRng.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False

來源

2013-07-23 karamell

我已經添加了什麼，我在描述到目前爲止已經試過。問題是我不知道如何標記每五個細胞。 – karamell

您可以循環和複製的單細胞...

Set StartCellSheet1 = Sheet1.Range("A2") 
Set StartCellSheet2 = Sheet2.Range("A2") 

Sheet2Index = 0 
for Sheet1Index = 0 to 2000 step 5 'use the limit of your sheet 
    StartCellSheet2.Offset(0, Sheet2Index).Value = StartCellSheet1.Offset(0,Sheet1Index).Value 
    Sheet2Index = Sheet2Index + 1 
next

來源

2013-07-23 14:23:45

VBA Excel中：複製選細胞

回答

相關問題