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

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

受講生さんの投稿

(投稿ID: 3504)

お世話になっております。
[8959]で説明されているDo Loopで上から処理をするとなると、こんな感じになるのでしょうか。違和感があるため、動画のとおりに素直に下からFor Nextで処理したいです。
Sub Sample()
    Dim i As Long, j As Long, wsName As String
    With Sheets("リスト")
        For i = 4 To 7
            Sheets("本番").Copy After:=Sheets(Sheets.Count)
            wsName = .Cells(i, 4)
            ActiveSheet.Name = wsName
            j = 4
            Do While Cells(j, 2).Value <> ""
                If .Cells(i, 3).Value <> Cells(j, 4).Value Then
                    Range(Cells(j, 2), Cells(j, 5)).Delete Shift:=xlUp
                    j = j - 1
                End If
                j = j + 1
            Loop
        Next i
    End With
End Sub

2017/10/13 07:44