- ベストアンサー
重複項目を除外する
初歩的な質問だと思いますが、Ａ列のデータがあって、Ｂ列を出力する構文を教えて下さい。ループとかでマクロを作ってみたら無限ループに入ってしまいできませんでした。宜しくお願いします。 Ａ 列 Ｂ列 トヨタ トヨタ 日産 日産 ホンダ ホンダ トヨタ マツダ ホンダ スバル マツダ スバル
- acchandesu
- お礼率32% (18/55)
- Visual Basic
- 回答数3
- ありがとう数3
- みんなの回答 （3）
- 専門家の回答
質問者が選んだベストアンサー
一例です。 Sub test() Dim rw As Long, r As Long r = 1 For rw = 1 To Cells(Rows.Count, 1).End(xlUp).Row If Application.WorksheetFunction.CountIf(Cells(1, 1).Resize(rw, 1), "=" & Cells(rw, 1).Value) < 2 Then Cells(r, 2).Value = Cells(rw, 1).Value r = r + 1 End If Next rw End Sub
その他の回答 (2)
- mt2008
- ベストアンサー率52% (885/1701)
フィルタオプションで重複を除いたリストを作成するのが手っ取り早いでしょう。 見た感じデータに見出しが無かったので、作業用の見出しを作って、フィルタを掛けた後で作業用見出しを削除すると言う処理を行って居ます。 ご参考までに……。 Sub Sample() Range("A1").Insert Shift:=xlDown '見出し作成用にA1にセル追加 Range("A1") = "作業用見出し" 'A１に作業用の見出し作成 'フィルタオプションで、重複を除いたリストを作成 Range("A:A").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range("B1"), Unique:=True Range("A1:B1").Delete Shift:=xlUp '作業用の見出しを削除 End Sub
お礼
こういう方法もあるのですね。 ありがとうございました。
- n-jun
- ベストアンサー率33% (959/2873)
Excel のリストから重複する行を削除する http://office.microsoft.com/ja-jp/excel/HA010346261041.aspx エクセルで重複データを簡単に削除する http://editors-blog.hakenjob.com/archives/50040256.html 等を参考にマクロの自動記録をしてみるとか。
お礼
リンク先を調べて頂きありがとうございました。 参考になりました。
関連するQ&A
- 自動車に詳しい方に、自動車メーカーの良いところ
自動車に詳しい方に質問します。 トヨタ、日産、ホンダ、マツダ、スバル、スズキ、ダイハツ、三菱の良いところを教えて下さい。よろしくお願いします。
- ベストアンサー
- 国産車
- 自動車販売店の店舗数はどれくらいあるのでしょうか？
突然ですが、自動車販売店の店舗数はどれくらいあるのでしょうか？ ・トヨタ ・ニッサン ・ホンダ ・ダイハツ ・スズキ ・マツダ ・スバル
- ベストアンサー
- 国産車
- トヨタがモータースポーツで強いとイメージがない
トヨタがモータースポーツで強いとイメージがないのですが何でですか？実際に弱いんですか？ 三菱＝パリダカ マツダ＝ルマン ホンダ＝Ｆ１ ＷＲＣ＝スバルなど みたいになんか無いんですか？ あれ ニッサンは？
- ベストアンサー
- 国産車
- セダン＋SUV÷2の車は??
セダンとSUVを足して割ったような車を探しています。日産ならデュアリス(リコールが多い?)、三菱ならRVR、マツダならCX-5あたりなんですが、トヨタやホンダ・スバルではありますか?輸入車ではどうでしょうか?詳しい方教えて下さい。
- ベストアンサー
- 国産車
- 親父の偏見？
きっかけは母と車に乗っている時でした。 こんな事を言いました。 母「あ、スバルの車だ」 自分「…（別に珍しくもない）」 母「親父はねぇ、スバルが嫌いなんだよ」 自分「…（え？そうなの？初めて聞いた）」 というやりとりがありました。 スバルに乗ろうかなと思っていたのでちょっとドキとしました。 親父の乗車暦を考えてみると 日産→本田（軽）→本田（軽）→日産→本田（軽）→豊田 です。 ２度目の日産の時、実はマツダを検討していたのですが、なぜか日産を買いました。 母曰く相談も無しにいきなり買った、そうです。 まさかとは思いましたが日産・豊田が標準で軽はラインアップしてないから実績２番手の本田を買ってる？という考えが浮上しました。 また、他社は壊れやすいとも思っているようです。 偏見だとは思うのですがこれがこの年代の認識なのでしょうか？ （親父は５０代です。） また、実際はどうなんでしょうか？
- 締切済み
- 国産車
- それぞれの合計を横並びに表示するには
１つtableの中に ・営業所 ・販売車種メーカー ・販売日 といった項目があるとき、 縦に営業所。横に、販売車種メーカー別の合計を出すにはどのようにしたら良いでしょうか？ |トヨタ| 日産 | 本田 |マツダ|スバル| Ａ営業所| 15 | 5 | 8 | 1 | 3 | Ｂ営業所| 7 | 10 | 7 | 5 | 5 | Ｃ営業所| 20 | 14 | 11 | 8 | 2 |
- 締切済み
- PostgreSQL
- エクセルにて複数のセルの組み合わせの重複を削除するには?
エクセルの重複セルの削除において、通常、条件が一つの場合は出来るのですが、複数セルの組み合わせの場合、どのようにすればいいでしょうか? 例えば、下記のように項目が並んでいるとします Ａ Ｂ Ｃ Ｄ １ メーカー 車種 ２ トヨタ クラウン ３ トヨタ アルファード ４ トヨタ カローラ ５ トヨタ クラウン ６ ホンダ シビック ８ ホンダ オデッセイ ９ ホンダ アコード １０ 日産 サニー １１ トヨタ クラウン １２ 日産 スカイライン １３ 日産 セドリック １４ ホンダ シビック ↓ ↓ このような配列でデーター項目セルが１万ほどあります。 例えば、このうちメーカーがトヨタで車種がクラウン（Ａ２＋Ｂ２） の組み合わせの重複を見つけ、重複行を削除するにはどのようにすればよいでしょうか? メーカーだけの重複を見つけ、重複行の削除をするには いつもは=IF(COUNTIF($A$2:A2)>1,NA(),"")のような方法でNA()を返し、ジャンプ→エラー値で一括削除しています。 このような２つの組み合わせの場合、どのような式を立てれば良いでしょうか?教えていただけないでしょうか?
- ベストアンサー
- オフィス系ソフト
- 対象月を抽出して必要項目だけを表示させるには
下図【ワークシート１】のようなリストから、対象月をワークシート２に抽出させたいのですが、ワークシート２は即印刷可能な形式とするため、対象月を単純に抽出するのではなく、必要な項目だけを抜き取りリスト化させるマクロを実現させたいと考えています。 高度なマクロはまるっきり分からないので、ご教示願います。 なお、対象月は下図例では２月分を抽出させるため「2009/2/？」と記載してありますが、抽出させるために入力する形式は拘りません。 （例えば「<2009/2/1,>2009/2/28」と言った表現でも結構です） 【ワークシート１】 A列 B列 C列 D列 E列 F列 ・・ X列 1 Ａ店 商品ａ 2009/1/10 承認 山田 2009/1/11 ・・ 鈴木 2 Ｂ店 商品ｂ 2009/2/5 否認 田中 ・・ 松田 3 Ｃ店 商品ｃ 2009/2/20 否認 鈴木 ・・ 本田 4 Ｂ店 商品ａ 2009/2/25 承認 田中 2009/2/27 ・・ 山本 5 Ａ店 商品ｃ 2009/3/1 承認 加藤 2009/3/2 ・・ 大石 【ワークシート２】上の任意の場所 （例えばA1） 2009/2/? 【ワークシート２】出力例 A列 B列 C列 D列 E列 10 Ｂ店 商品ｂ 否認 松田 11 Ｃ店 商品ｃ 否認 本田 12 Ｂ店 商品ａ 承認 2009/2/27 山本
- ベストアンサー
- オフィス系ソフト
お礼
非常にわかりやすかったです。 どうもありがとうございました。