Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

9237 / 76738

←次へ　｜　前へ→


	【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 一行です。