VBAについて教えてください。

画像

Visual Basic26閲覧

ベストアンサー

0

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

ありがとうございます! 大変助かりました。

お礼日時:6/13 8:47

その他の回答(2件)

0

For~ Next を使うならこんな感じです。 選択、コピー、貼り付けは処理が遅くなりますので、それを使わない書き方を覚えた方がいいと思います。 Sub test() Dim sh As Worksheet Dim i As Integer Dim j As Integer Application.ScreenUpdating = False Set sh = Worksheets("asas") j = 3 With Worksheets("as") For i = 8 To .Cells(Rows.Count, 1).End(xlUp).Row j = j + 6 sh.Cells(1, j).Value = .Cells(i, 1).Value Next i End With Application.ScreenUpdating = True End Sub