|
▼本山中 さん:
さらに、別法です。
フィルターオプションを使わないで、重複カットする方法です。
(一行目に見出しを必要としない方法です)
1.まずB列で並び替えます。
2.すると 重複するものが行で連続しますので、B列を下から見ていって
ひとつ上の行と同じ値だったら、この行を空白セルにします。
3.そうしたら、B列で空白になっているセルを選択して 選択行を一括削除。
以上です。
以下にコードを示します。
前のコードは
名前を Private Sub Worksheet_BeforeDoubleClickX( _
か何かに変更しておいて、その下に ↓ をコピーしてください。
Private Sub Worksheet_BeforeDoubleClick( _
ByVal Target As Range, Cancel As Boolean)
If Target.Column = 2 Then
Dim i As Long, k As Long
Dim v
Cancel = True
With Range("A1").CurrentRegion
.Sort Key1:=.Columns(2), Header:=xlNo
v = .Columns(2).Value
For i = UBound(v) To 2 Step -1
If v(i, 1) = v(i - 1, 1) Then
v(i, 1) = Empty
k = k + 1
End If
Next
If k > 0 Then
.Columns(2).Value = v
.Columns(2).SpecialCells(xlBlanks). _
EntireRow.Delete '重複行削除
End If
End With
End If
End Sub
多少こちらのほうが時間はかかるかもしれません
|
|