- ベストアンサー
エクセルVBAで複数条件のデータを抜き出す方法
mar00の回答
- mar00
- ベストアンサー率36% (158/430)
Sheet2のB2に学籍番号と入力されている事が前提です。 Sub Macro1() Set ws01 = Worksheets("Sheet1") Set ws02 = Worksheets("Sheet2") If ws02.Range("B3") <> "" Then ws02.Range("B3:B" & ws02.Cells(Rows.Count, 2).End(xlUp).Row).ClearContents End If For i = 2 To ws01.Cells(Rows.Count, 1).End(xlUp).Row If ws01.Range("D" & i) = "野球" And ws01.Range("E" & i) = "囲碁" Then ws02.Range("B" & ws02.Cells(Rows.Count, 2).End(xlUp).Offset(1).Row) = ws01.Range("A" & i) End If Next i End Sub
関連するQ&A
- ExcelVBAが25項目目で終了する。
以前に以下の様な質問を致しました。 ↓ 下記の様なデータがあるときに、部活が「野球」でかつクラブは「囲碁」に入っている生徒の学籍番号を別のシート(Sheet2)のB3から下に順にリスト化するマクロがどうしても出来なくて困っています。 <sheet1> A B C D E １ 学籍番号 学年 名前 部活 クラブ ２ 2222222 1 山田 太郎 野球 囲碁 ３ 9854923 2 吉田 次郎 剣道 絵画 ４ 1111111 3 佐藤 三郎 野球 囲碁 ５ 8888883 1 米山 権蔵 卓球 囲碁 <ご回答いただいた内容> Sub test() Dim i, k As Long Dim ws As Worksheet Set ws = Worksheets(2) k = 2 For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row If Cells(i, 4) = "野球" And Cells(i, 5) = "囲碁" Then k = k + 1 ws.Cells(k, 2) = Cells(i, 1) End If Next i End Sub 上記、マクロを多少編集し、運用してみた結果、項目が25項目目までは正しく反映されるのですが、それ以降のデータは一切反映されないことが判明しました。 構文とにらめっこしても何故25項目目で終了するのかが分からなかったので、もしお分かりになれば教えて頂ければ幸いです。 もし情報が不十分なら、追って私のオリジナルもアップするように致します。
- ベストアンサー
- Visual Basic
- エクセルのマクロで全シ－ト複数条件検索
エクセルで全シートから複数項目で検索をかけ、条件に合う項目の行ごと 新しいシートに抽出結果として表示することは可能なのでしょうか。 初心者なりに考え、無様なコードではありますが、 検索条件が１つであれば、条件にあう行をすべて抽出することはできました。 ですが複数、または列ごと条件として指定することができず、難儀しております。 たとえば Sheet1 A B C D 1 田中太郎 男 穏やか 2 鈴木次郎 女 うっかり 3 山田三郎 女 怒りっぽい 4 佐藤四郎 男 せっかち Sheet2 A B C D 1 伊藤五郎 女 用心深い 2 加藤六郎 男 ずぼら 3 斎藤七郎 女 臆病 4 後藤八郎 男 陽気 Sheet3 A B C D 1 【条件】 2 加藤六郎 3 鈴木次郎 4 山田三郎 5 後藤八郎 マクロ実行後↓ 新しいシート A B C D 1 加藤六郎 男 ずぼら 2 鈴木次郎 女 うっかり 3 山田三郎 女 怒りっぽい 4 後藤八郎 男 陽気 といった具合にしたいと考えております。 この場合ですと、B列全体を条件としたり、 Sheet3の条件が入力されているセルすべてを検索条件として 渡すことはできるのでしょうか。 実際のシートでは、条件が１０個～１００個ほどあり、 シートごとに数はばらばらになっております。 どうかわかる方、お力をお貸しください。
- ベストアンサー
- Excel（エクセル）
- 【Excel VBA】コピー＆ペーストの自動化
以下のエクセル表があり、同じ日付ごとのデータを自動的に別のシートに移したいです。 例えば、別のシートに、2004/1/1に書かれているデータのみを移す。（シート２参照） それをVBAで書くにはどうすればいいでしょうか。 マクロの記録をするのではなく、この表の日付を増やしたり変えたりしても機能するようにコードを書きたいと思っております。 For LoopとIf thenを使い、A1セルがそれより下のセルの値と異なるまでコピーし続ける、、といった作業をすればよいのでしょうか。 全くの初心者で勉強中です。よろしくお願いいたします。 列行 A B １ 2004/1/1 太郎 ２ 2004/1/1 次郎 ３ 2004/1/1 三郎 ４ 2004/1/1 一郎 ５ 2004/1/1 五郎 ６ 2005/3/3 三郎 ７ 2005/3/3 次郎 ８ 2005/3/3 太郎 ９ 2005/3/3 四朗 １０ 2006/2/2 次郎 １１ 2006/2/2 一郎 １２ 2006/2/2 太郎 シート２ 2004/1/1 太郎 次郎 三郎 一郎 五郎 シート３ 2005/3/3 三郎 次郎 太郎 四朗 シート４ 2006/2/2 次郎 一郎 太郎
- 締切済み
- その他MS Office製品
- エクセルの同じ名前をカウントする方法
エクセルの同じ名前をカウントする方法 初歩的な質問ですみません。 山田太郎 田中一郎 鈴木三郎 高橋次郎 鈴木三郎 高橋次郎 鈴木三郎 A1のセルにこういった状態で名前が入力されていた場合に 山田太郎 1 田中一郎 1 鈴木三郎 3 高橋次郎 2 となるように同じ名前がいくつあるかをカウントさせ上記のように表示させたいのですが、 どうしたらいいのでしょうか？ （同じシートでも、別のシートでもどちらでも構いません） 至急お答えいただけるとありがたいです。 よろしくお願いします。
- ベストアンサー
- その他（ビジネス・キャリア）
- Excelの条件書式で複数の条件を指定することは可能でしょうか？
Excelの条件書式で複数の条件を指定することは可能でしょうか？ 下記のように名簿と平均があった時に、名簿の所属クラスの平均より低い項目の背景色を変更したいです。 条件書式で無理な場合はマクロを教えて頂けると助かります。。。 よろしくお願い致します。 名簿 クラス..名前..国語..算数..理科..社会 A.......一郎....50....60....70....80 B.......次郎....40....50....60....70 A.......三郎....10....20....30....40 B.......四郎....45....62....48....90 平均 クラス......国語..算数..理科..社会 A.............60....70....80....75 B.............65....80....70....60
- ベストアンサー
- その他MS Office製品
- 条件にあった複数データを組合わせて別のセルに表示するには？
例えば、以下のデータがセルに入っていたとして A列には姓 B列には名 A1:鈴木 B1:一郎 A2:鈴木 B2：次郎 A3:鈴木 B3：三郎 A4:佐藤 B3：あきら A5:佐藤 B3：けんた 同じ姓にあてはまるデータの名を、組合わせて別のセルに表示したいのです。 結果イメージ C1:鈴木 D1:一郎 次郎 三郎 C2:佐藤 D2:あきら けんた このようなことAccessかExcelで出来ますか？
- ベストアンサー
- オフィス系ソフト
- エクセルでのデータ抽出について
エクセルでのデータ抽出について質問です。 現在、エクセルで以下のようなシートがあります。 *アルファベットと数字はエクセルシートの座標です。データではないです。 _|__A___|__B___|__C___|__D__| 1|_太郎_|_次郎_|_三郎_| 2|__@___|__@___|__ ___| 3|__@___|__@___|__ ___| 4|__@___|__ ___|__@___| 5|__@___|__ ___|__@___| 上記のように1行目には人の名前が入っていて、二行目以降には@が入っているシートです。 現在、私のやりたいことはDセルの2～5行目までに何かしら数式を入れて、シートを行で見たときに@が入っている人の名前をDセルに表示をさせたいです。 具体的に言うと、D2には『太郎・次郎』、D5には『太郎・三郎』といった具合です。 どなたかこの処理が簡単にできる関数や方法をご存知の方はいらっしゃいませんでしょうか？ 実際にはデータシートが1000行ほどあって手打ちだとなかなか骨が折れる仕事です。。。 どなたかご助言お願いいたします。 よろしくお願いいたします。
- ベストアンサー
- オフィス系ソフト
- エクセルで複数条件を満たす値を表示する方法
質問初めてで失礼しますが、よろしくお願いします。 エクセルにおいて 下記のようにシート「犬」に基礎となるデータがあります。 A B C D E ・・・ 1 花子 太郎 次郎 2 1994 6月 200 100 320 3 1994 7月 700 300 500 4 1995 6月 800 500 100 5 1995 9月 900 800 300 6 1996 6月 500 200 200 ・ ・ ・ これを別のシート「猫」に花子の情報のみ一覧表示したいのですが、B3、B4・・・C3、C4・・・にどのような数式をいれればよいでしょうか？ なお、このようにして、太郎や次郎もシート毎に一覧表示させる予定です。 A B C D E ・・・ 1 花子 2 6月 7月 8月 9月 3 1994 4 1995 5 1996 6 1997 7 1998 ・ ・ ・ よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- エクセルで文字列を数えて一覧表にしたいのですが
たとえばですが、２人一組で配達に行きます。 メンバーは、太郎、次郎、三郎、四郎、五郎・・・と多人数です。 Ａ１に太郎、Ｂ１に三郎 Ａ２に次郎、Ｂ２に五郎 Ａ３に太郎、Ｂ３に次郎 ・ ・ ・ と、いうような表ができます。 このとき、＊郎は何回配達にいったのかをカウントしたいのです。 ＊郎は、Ａ、Ｂのどちらに登場するかわかりませんし、 何回も登場しますし、組み合わせもばらばらです。 最終的に、太郎 １５回、次郎 ８回、三郎 ２１回・・・というように分かるようにしたいので、 仮にＤ１に太郎、Ｅ１に次郎、Ｆ１に三郎・・・の名前 (ダブって登場する名前を一つにまとめて、登場する全ての名前を残したい)、 Ｄ２に太郎、Ｅ２次郎、Ｆ２に三郎の回数(登場した名前の回数を数字で求めたい) というようにしたいのです。 エクセルの詳しい方、よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- エクセルVBAで複数の条件を満たす検索方法
エクセルのVBAを使ってデータ検索を行うプログラムを作っています "Sheet2"は下記のように、A列に生年月日、B列に住所、C列に電話番号、D列にメールアドレスが入力されています 【Sheet2】 生年月日 住所 電話番号 メールアドレス A B C D 1 1999/9/10 東京都○○ 11-111-1111 aa@goo.co.jp 2 2003/2/26 大阪府○○ 22-222-2222 bb@goo.co.jp 3 1985/6/22 福岡県○○ 33-333-3333 cc@goo.co.jp 4 1995/4/11 愛知県○○ 44-444-4444 dd@goo.co.jp "Sheet1"のA1に生年月日、A2に住所、A3に電話番号を入力し、"Sheet2"のデータと照合して、3つの値が合致した行のD列のメールアドレスを"Sheet1"のB1に返したいと思います 上記の表だと、"Sheet1"のA1に1985/6/22、A2に福岡県○○、A3に33-333-3333と入力されている場合、B1にcc@goo.co.jpの値を返すようにしたいのです。 findを使って生年月日、住所、電話番号を検索し、行番号を取得して、3つの行番号が同じならその行番号のD列の値を返すというような方法で考えていたのですが、エラーが回避できずに困っています。 生年月日が同じ人がいたり、夫婦や親子などは住所と電話番号が同じといった場合があり、上手く検索できません。 エラー回避の方法、もしくは他のやり方でも構いませんので どなたかご教授願えないでしょうか？ よろしくお願いします。
- ベストアンサー
- Visual Basic
お礼
ありがとうございます！！ さっそく試してみます！