- ベストアンサー
【VBA】セルに含まれない値を追加していく
VBA初心者です あるリストの、指定の列の重複しない値のリストを作成したいのですが 具体的には A B C 1 大阪 りんご 10 2 東京 りんご 20 3 東京 りんご 30 4 名古屋 ごりら 40 5 福岡 ごりら 50 6 大阪 らっぱ 60 指定のセル内（E1：E10）にA列の重複しないリスト （この例だと、大阪、東京、名古屋、福岡） を作成したいのです いくつか試してみたけれどうまくいきません どのようなVBAを作成すればよいでしょうか よろしくお願いいたします
- kazu999999
- お礼率60% (6/10)
- その他MS Office製品
- 回答数2
- ありがとう数2
- みんなの回答 （2）
- 専門家の回答
質問者が選んだベストアンサー
こんにちは！ A列に地名・B列に品名・C列に数値があるわけですよね？ 今回の質問はB・C列は関係なく、A列のデータを重複なしでE列に表示したい！ というコトでと解釈して・・・ 一例です。 シートモジュールにしていますので、 画面左下の操作したいSheet見出し上で右クリック → コードの表示 → VBE画面に ↓のコードをコピー＆ペーストしてマクロを実行してみてください。 Sub Sample1() 'この行から Dim i As Long, cnt As Long, c As Range Range("E:E").ClearContents For i = 1 To Cells(Rows.Count, "A").End(xlUp).Row Set c = Range("E:E").Find(what:=Cells(i, 1), LookIn:=xlValues, lookat:=xlWhole) If c Is Nothing Then cnt = cnt + 1 Cells(cnt, "E") = Cells(i, "A") End If Next i End Sub 'この行まで こんな感じではどうでしょうか？m（_ _）m
その他の回答 (1)
- 某HN クロメート(Chromate)（@CoalTar）
- ベストアンサー率40% (705/1742)
一般機能で Sub Sample2() Range("E:E").ClearContents ’E列を[Delete] Rows("1:1").Insert Shift:=xlDown ’1行目を挿入 Range("A1") = "項目名" 'A1セルに「項目名」と入力 'フィルタオプションの設定 重複するレコードは無視する Range("A1:A" & Range("A1").End(xlDown).Row).AdvancedFilter Action:=xlFilterCopy, _ CopyToRange:=Range("E1"), Unique:=True Rows("1:1").Delete Shift:=xlUp ’1行目の削除 End Sub
お礼
返信遅くなりまして申し訳ございません 先にご回答いただいた方をベストアンサーとさせていただきました ありがとうございました
関連するQ&A
- Ａ、Ｂ列でのセルの個数を出したい。
excel2003を使用しており、 Ａ列 Ｂ列 東京 Ａさん 東京 Ａさん 東京 Ａさん 東京 Ｂさん 東京 Ｃさん 東京 Ｃさん 名古屋 Ｄさん 名古屋 Ｄさん 名古屋 Ｄさん 名古屋 Ｅさん 名古屋 Ｅさん 名古屋 Ａさん 大阪 Ｆさん 大阪 Ｆさん 福岡 Ｇさん 福岡 Ｇさん 福岡 Ｈさん といった状態のセルがあます。 この中から、【東京には３人、名古屋３人、大阪には１人福岡２人】 という数値を返す関数が分らないのです。 条件として、Ａ列の土地名の種類は今後は増えません。Ｂ列の人名は今後も増える予定です。また、上例の様に、Ａさんが東京にも名古屋にも存在するっといった事があります。 色々、COUNT系の関数を調べながらやってみたんですがうまいこといきません。お力添え頂ければ幸いです。宜しくお願い致します。
- ベストアンサー
- オフィス系ソフト
- excel2003の、値抽出方法について。
写真のように、Ａ列に重複しているリストがあります。 Ｃ列に重複を排除したリストを作成する場合。 どのようにすればいいでしょうか。 ＶＢＡで記述した場合の方法と、関数の場合の方法とで それぞれ教えていただけるとありがたいです。
- ベストアンサー
- Excel（エクセル）
- 最終行から順番に下へ同列で入力するＶＢＡを教えて下さい。
ＥＸＣＥＬのＶＢＡで教えて下さい。 セルＡ１に東京、Ａ２に名古屋、Ａ３に大阪と入力されています。 マクロのボタンにＶＢＡの実行を割当て、ボタンを押す度にＡ１の東京がＣ５に、Ａ２の名古屋がＤ５に、 Ａ３の大阪がＥ５に入力され、更にＡ２又はＡ３のセルが空白でも必ず一行ずつ同じ行に入力されるにはどうしたら良いでしょうか？ 例：入力の流れ Ａ Ｂ Ｃ Ｄ Ｅ Ｆ Ｇ・・・・・・ １東京 ２名古屋 ３大阪 ４ ５ 東京 名古屋 大阪 ６ 東京 名古屋 大阪 ７ ８ ・ ・ ・ ↓ ↓ ↓ Ａ Ｂ Ｃ Ｄ Ｅ Ｆ Ｇ・・・・・・ １東京 ２ ３大阪 ４ ５ 東京 名古屋 大阪 ６ 東京 名古屋 大阪 ７ 東京 大阪 ８ ９ ・ ・ ↓ ↓ ↓ Ａ Ｂ Ｃ Ｄ Ｅ Ｆ Ｇ・・・・・・ １東京 ２名古屋 ３ ４ ５ 東京 名古屋 大阪 ６ 東京 名古屋 大阪 ７ 東京 大阪 ８ 東京 名古屋 ９ ・ ・ ※ポイント ・ セルＤ７を飛ばしてＤ８に入力される。 必ず一行ずつ同じ行に入力する。 ＥＸＣＥＬを再起動しても入力セルの下から 続いて入力される。
- ベストアンサー
- オフィス系ソフト
- リストと一致する値のセルを塗りつぶしたい。
例えば A列に 東京都 神奈川県 埼玉県 千葉県 愛知県 大阪府 福岡県 という値が入力されているとします。 次にC列に 東京都 新潟県 大阪府 三重県 広島県 福岡県 という値が入力されているとします。 A列に入力されていて、かつC列にも入力されている値を自動的に赤く塗りたいとき、 どのような操作をすればいいのでしょうか。 この場合ですと東京都と大阪府と福岡県のセルが赤くなります。 条件附き書式と数式を組み合わせると良い気がしますが、 具体的には分かりません。
- ベストアンサー
- その他MS Office製品
- VBA 別シートにカウントした結果を表示したい
VBA初心者です。 シート１で指定した単語をシート２にカウントした数を表示させたいです。 シート１のA列に100種類近い単語が縦に並んでいます。（重複している） 「りんご」「バナナ」「メロン」様々な単語があるとします。 シート２にはA列を横にした「りんご」「バナナ」「メロン」が並んでいます。（重複削除している） そのりんごなどの下に、リンゴがいくつか、バナナがいくつかをシート１からカウントした結果の数字を入れたいです。 今のところ、COUNTIFで単語を指定しているのですが、文言が増える可能性もあります。何かほかに案がありますでしょうか。 よろしくお願いいたします。
- 締切済み
- Excel（エクセル）
- VBAを使用しての重複チェック→住所録作成
VBAを始めたばかりの初心者です。 VBAにて受注データの重複チェックを行い、別シートへ住所録を作りたく奮闘しております。 他のシステムへインポートするため関数を使用するとなぜかエラーが出てしまうのでVBAのみで対応したいです。 Excelはバージョン2016です。 ▼受注データはおおむね下記の状態です。 シート1 A B C D E F G H I 受注日 電話1 電話2 電話3 名前 住所 商品 数量 受注ID 2016/2/5 11 111 1111 山田 東京 りんご 5 123-11111 2016/2/5 11 111 1111 山田 東京 いちご 2 123-11111 2016/2/5 11 111 1111 山田 東京 バナナ 6 123-11111 2016/2/5 80 8888 8888 鈴木 福岡 メロン 1 123-22222 2016/2/8 44 444 4444 加藤 奈良 りんご 3 123-33333 2016/2/8 44 444 4444 加藤 奈良 すいか 1 123-33333 2016/2/8 44 444 4444 加藤 奈良 ぶどう 5 123-33333 2016/2/8 44 444 4444 加藤 奈良 レモン 6 123-33333 2016/2/8 44 444 4444 加藤 奈良 いちご 2 123-33333 ▼やりたいこと シート2に受注IDを基に重複しないよう抽出して住所録を作りたいです。 (1) I列で重複をチェック (2) B列の電話1ですが先頭にOが削除されて表示されるのでシート2では0を付与してリスト化 (3) B列～D列の電話番号をシート2のリスト化の際には1つのセルに(ハイフンなしで)まとめる (4) (3)とは別のセルにB列～D列の電話番号をハイフンを付与してまとめる ※電話番号は固定電話と携帯電話の番号が混ざっています。 (5) 住所録はシート2に作成 補足 (3)の情報は別システムのID(コード)として使用します。 (4)はそのまま電話番号として使用します。 ▼理想的な状態 A B C D ID 名前 住所 電話 0111111111 山田 東京 011-111-1111 08088888888 鈴木 福岡 080-8888-8888 0444444444 加藤 奈良 044-444-4444 ▼難しそうなら最悪 A B C D E F G H I 受注日 電話1 電話2 電話3 名前 住所 商品 数量 受注ID 2016/2/5 11 111 1111 山田 東京 りんご 5 123-11111 2016/2/5 80 8888 8888 鈴木 福岡 メロン 1 123-22222 2016/2/8 44 444 4444 加藤 奈良 りんご 3 123-33333 までの状態にはもっていきたいです。 Webにて有志のかたの参考情報を基に 受注IDから重複チェックを行い特定のセルのみを抽出することは出来たのですが 行全体を抽出する方法がわかりませんでした…。 よろしくお願いいたします。
- ベストアンサー
- Excel（エクセル）
- HTMLリストの作り方
HTMLの<LI>で、 ● りんご ┣ごりら ┣らっぱ ┗ぱんつ のような構造のリストを簡単に作るcssはありませんか？ わかるかたがいましたら教えてください。
- 締切済み
- CSS
- エクセルVBAでセル選択
エクセル2000でリストを作成し、ＶＢＡで編集しようとしています。 Ａ列に入力されているコードの先頭に「’」をつけて文字列とするための関数をＢ２のセルからＡ列のデータが入力されている最後のセルの隣までコピーしたいと思っています。 Ａ列の最終セルを取得するＶＢＡは分かったのですが、その値をＢ列の選択範囲として使用する方法がわかりません。 エクセルＶＢＡは全くの初心者です。 どなたか教えてください！
- ベストアンサー
- オフィス系ソフト
- VBAでリスト通りにフォルダを作成
excelのvbaでアクティブブックが入っているフォルダの中に"sheet1"のA列のリスト通りに名前を付けフォルダを作成したいです。リストに重複した名前がない場合はできますが、図のように重複した名前が入っているとどうすればいいか分からなく、ここに質問します。 どなたか知恵を貸していただけませんか？ どうぞよろしくお願いいたします。
- ベストアンサー
- Excel（エクセル）
- エクセルで試合結果を入力し、各シート（チーム毎）にまとめ、データベースを自動作成する方法教えてください。
例えば、Ｊリーグの全試合結果をシート１に入力します。 A列に日付、Ｂ列にホームチーム名、Ｃ列にアウェイチーム名、Ｄ列に得点（ホーム）Ｅ列に失点（ホーム）、Ｆ列に得点（アウェイ）、Ｇ列に失点（アウェイ）とします。 Ａ Ｂ Ｃ Ｄ Ｅ Ｆ Ｇ ３月２日 東京 名古屋 ２ １ １ ２ ３月２日 大阪 福岡 １ ０ ０ １ ３月９日 福岡 東京 ３ １ １ ３ ３月９日 名古屋 大阪 シート２には、チーム毎の結果、例えば東京とすると、東京との対戦相手の結果のみが抽出される。 Ａ Ｂ Ｃ Ｄ Ｅ Ｆ Ｇ ３月２日 東京 名古屋 ２ １ １ ２ ３月９日 福岡 東京 ３ １ １ ３ そして、シート３を大阪とすると、大阪との対戦相手の結果のみが抽出され表示される。 このような、シート１に試合結果を入力すると各シートに表(チーム毎の表)が自動作成される関数を教えてください。 さらに、欲を言えば、シート２を東京と限定するので、Ｂ列に対戦相手、Ｃ列に場所、Ｄ列に得点、Ｅ列に失点というように一挙にまとめた表ができる関数があるとよいのですが・・・ Ａ Ｂ Ｃ Ｄ Ｅ ３月２日 名古屋 ホーム ２ １ ３月９日 福岡 アウェイ １ ３ 上記のようなデータベース作成は、エクセルで無理なのでしょうか？ またエクセルのマクロだと出来るのでしょうか？ よろしくお願いいたします。
- 締切済み
- オフィス系ソフト
お礼
希望通りのものができました ありがとうございました