VBA セルの値と同じ名前のシートにデータを貼り付けするやり方を教えてください

VBA初心者です、勉強中ですが、わからずで困っています、
ご教授ください。
VBA セルの値と同じ名前のシートにデータを貼り付けするやり方を教えてください。

エクセルのブックがあります。シート1の一列目に名前(1Q000など順に)が入っています。
またそれぞれ100行ほどのデータがあります。
列ごとに入っているデータ2行目から104行目までを
名前と同じシート名のシートのD7より貼り付けしたいのです。

どうぞよろしくお願いします。

No.2 ベストアンサー 回答者： fujillin 回答日時： 2022/05/17 17:09

こんにちは

・元のデータがあるシート名は「Sheet1」と仮定しました。
・コピーする対象はB～Dで良いものと仮定しました。
　（列数が異なる場合は、ループ数を修正してください）

Sub Q12952539()
Dim rng As Range, col As Long

With Worksheets("Sheet1")
On Error Resume Next
For col = 2 To 4
　Set rng = Worksheets(.Cells(1, col).Text).Range("D7")
　If Err.Number = 0 Then
　　rng.Resize(103).Value = .Cells(2, col).Resize(103).Value
　End If
Next col
On Error GoTo 0
End With
End Sub

この回答へのお礼

つたない説明にもかかわらず早速の回答まことにありがとうございました。

お礼日時：2022/05/17 17:53

No.1 回答者： Qchan1962 回答日時： 2022/05/17 17:03

こんにちは

＞VBA セルの値と同じ名前のシートにデータを貼り付けするやり方を教えてください。
には、条件が足りませんが、
シート名が書いてあるセルを選択して
その下の1行から№104行のデータを選択したシート名のD7より出力する
コードです。
シート名などが無ければエラーが返りますのでエラールーチンを加える必要があります

Sub test()
Dim acvCell As Range
Set acvCell = Selection
Worksheets(acvCell.Text).Range("D7:D109").Value = acvCell.Offset(1).Resize(103).Value
acvCell.Select
End Sub

この回答へのお礼

つたない説明にもかかわらず早速の回答まことにありがとうございました。

お礼日時：2022/05/17 17:53