【セル重複削除】

ここを編集

For iRowIdx = .Cells(Rows.Count, 1).End(xlUp).Row To 2 Step -1
    For iChkTargetRowIdx = iRowIdx - 1 To 2 Step -1
        If .Cells(iRowIdx, 1) = .Cells(iChkTargetRowIdx, 1) Then
            .Cells(iChkTargetRowIdx, 1).EntireRow.Delete Shift:=xlShiftUp
        Else
            'Do Nothing
        End If
    Next iChkTargetRowIdx
Next iRowIdx
 

ここを編集