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
受講生さんの投稿
(投稿ID: 3504)
[8959]で説明されているDo Loopで上から処理をするとなると、こんな感じになるのでしょうか。違和感があるため、動画のとおりに素直に下からFor Nextで処理したいです。
小川慶一さんのコメント
(コメントID: 4975)
ご提案のものでも悪くはないとは思います。
(他にもやり方あるとは思いますが、課題がシンプルすぎるので、善悪つけがたい別解ばかりです)
>動画のとおりに素直に下からFor Nextで処理したいです。
ですね。