マクロ作成のことです．

質問

excelのマクロで

同じ列の数字を比較なんですが，
列の数字一個ずつに列の中の数字と重複を調べて
重複したら調べた数字と重複した数字の行を消去したいです．

例えば，
列で
1
2
3
4
5
2
4

を2,4が重複したので，
1
3
5

にしたいです．
よろしくお願いします．

回答No.2

pkh4989 · ベストアンサー

以下のマクロを試してみてください。
Sub test()
　　Dim wRng　　　　As String
　　Dim wCnt　　　　As Integer
　　Dim mR　　　　　As Long
　　Dim wR　　　　　As Long
　　Dim wC　　　　　As String
　　Dim ExitFlg　　 As Boolean
　　'
　　With ActiveSheet
　　　　mR = .Range("A" & Rows.Count).End(xlUp).Row
　　　　Do While ExitFlg = False
　　　　　　wRng = mR & ":" & mR
　　　　　　wC = .Cells(mR, 1)
　　　　　　wCnt = 0
　　　　　　For wR = mR - 1 To 1 Step -1
　　　　　　　　If .Cells(wR, 1) = wC Then
　　　　　　　　　　wCnt = wCnt + 1
　　　　　　　　　　wRng = wRng & "," & wR & ":" & wR
　　　　　　　　End If
　　　　　　Next
　　　　　　If wCnt > 0 Then
　　　　　　　　.Range(wRng).Delete Shift:=xlUp
　　　　　　End If
　　　　　　mR = mR - (wCnt + 1)
　　　　　　If mR < 2 Then
　　　　　　　　ExitFlg = True
　　　　　　End If
　　　　Loop
　　End With
End Sub

お礼

ありがとうございました．助かりました．

回答No.1

n-jun

使用していない列にカウント数を出して、その列の値が２以上の行を削除していっては如何でしょう。