Public Sub 特定行表示()
    Dim ws As Worksheet
    Dim wrow As Long
    Dim hide_rows As Range
    Dim lastrow As Long
    Dim flag As Boolean
    Dim match_ctr As Long: match_ctr = 0
    Set ws = Worksheets("オーダーリスト")
    lastrow = ws.Cells(Rows.Count, "A").End(xlUp).Row
    ws.Rows("6:" & Rows.Count).Hidden = False
    Set hide_rows = Nothing
    For wrow = 6 To lastrow
        flag = False
        If ws.Cells(wrow, "E").Value = "重複" Then
            flag = True
        End If
        If ws.Cells(wrow, "B").Value = "" Or ws.Cells(wrow, "C").Value = "" Or ws.Cells(wrow, "D").Value = "" Then
            flag = True
        End If
        If flag = False Then
            If hide_rows Is Nothing Then
                Set hide_rows = Rows(wrow)
            Else
                Set hide_rows = Union(hide_rows, Rows(wrow))
            End If
        Else
            match_ctr = match_ctr + 1
        End If
    Next
    If match_ctr = 0 Then
        MsgBox ("重複や空白なし")
    Else
        If Not hide_rows Is Nothing Then
            hide_rows.EntireRow.Hidden = True
        End If
    End If
End Sub
 

UHVibGljIFN1YiDnibnlrprooYzooajnpLooKQogICAgRGltIHdzIEFzIFdvcmtzaGVldAogICAgRGltIHdyb3cgQXMgTG9uZwogICAgRGltIGhpZGVfcm93cyBBcyBSYW5nZQogICAgRGltIGxhc3Ryb3cgQXMgTG9uZwogICAgRGltIGZsYWcgQXMgQm9vbGVhbgogICAgRGltIG1hdGNoX2N0ciBBcyBMb25nOiBtYXRjaF9jdHIgPSAwCiAgICBTZXQgd3MgPSBXb3Jrc2hlZXRzKCLjgqrjg7zjg4Djg7zjg6rjgrnjg4giKQogICAgbGFzdHJvdyA9IHdzLkNlbGxzKFJvd3MuQ291bnQsICJBIikuRW5kKHhsVXApLlJvdwogICAgd3MuUm93cygiNjoiICYgUm93cy5Db3VudCkuSGlkZGVuID0gRmFsc2UKICAgIFNldCBoaWRlX3Jvd3MgPSBOb3RoaW5nCiAgICBGb3Igd3JvdyA9IDYgVG8gbGFzdHJvdwogICAgICAgIGZsYWcgPSBGYWxzZQogICAgICAgIElmIHdzLkNlbGxzKHdyb3csICJFIikuVmFsdWUgPSAi6YeN6KSHIiBUaGVuCiAgICAgICAgICAgIGZsYWcgPSBUcnVlCiAgICAgICAgRW5kIElmCiAgICAgICAgSWYgd3MuQ2VsbHMod3JvdywgIkIiKS5WYWx1ZSA9ICIiIE9yIHdzLkNlbGxzKHdyb3csICJDIikuVmFsdWUgPSAiIiBPciB3cy5DZWxscyh3cm93LCAiRCIpLlZhbHVlID0gIiIgVGhlbgogICAgICAgICAgICBmbGFnID0gVHJ1ZQogICAgICAgIEVuZCBJZgogICAgICAgIElmIGZsYWcgPSBGYWxzZSBUaGVuCiAgICAgICAgICAgIElmIGhpZGVfcm93cyBJcyBOb3RoaW5nIFRoZW4KICAgICAgICAgICAgICAgIFNldCBoaWRlX3Jvd3MgPSBSb3dzKHdyb3cpCiAgICAgICAgICAgIEVsc2UKICAgICAgICAgICAgICAgIFNldCBoaWRlX3Jvd3MgPSBVbmlvbihoaWRlX3Jvd3MsIFJvd3Mod3JvdykpCiAgICAgICAgICAgIEVuZCBJZgogICAgICAgIEVsc2UKICAgICAgICAgICAgbWF0Y2hfY3RyID0gbWF0Y2hfY3RyICsgMQogICAgICAgIEVuZCBJZgogICAgTmV4dAogICAgSWYgbWF0Y2hfY3RyID0gMCBUaGVuCiAgICAgICAgTXNnQm94ICgi6YeN6KSH44KE56m655m944Gq44GXIikKICAgIEVsc2UKICAgICAgICBJZiBOb3QgaGlkZV9yb3dzIElzIE5vdGhpbmcgVGhlbgogICAgICAgICAgICBoaWRlX3Jvd3MuRW50aXJlUm93LkhpZGRlbiA9IFRydWUKICAgICAgICBFbmQgSWYKICAgIEVuZCBJZgpFbmQgU3ViCg==