VBA Excel: скопировать отделенные клетки

Question

Быстрый вопрос:

в 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 

Answer 1

Вы можете цикл и копировать отдельные клетки ...

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