[英]VBA Excel: copy separated cells
快速提問:
在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
您可以循環和復制單個單元格...
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
聲明:本站的技術帖子網頁,遵循CC BY-SA 4.0協議,如果您需要轉載,請注明本站網址或者原文地址。任何問題請咨詢:yoyou2525@163.com.