|
重複するレコードを重複無しのレコードにするには？
キーワード>>オートフィルター・列挙・抽出
Point：ある列に重複するレコードがあって、それを重複なしのレコードにしたい。
Sub Test()
Dim RowEnd
'Ａ列の最終行を取得
RowEnd = Cells(Rows.Count, 1).End(xlUp).Row
'フィルターをかけてセルB2にコピー
Range(Cells(1, 1), Cells(RowEnd,
1)).AdvancedFilter _
Action:=xlFilterCopy, CopyToRange:=ActiveSheet.Range("B2"),
_
Unique:=True
'タイトルも持ってきてしまうので1行目は削除
Range("B2").Delete Shift:=xlUp
End Sub
|
掲載サンプルコードの使用に関して、直接・間接
を問わず生じた一切の損害について如何なる責任も負いません。
|
