重複データ削除

e0080122_133884.gif

上図のように、重複するデータがあって(会員番号を昇順で並べ替え後)、行ごと削除するマクロ。

Sub 行削除()
Dim i As Integer
'会員番号を基準にした
For i = ActiveSheet.Range("A65536").End(xlUp).Row To 2 Step -1
   With Cells(i, 1)
     If .Value = .Offset(-1).Value Then
        .EntireRow.Delete
      End If
    End With
Next
End Sub

今のところは、これで動いてる。データ型はLongの方が無難だとは思うけど・・・。
[PR]
by slayer0210 | 2005-11-10 13:48 | マクロ


<< 色付きセルの行ごと削除 入力規則で重複入力を防ぐ >>