VBA 条件の一致する行の特定のセルの削除について
- VBA初心者の方が条件の一致する行の特定のセルを削除する方法について質問されています。具体的には、シート1のB列の特定の値に基づいて行のB-E列のセルを削除する方法を知りたいとのことです。
- シート1のB列から特定の値をシート2から入力し、その行のB-E列のセルを削除する方法を知りたいという質問です。詳細な説明を求めているVBA初心者の方へ、具体的な手順やコードの記述方法を回答してください。
- VBA初心者の方がシート1のB列から特定の値を入力し、その値に一致する行のB-E列のセルを削除したいとの質問です。解決策として、VBAのコードを使用してシート1のデータを検索し、条件に一致する行のセルを削除する方法を提案してください。
- ベストアンサー
VBA 条件の一致する行の特定のセルの削除について
VBA初心者です。よろしくお願いします。 ＜sheet1＞ Ａ Ｂ Ｃ Ｄ Ｅ １ １ 1211 佐藤 10 100 ２ ２ 1344 山田 25 150 ３ ３ 1522 田中 5 80 ４ ４ 1655 高橋 35 200 ・ ・ 100 100 3682 小林 40 300 <sheet2> A B 1 1344 2 この様な表があったとします。（見辛くてすみません） "sheet2"A1セルに入力した内容と同じ内容を"sheet1"のＢ列から検索し、その行のＢ～Ｅのセルを削除するにはどのようにしたら良いでしょうか？ 例えば"sheet２で"「1344」と入力した場合、"sheet1"の「1344」のある２行目のＢ～Ｅのセルを削除するといった感じです。 削除後の空白は詰める必要はなく、マクロを記録させるボタンは"sheet２"に貼り付けます。 色々調べましたがどうにも分からない為質問させていただきます。 よろしくお願い致します。
- topfuel110
- お礼率50% (1/2)
- オフィス系ソフト
- 回答数2
- ありがとう数1
- みんなの回答 （2）
- 専門家の回答
質問者が選んだベストアンサー
sub macro1() dim res as range set res = worksheets("Sheet1").range("B:B").find(what:=worksheets("Sheet2").range("A1").value, lookin:=xlvalues, lookat:=xlwhole) if res is nothing then exit sub res.resize(1, 4).clearcontents macro1 end sub シート２にオートシェイプの図形を配置する 右クリックしてマクロの登録で登録したマクロを取り付ける。 ＃単に思いつきで変なマクロ。
その他の回答 (1)
- K Kazz（@JazzCorp）
- ベストアンサー率31% (549/1751)
残ったAには何の意味がある？？
補足
コメントありがちうございます。統計上の記録として使用する為に残してあります。
関連するQ&A
- エクセルで条件に一致したセルの隣のセルを取得したい
下のような「得点」という名前のシートがあります。 （「田中」のセルがA1です。） [ 田中 ][ 10 ][ 200 ] [ 山田 ][ 21 ][ 150 ] [ 佐藤 ][ 76 ][ 250 ] [ 鈴木 ][ 53 ][ 350 ] 別のシートのA1セルに、「佐藤」と入力すると、 [ 佐藤 ] 「得点」シートから「佐藤」の列を見つけて、B1、C1に [ 佐藤 ][ 76 ][ 250 ] のように表示させたいのですが、B1、C1にはどのような式を書けば良いのでしょうか。 「得点」シートでは氏名が重複する事はありません。 IF文を使うと思うのですが、いまいち良く分かりませんでした。 よろしくおねがい致します。
- ベストアンサー
- その他MS Office製品
- 【Excel】同じ行で２つの各値が一致する行の参照
エクセルで【Sheet1】のデータから 【Sheet2】【Sheet3】の表を作成したいのですが、 いろいろ試してもわかりません。 どうか教えてください。 【Sheet1】 A B C D E 1 2001 佐賀県 1 山田 090-000-0000 2 2001 愛媛県 2 佐藤 090-111-1111 3 2001 静岡県 4 伊藤 090-222-2222 4 2001 岡山県 5 中野 090-333-3333 5 2002 三重県 1 近藤 090-444-4444 6 2002 福島県 2 田中 090-555-5555 7 2002 岐阜県 3 吉田 090-666-6666 以下600行ほど続きます。 【Sheet2】 A B C 1 2001←入力します 2 1 山田 090-000-0000 3 2 佐藤 090-111-1111 4 4 伊藤 090-222-2222 5 5 中野 090-333-3333 【Sheet3】 A B C 1 2002←入力します 2 1 近藤 090-444-4444 3 2 田中 090-555-5555 4 3 吉田 090-666-6666 【Sheet2】【Sheet3】のA1には、 【Sheet1】のA1の値を入力します。 A2,B2,C2 A3,B3,C3 ... それぞれのセルにどんな数式を入れたら 表ができあがりますででしょうか？ 【Sheet2】【Sheet3】共に、VLOOKUPで =VLOOKUP(A1,Sheet1!A1:D7,3,) =VLOOKUP(A1,Sheet1!A1:D7,4,)を使うと、 ２行目はうまくいきますが、 ３行目から狂ってきます。 頭が沸騰してきました！ わかる方に教えていただいたほうが早いですネ、 どうぞご享受よろしくお願いいたします。
- ベストアンサー
- その他(業務ソフトウェア)
- excelオートフィルタの検索条件をセルに入力したい
以下のようなexcelのリストがあるとします。 Ａ Ｂ Ｃ～ １ 佐藤・鈴木 Ａタイプ ２ 田中・山田 Ｂタイプ ３ 佐藤 Ａタイプ ４ 田中 Ｃタイプ ５ 山田・鈴木 Ｃタイプ Ａ列の"田"が含まれる行を抽出したい場合 オートフィルタをかけ、オプションの抽出条件の指定で "田"を含む、で検索すれば良い、というのはわかります。 ですが、この動作をもうちょっと簡単にできないかと思っています。 具体的には、以下のようにセルに入力して検索・抽出するとはできないでしょうか。 Ａ Ｂ Ｃ～ １ 田 ２ ３ ４ Ａ Ｂ Ｃ～ ６ 田中・山田 Ｂタイプ ８ 田中 Ｃタイプ ９ 山田・鈴木 Ｃタイプ （1、２行目＝検索用 ３行目＝空き ４行目以降＝リスト） 過去の質問で、同じようにセルに入力して抽出する方法を 聞いていた方がいらっしゃったので参考にしようと思ったのですが 方法がVBAを使ったもので、VBAの知識がまったく無いために さっぱり理解することができませんでした。 何か良い方法がありましたら教えていただけないでしょうか。
- ベストアンサー
- オフィス系ソフト
- エクセルで条件に一致する複数の列を取得するには
下のような「得点」という名前のシートがあります。 （「田中」のセルがA1です。） [ 田中 ][ 10 ] [ 山田 ][ 21 ] [ 佐藤 ][ 76 ] [ 鈴木 ][ 53 ] 別の「組」シートで、以下のようになっています。 [ A ][ 田中 ] [ A ][ 佐藤 ] [ B ][ 山田 ] [ C ][ 鈴木 ] ここで、「組」シートのどこか空いているセル（例えばF1）に、 「Aの組の点数の合計値」を表示したいと思っています。 考えた方法としては、 １．まず「組」シートのA1からD1を順番に見て、 ２．値が「A」になっている場合のみ、そのひとつ右の名前を取得して、 ３．「得点」シートで、取得した名前を探し、その点数を取得し、 ４．それを全て足す という感じなのですが、どういう式を書けば良いのか分かりません。 度々すみませんが、よろしくおねがい致します。
- ベストアンサー
- その他MS Office製品
- 質問：特定文字列から空白行までの抽出
質問：特定文字列から空白行までの抽出 お世話になります、ネットで公開されているVBAを修正して何とかなっているVBA初級者です。 毎月excelで出力されたファイルを元に関数で整形したと思っていますが、”北棟２”の開始 するセル位置は解っているのでそれを基準に利用するのは簡単ですが、7777村上まで（空 白があるまで）を抜き出して"sheet_work"もしくは"北棟２"とういうsheetのB8セルに貼り 付けたいと考えています。 北棟２だけではなく、空白に挟まれた行は毎月変動するために関数でのセル指定が役に立ちま せん。この場合、北棟２、南棟１、西棟２、東棟１、東棟３といた文字列の次の行のA,B,C列 から空白が発生する行までを整形しやすいsheetか文字列通りのsheet名のB8セルに貼り付ける 方法が御座いましたらご教授お願いいたします。関数だけで力業で可能でしたらそちらもお教 えお願いします。 以下が出力されますが、空白から空白までは一定では無く、増減します。 小計の行は不要です。 Ａ Ｂ Ｃ 5 xxxxxx名 日付 6 7 北棟２ 8 1111 鈴木 5 9 2222 武田 5 10 11200 山田 5 11 4444 高橋 4 12 5555 佐藤 5 13 6666 小林 4 14 7777 村上 0 15 16 小計 28 17 18 南棟１ 19 1001 中村 4 20 1002 伊藤 5 21 1003 吉田 4 22 20110 佐々木 5 23 1005 木村 3 24 1006 渡辺 0 25 1007 田中 4 26 27 小計 25 28 29 西棟２ 30 10020 森 2 31 2010 岡田 1 32 2033 池田 0 33 2058 井上 5 34 35 小計 8 36 37 東棟１ 38 7854 石田 4 45 東棟３ 46 4471 石岡 2
- ベストアンサー
- その他MS Office製品
- Excelで空白行を削除したい
2500行位使用しているシートのなかに、どのセルも空白になっている不要な行が300行くらい混ざっています。 この行を自動的に削除するにはどうすれば良いでしょうか。 ただ、その行のA～Eセルは空白でもFセルに値が入っているなど完全に空白でない行は削除できません。 メニュー、関数、VBAなど有れば教えてください。
- ベストアンサー
- オフィス系ソフト
- VBAで色の付いているセルの行削除
VBAで色の付いているセルの行を削除することは出来ないでしょうか？ 量が多すぎて一つ一つ削除すのは大変で間違えて削除してしまいそうなので・・・ － 文字または数字 ■ 色の付いたセル（赤） Ａ Ｂ Ｃ Ｄ Ｅ Ｆ・・・ １－ － － － － － ２－ － － － － － ３－ － － ■ － － ４－ － ■ － － － ５－ － ■ － － － ６－ － － － － － ７－ － － ■ － － ８－ － ■ － － － ９－ － ■ － － － 10－ － － － － － ↓ Ａ Ｂ Ｃ Ｄ Ｅ Ｆ・・・ １－ － － － － － ２－ － － － － － ６－ － － － － － 10－ － － － － － よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- 複数の条件に合う行の特定のセルを返す
ほぼ同じ質問をいくつか見かけたのですが、その式を自分の内容に置き換えても全く希望通りの結果が出ず、質問させてください。 2 1 Aさん 4 1 Bさん 5 1 Cさん 2 2 Dさん 5 2 Eさん セルのA１には「２」、B1には「1」、C1には「Aさん」と入ったシートがあり、例えばセルのD1に A列、B列ともに「２」が入力されている4行目のC列「Dさん」という値が反映して欲しいのですが、その関数が分からなく困っています。 他にもA列が「５」、B列が「１」の結果が(Cさん）が欲しい時もあり、条件にはA列の値とB列の値を使う方法で考えています。 お知恵を貸してください。
- 締切済み
- オフィス系ソフト
- ＶＢＡ 行の削除
全くの初心者で、初めて質問させていただきます。 Ａ列には、数字・空白・文字を入力したセルが混在しています。 そのＡ列の数字の内 0 のセルが入力されている行のみを削除するＶＢＡの記述の仕方を教えて下さい。 宜しく御願い致します。
- ベストアンサー
- Windows XP
お礼
ありがとうございました。やりたいことができました。本当に助かりました。