マクロ初心者です。

画像

Visual Basic51閲覧

ベストアンサー

0

D列もコピーするならこうしてください Dim r1 As Range Dim r2 As Range Set r1 = Worksheets("元データ").Range("C2:D2") Set r2 = Worksheets("出納簿").Range("E2:F2") Do While r1(1, 1).Value <> "" r2.Value = r1.Value Set r1 = r1.Offset(1, 0) Set r2 = r2.Offset(3, 0) Loop

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

有難うございました。 勉強になります。 考え方が分かり、かなり応用が効くと思います。

お礼日時:2021/11/27 16:34