Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


1623 / 13644 ツリー ←次へ | 前へ→

【73062】重複文字列の検索 Aoichi 12/11/2(金) 15:29 質問[未読]
【73064】Re:重複文字列の検索 kanabun 12/11/2(金) 16:31 発言[未読]
【73066】Re:重複文字列の検索 Aoichi 12/11/2(金) 22:27 お礼[未読]

【73062】重複文字列の検索
質問  Aoichi  - 12/11/2(金) 15:29 -

引用なし
パスワード
   以下のような表があります
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
よろしくお願いします

【73064】Re:重複文字列の検索
発言  kanabun  - 12/11/2(金) 16:31 -

引用なし
パスワード
   ▼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

一行です。

【73066】Re:重複文字列の検索
お礼  Aoichi  - 12/11/2(金) 22:27 -

引用なし
パスワード
   ▼kanabun さん:
 有難うございます
 早速トライしてみます
 不明な点が出ましたら再度お願いします

1623 / 13644 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free