|
▼kanabun さん:
何度もありがとうございます。
感謝いたします。
>▼本山中 さん:
>
>さらに、別法です。
>フィルターオプションを使わないで、重複カットする方法です。
>(一行目に見出しを必要としない方法です)
>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
>
>多少こちらのほうが時間はかかるかもしれません
|
|