我正在尝试转置所有列“B”,但想跳过一行然后抓取下一个 4 并将它们粘贴到同一列中。如何使这个循环所有列“B”跳过每 5 行并自动将范围更改为下一个打开的单元格或“范围”,而无需单独手动输入每个单元格?
Range("B12:B16").Select
Selection.Copy
Sheets("Sheet2").Select
Range("A2").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Range("B18:B22").Select
Selection.Copy
Sheets("Sheet2").Select
Range("A3").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Range("B24:B28").Select
Selection.Copy
Sheets("Sheet2").Select
Range("A4").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True