再々投稿【マクロVBA】「特定行の列内で違う数値(アルファベット)があるか確認、無ければブックの削除」何度も同じような質問をしてしまい、申し訳ございません。本番用のシートは載せられないので、似た構成のシートを作成・スクショを添付して質問していたのですが、その構成が間違っていた為、教えて頂いたコードから列アドレスと検索文字を変更して実行しても上手く処理できませんでした…。行の構成も含めて本番用のシートと同じ構成の質問シートのスクショを作成して再投稿させて頂きます。シート自体も本番用シートの文字列を伏字にしたものも作成・下記URLにアップしております。https://tadaup.jp/BPDdC2LJ.xlsx●質問内容特定ワードの行以外を削除、列毎に入っているデータ内に違う値があるか確認、問題がないブックやフォルダは削除して、エラーブックのみを残したいです。●検索場所「作業用」フォルダ内の全サブフォルダ●フォルダパス…\u0026quot;C:\\Users\\ユーザー名\\OneDrive\\デスクトップ\\作業用\u0026quot;●検索範囲1…A列が「総合職」の行 ※仮名●検索範囲2…E~J列●検索ワード…E~Jそれぞれの列内で異なる「値」の検出●作業①A列が「総合職」以外の行を削除②列毎(列B~F)に「異なる値(アルファベット)が存在するか」確認※「1行目の値を基準にして」でも可③問題なしの為、ブックを削除 →フォルダ内全て問題なしの場合、フォルダを削除※エラーのブックのみを残したいですVBA未熟者が考えた手順ですので、不備がありましたらご指摘・修正して頂いて結構です。改めて作業全体のコードをご提示して頂けますと有り難いです。以上、よろしくお願いいたします。

1件の回答

回答を書く

1198592

2026-01-27 12:25

+ フォロー

やはりシートのレイアウトが想定していたものと全然違います。もっと早くに見せてもらうべきでした。
「削除判定」の以下を変更してみてください。

.Range(\u0026quot;A1\u0026quot;).CurrentRegion.AutoFilter 1, \u0026quot;\u0026lt;\u0026gt;総合職\u0026quot;
.Range(\u0026quot;A1\u0026quot;).CurrentRegion.EntireRow.Delete

.UsedRange.AutoFilter 1, \u0026quot;\u0026lt;\u0026gt;総合職\u0026quot;
.UsedRange.EntireRow.Delete

ただし 1 行目には「総合職」は無いものとしています。そうでないケースもあり得るならば返信ください。

うったえる有益だ(0シェアするブックマークする

関連質問

Copyright © 2026 AQ188.com All Rights Reserved.

博識 著作権所有