|
こういうことですか?
Sub サンプル1()
Dim 貼付行 As Long
Dim コピー行 As Long
貼付行 = 1
コピー行 = 2
Sheets("Sheet1").Select
Do Until Cells(コピー行, "A").Value = ""
Range("A1:D1").Copy
Sheets("Sheet2").Select
Cells(貼付行, "A").Select
Selection.PasteSpecial Paste:=xlPasteAll, _
Operation:=xlNone, SkipBlanks:=False, _
Transpose:=True
Sheets("Sheet1").Select
Cells(コピー行, "A").Resize(, 4).Copy 'Resizeで4列にする
Sheets("Sheet2").Select
Cells(貼付行, "B").Select
Selection.PasteSpecial Paste:=xlPasteAll, _
Operation:=xlNone, SkipBlanks:=False, _
Transpose:=True
Sheets("Sheet1").Select
貼付行 = 貼付行 + 4
コピー行 = コピー行 + 1
Loop
End Sub
いまいち話が見えない…
今日は帰ります。
|
|