![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?e8efa67)
エクセルのマクロについて質問です。
『集計』というブックの『集計開始』というシートに
A列 B列 C列
1行目 見出し 見出し 見出し
(商品名) (支店) (個数)
2行目 コメント 空白 空白
3行目 空白 空白 空白
4行目 商品名 支店 個数
5行目 空白 空白 空白
6行目 空白 空白 コメント1
7行目 空白 空白 空白
8行目 空白 空白 コメント2
9行目以降 上記のデータ(見出しを除く)の繰り返し
というデータが入っています。
B列の中に『AAA』という文字が含まれていたら、そのセルを空白に置換し、
含まれていなかったら、そこで処理がとまったりエラーが出たりしないで次のステッップへ進み、
C列の中に『B』という文字が含まれていたら、そのセルを空白に置換し、
含まれていなかったら、そこで処理がとまったりエラーが出たりしないで次のステッップへ進み、
(今は、手作業で編集→置換→検索する文字列の中に『B*』と入力し、
置換後の文字列を空白にしてすべて置換ということをやっています。)
ABC列(データーの入っている行まで)の空白を含む行を一括削除し、
以下のような形にしたいのです。
A列 B列 C列
1行目 見出し 見出し 見出し
(商品名) (支店) (個数)
2行目 商品名 支店 個数
3行目 商品名 支店 個数
・
・
このようにするマクロ文はどのようになりますでしょうか?
A 回答 (1件)
- 最新から表示
- 回答順に表示
No.1
- 回答日時:
作らなくてもある機能は利用した方が早いです。
データ入力済み範囲が選択され、且つ望まない範囲にオートフィルタが設定されていない状態で以下マクロを実行してください。
データの置換や不要行の削除はされていませんが、望みの状態を「表示」していると思います。
置換や不要行の削除がどうしても必要ならば、選択範囲をコピーし、別のところに貼り付けると不要行を含まない表が得られます。
Sub Macro1()
With Selection
.AutoFilter Field:=2, Criteria1:="<>", Operator:=xlAnd, Criteria2:="<>AAA"
.AutoFilter Field:=3, Criteria1:="<>B", Operator:=xlAnd
End With
End Sub
2003にて確認
#次回より、教えて!goo > デジタルライフ > ソフトウェア > Office系ソフト での質問を検討ください。
この回答への補足
早速、また丁寧な回答ありがとうございます。
Office系ソフト で質問すればよかったのですね。
申し訳ありません。
ところでRaistlinさんのやり方を試したのですが、…。
質問文がうまくなく、十分にやりたいことが伝わってなかったようですので、もう少し簡単にオフィス系ソフトで質問いたします。
一応、下記に内容を記しておきます。
<ステップ1>
あるシートのB列に『AAA』という文字を含んでいる行があったら
その行は丸ごと削除する。
また、『AAA』という文字を含んでいなかったら、
エラーなどが出ないで、次のステップ2の処理に移る。
<ステップ2>
ステップ1と同じシートのC列に、『B』という文字を含んでいる行があったらその行は丸ごと削除する。
※この”『B』という文字を含んでいる”という意味は、
『B-』や”『B5』と入力されている場合も含めるということです。
また、『B』という文字を含んでいなかったら、エラーなどが出ないこと。
上記ステップ1からステップ2を一発で行うマクロ文は、
どのようになりますか? 教えてください。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) Excelについて質問です(ver2019) 1 2023/06/30 21:20
- その他(データベース) Accessのクエリで1フィールドの抽出条件設定をNullでなく全角半角含む空白のみの文字列でない文 1 2023/04/24 15:20
- Excel(エクセル) capeofdragonと申します Excel2016を使っておりまして 半角又は全角の任意文字列が 2 2022/10/31 13:51
- Visual Basic(VBA) VBA 改行コードの取り方 1 2022/03/22 14:14
- Visual Basic(VBA) ExcelVBAのマクロについて。 9 2022/05/04 14:50
- Excel(エクセル) 特定文字(数字)で行挿入、挿入された行で合計したい 2 2023/03/13 14:30
- Excel(エクセル) [オートフィルター]機能について 3 2023/02/04 14:32
- Visual Basic(VBA) エクセルVBAで『A列』に新規で数値を入力し『B列』から右方向の空白セルにその値を貼り付ける方法 4 2022/11/05 08:37
- Excel(エクセル) エクセルの条件付き書式 個人シートを参照して集計シートに色付けしたい 1 2023/06/22 00:39
- Excel(エクセル) 列を自動で追加したい 3 2022/07/11 12:58
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
xmlファイル内の文字列置換
-
正規表現で、特定の文字列を含...
-
VBA(Excel)でファイル内の文字...
-
c# ビルド直前にコードを置換で...
-
csvデータ ダブルクォーテ...
-
正規表現 特定の文字列を含む行...
-
秀丸で、ダブルクォーテーショ...
-
Excel・ユーザーフォームの情報...
-
スペースで区切られた氏名から...
-
EXCEL VBA でCTRL+Fのダイア...
-
各項目がダブルクォーテーショ...
-
住所編集のマクロを組んでいて...
-
CSVファイルの中で、「 , 」カ...
-
英数字のみ全角から半角に変換
-
エクセルで数値を全角文字(カ...
-
EXCELからCSVにすると余計なカ...
-
VBA 文字に半角が含まれて...
-
IEからEdgeへの移行に伴うIMEの...
-
Excel VBAでPDFファイルをMicro...
-
マクロを使ってフォルダー内に...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
スペースで区切られた氏名から...
-
VBA 置換文字がみつからない時
-
各項目がダブルクォーテーショ...
-
csvデータ ダブルクォーテ...
-
エクセル VBA 複数条件一...
-
正規表現で、特定の文字列を含...
-
csvデータのダブルクォーテーシ...
-
xmlファイル内の文字列置換
-
PowerShellでテキストの空白行...
-
ハングルを日本語に置換
-
C#で空白行を削除する方法
-
複数のパワーポイントファイル...
-
Excel・ユーザーフォームの情報...
-
C言語でテキストファイルの内容...
-
Eclipse 改行後のタブ
-
テキストファイル中の文字列の置換
-
正規表現 特定の文字列を含む行...
-
EXCEL警告「置換対象のデータが...
-
○文字目に文字挿入
-
VBscriptで「改行」と「"」を置...
おすすめ情報