lpk187

¦^´_ 10# jsc0518


    ¨º´N°µ°Ï°ì§a¡I(with)
With Sheets("¤u§@ªí")
arr = .Range("A1:A" & .UsedRange.Rows.Count + 1)
    For I = 1 To UBound(arr)
        If d.exists(arr(I, 1)) Then arr(I, 1) = ""
    Next I
    .[A1].Resize(UBound(arr), 1) = arr
    .Columns("A").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End With