VBAで別シートの必要データの値をコピーし貼付け

質問

sheet2の項目よりsheet1の必要項目の値のみを貼り付けたいのですがsheet1のC列5行文字入力があり次の行以降にsheet2のセルB2以降の範囲のsheet1の2行目必要項目に対しての入力値の値のみを入力したいのですがsheet2入力値は何百項目あります。
どなたかVBAコードが解る方よろしくお願いします。

回答No.1

watabe007 · ベストアンサー

参考に
Sub Test()
　　Dim ws1 As Worksheet, ws2 As Worksheet
　　Dim LR1 As Long, LR2 As Long
　　Dim h As Long

　　Set ws1 = Worksheets("Sheet1")
　　Set ws2 = Worksheets("Sheet2")
　　LR1 = ws1.Cells(Rows.Count, "C").End(xlUp).Row
　　LR2 = ws2.Cells(Rows.Count, "B").End(xlUp).Row
　　h = LR2 - 5
　　ws1.Cells(LR1 + 1, "A").Resize(h, 2).Value = ws2.Cells(6, "B").Resize(h, 2).Value
　　ws1.Cells(LR1 + 1, "C").Resize(h, 2).Value = ws2.Cells(6, "E").Resize(h, 2).Value
　　ws1.Cells(LR1 + 1, "E").Resize(h, 1).Value = ws2.Cells(6, "H").Resize(h, 1).Value
End Sub