列の値を指定のシートにコピーしたいと思いますが、うまくいきません。

Visual Basic25閲覧xmlns="http://www.w3.org/2000/svg">50

ベストアンサー

0

もしかしてこうですか? Dim i As Long Dim sh As Worksheet With Worksheets("●") For i = 4 To 20 Set sh = Worksheets(.Cells(4, i).Value) sh.Range("I32").Value = .Cells(i, 5).Value sh.Range("U32").Value = .Cells(i, 6).Value Next End With

ThanksImg質問者からのお礼コメント

まともに説明すらできない状態でまさにどんぴしゃりの回答 感謝しかありません。きちんと説明できないことができない理由で、情報を整理できていないからだと痛感しています。ありがとうございます。

お礼日時:6/13 22:12