VBAについて知恵を借りたいです。空白でないなら、について。 ----- F列の7行目以降が、すべて空白でないならF列の7行目以降をコピー すべて空白ならE列を見にいき、

Visual Basic | Excel100閲覧xmlns="http://www.w3.org/2000/svg">25

ベストアンサー

0

より短くすれば Sub test2() Dim Rng As Range Dim i As Long, LastRow As Long LastRow = Cells(Rows.Count, 1).End(xlUp).Row For i = 6 To 4 Step -1 Set Rng = Range(Cells(7, i), Cells(LastRow, i)) If WorksheetFunction.CountBlank(Rng) <> LastRow - 6 Then Rng.Copy Exit For End If Next '(・・・貼り付けは省略) End Sub

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

勉強になりました。 ありがとうございました。

お礼日時:2021/12/3 11:40