投稿/コメントを表示します。

エクセルマクロ・VBA基礎編フォローアップ アドバンスド
条件に一致するデータだけのリストを、条件に一致しないデータを削除する方法で同一ファイル内に連続的に作成する。

金子　伊智郎さんの投稿

(投稿ID: 3461)

前回と今回の動画を見る前に作ってみました。
ポイントはシートコピーする前に存在したら削除するようにした点です。
下から上に処理をしていくというヒントをもらっていたのでスムーズに
できました。
上から順に処理するとなると行削除する際にカウンターを-1でしょうか..
気持ち悪いコードになりそうです。
Sub mondai3()
    Dim gyo
    Dim jyokyo
    Dim komoku
    Dim sname
    Dim ws As Worksheet
    
    For jyokyo = 4 To 7
        komoku = Worksheets("リスト").Range("C" & jyokyo).Value
        sname = Worksheets("リスト").Range("D" & jyokyo).Value
         
         For Each ws In Worksheets
            If ws.Name = sname Then
                Application.DisplayAlerts = False
                Worksheets(sname).Delete
                Application.DisplayAlerts = True
                Exit For
            End If
         Next
        Sheets("本番").Copy After:=Sheets(7)
        Sheets("本番 (2)").Name = sname
    
        For gyo = 29 To 4 Step -1
            If Worksheets(sname).Range("D" & gyo).Value <> komoku Then
                Worksheets(sname).Rows(gyo & ":" & gyo).Select
                Selection.Delete Shift:=xlUp
            End If
        Next
    Next

End Sub

コメントがないためさびしい限りですが第１号になって見ます。
2017/09/29 00:53