エクセルVBA シート1からシート2へ行列変換して転記したい

シート1のデータはそのままで、シート2に転記したいです。
データはC列とD列に入っており。
データは3行目から始まります。
そこから100行入っています。
シート2には3行目と4行目に行列を変換して表示したいです。

よろしくお願いします。

No.1 ベストアンサー 回答者： tom04 回答日時： 2019/06/20 16:02

こんにちは！

一例です。

Sub Sample1()
　Dim lastRow As Long
　　With Worksheets("Sheet1")
　　　lastRow = .Cells(Rows.Count, "C").End(xlUp).Row
　　　　Range(.Cells(3, "C"), .Cells(lastRow, "D")).Copy
　　　　Worksheets("Sheet2").Range("A3").PasteSpecial Paste:=xlPasteAll, Transpose:=True
　　End With
　　　Application.CutCopyMode = False
End Sub

※　単に値だけの操作で良い場合は、100行程度であればほとんど時間を要しないと思うので
ループさせる方法として・・・

Sub Sample2()
　Dim i As Long
　　With Worksheets("Sheet1")
　　　For i = 3 To .Cells(Rows.Count, "C").End(xlUp).Row
　　　　Worksheets("Sheet2").Cells(3, i - 2).Resize(2).Value = Application.Transpose(.Cells(i, "C").Resize(, 2).Value)
　　　Next i
　　End With
End Sub

でも大丈夫だと思います。

※　Sheet２に表示するのはどちらもA列からとしています。m(_ _)m

この回答へのお礼

ありがとうございます。
とても助かりました。。。

お礼日時：2019/06/20 16:12