こんにちはゲストさん。会員登録(無料)して質問・回答してみよう!

解決済みの質問

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

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

投稿日時 - 2018-08-18 23:53:41

QNo.9528795

すぐに回答ほしいです

質問者が選んだベストアンサー

参考に
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

投稿日時 - 2018-08-19 06:36:15

このQ&Aは役に立ちましたか?

0人が「このQ&Aが役に立った」と投票しています

回答(1)

あなたにオススメの質問