Excel VBA質問箱 IV

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

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


9231 / 76732 ←次へ | 前へ→

【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

一行です。

0 hits

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

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