|
▼Aoichi さん:
>No1;No2;No3の列にある文字列を検索して同じ場合
>その行を取得して削除したいのです
>
>例えば 1)と4)が同じなのでこれを取得して削除
> No1 No2 No3
>1) VB-AUTO60 417-NT-AK06-R2 AS-0028
>2) VB-AUTO60 417-NTK08-R0 AS-0028
>3) VB-AUTO60 NC60-AK05-R12 AS-0011
>4) VB-AUTO60 417-NT-AK06-R2 AS-0028
>5) VB-AUTO60 417-NTK08-R123 AS-0028
>6) VB-AUTO60 NC60-AK02-R8 AS-0028
重複する行を削除という問題ですが、
重複しないユニークなレコードを取り出すと考えると、
一般機能の「フィルタオプション」が使えます。
(A1,B1,C1 は "No1;No2;No3" の列見出しがある前提で)
以下のコード(マクロの記録を編集したもの)は、A,B,C列の表から
ユニークなレコードだけ、E,F,G列に抽出しています。
Range("A1").CurrentRegion.AdvancedFilter _
Action:=xlFilterCopy, _
CopyToRange:=Range("E1"), _
Unique:=True
一行です。
|
|