[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]
『重複しているセルの一番上だけ残したいです。』(かななん)
お世話になっております。
重複しているセルの一番上だけ残したいです。
Sub Sample2()
Dim i As Long
For i = 1 To 1000
If WorksheetFunction.CountIf(Range("A1:A1000"), Cells(i, 1)) > 1 Then
Cells(i, 1).Clear
End If
Next i
End Sub
COUNTIFのフラグは1以上が建っていますので
これだど セルを2こ消してしまいます。。
オートフィルター機能はセルの位置が変わってしまいますので
使いたくありません。
なにか手があるのでしょうが考えても思いつきません。。
お手数ですがお願いいたします。
< 使用 Excel:Office365、使用 OS:Windows10 >
[ 一覧(最新更新順) ]
YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki.
Modified by kazu.