• 締切済み

特定の色がついているセルの削除

結構、技術がいることかもしれないので 素人でできることか分かりませんが相談させてください。 エクセルで、特定の色がついたセルを行ごと削除したいです。 VBAじゃないとできないんでしょうか? せいぜい、エクセルでマクロで簡単なことをするくらいまでの レベルの人間ですが、比較的、簡単にできる方法が あれば教えてください。

みんなの回答

  • HohoPapa
  • ベストアンサー率65% (455/693)
回答No.4

VBAのコードをsample提示するのはヤブサカではありませんが、 どのようなシートなのかなどが未詳なため、提示できないのです。 ・特定の(例えば3列目)のセルの背景色を調べればいいのか ・複数列があって、どこかの列に特定の色が設定されているかを調べるのか ・背景色は、単に背景色を染めたのか、条件付き書式で設定しているのか ・条件を満たす行を削除すればいいのか ・条件を満たさない行だけを別なシートに転記したいのか ・最終行をどのように判定すればいいのか?   例えば、A列は必ず値が埋まっているとか   4列目で色の設定された最終行までが範囲だトカ。 よかったら、これらを説明してみてください。 コードをsample提示できると思います。

全文を見る
すると、全ての回答が全文表示されます。
  • imogasi
  • ベストアンサー率27% (4737/17068)
回答No.3

VBAに拘るようだが、良くない。 勉強をしたいなら、基礎的な、例題をWEBや本で探して、実行してみて、レパートリイーを増やすべきだ。 少なくとも500課題以上は集めないとダメだろう。 その中に質問のようなことは入るかな? ーー 本件の難しいところは、色がついたセルの付け方が、下記のようなものなら(捉えられるなら)簡単だが、実情はどうかな?いろいろなケースがあり得るので、難しい。初心者だから意識もない。 ーーー 標準モジュールに Sub test01() 'Actovesheetのデータ状態に対し実行 For Each cl In Range("a1:k20") 'チェック範囲 これは例えばの話。 If cl.Interior.ColorIndex <> xlNone Then 'セルの塗りつぶしの色が何かしてあれば MsgBox cl.Address '確認用 MsgBox cl.Row '確認用 Rows(cl.Row).EntireRow.Delete 'その行全体を削除 End If Next End Sub ーー  If cl.Interior.ColorIndex <> xlNone Thenで捉えられるならやさしい。  これではだめな場合もあるだろうから。   上記は1行に複数セルに色付けされている場合は、同行第2以後はMsgbox に出ない。 ーー まず、データ例として、 A列 A2:A7 に文字列 aa bb cc dd ee ff B2,D4、F4、B6に色を付けてやって見ては。 其の後質問のケースに迫る。

全文を見る
すると、全ての回答が全文表示されます。
  • p-p
  • ベストアンサー率34% (1925/5512)
回答No.2

エクセルでフィルターかけて ▼押した後、選択条件で普通はワードを指定するのですが 色を選んで そのあと 行を削除するだけです https://blog.hubspot.jp/excel-filter

全文を見る
すると、全ての回答が全文表示されます。
  • p-p
  • ベストアンサー率34% (1925/5512)
回答No.1

エクセルのフィルターで出来ます。 フィルターを設定した後 任意の色でフィルタ抽出をかけて行ごと手動で削除すればいいです。 https://www.helpforest.com/excel/1_data/ex030016.htm https://kirinote.com/excelvba-color-rowdel/ https://www.microsoft.com/ja-jp/biz/smb/column-excel-filter.aspx https://gakumado.mynavi.jp/freshers/articles/55824

ayumcom
質問者

お礼

ありがとうございます。 マクロ、VBAの組み合わせもご紹介いただいていますか? そのページ、拝見したことがあったのですが、難しくて…。

全文を見る
すると、全ての回答が全文表示されます。

関連するQ&A

  • 特定文字列以下のセル削除

    こんにちは。 特定の文字列を含むセルから5行削除するマクロを作りたいのですが、 どのようにするとよいでしょうか。 特定文字列は、各列に1つあり、行の位置はバラバラです。 その特定文字列を含み以下5行分のセルを削除し、上に詰めたいと考えています。 初心者ゆえ、ご指導ください。

  • エクセル 網掛けしてあるセルの行を残してそれ以外の行を削除するVBA

    windows-xp、エクセル2003を使っています。 エクセルデータがA列からU列まであります。 (1000件程かな、時々AA列まである時もあります) G列には、網掛けしてあるセルがあります。 そこで!! 網掛けしてあるセルの行だけを残して、網掛けがされていない行のデータを一気に削除する!というマクロ(VBA)を作りたいのですが、どうすればよいでしょうか? VBAまだ、よくわかっていないので、初心者レベルでわかりやすく教えてくださると助かります。 宜しくお願い致しますm(_ _)m

  • エクセルで特定の文字が含まれる行から特定の文字が含まれる行の削除方法

    エクセルで特定の文字が含まれる行から特定の文字が含まれる行の削除方法 表題のとおりですが、エクセルで特定の文字が含まれる行から特定の文字が含まれる行の削除方法について教えてください。 特定の文字(C列にあります)が含まれている行から5行下の先ほどとは違う文字(これもC列にあります)までを削除したいのです。 それがたくさんあり大変困っております。 エクセルを起動してマクロの記録を行い手作業で5回削除し記録終了としたのですが、 5回以上削除したい場合は操作が行われませんでした。 これをマクロで行うにはどういう式を作ればいいでしょうか? 宜しくお願いします。

  • 特定のセルの桁数を変更したい

    お世話になります。 VBAのマクロを作成していまして、 行毎に処理を行う過程で 特定の数値の入力されたセルだけ桁数を8桁にしたいのですが そのような関数や方法などありませんでしょうか? 自分の探し方が悪いのでしょうか? どうぞよろしくお願い致します。

  • 空白のセルを行削除する。EXCELマクロなのですが・・

    VBA初心者です。 データーをHPから、単純にコピーしてきて、 EXCELに貼り付けています。 フィルターをかけても、画像かなにかがセルに張り付いているのか、 空白行をすべて削除できません。 いろいろ試して(HPから、空白セルの行削除について書かれてあるマクロを貼り付けて)動いたのが、このVBAです。 しかし、遅いので、早いVBAに簡略できればいいのですが。。 大体、1000行ぐらいの文字を貼り付けて、3/1ぐらいが空白行です。A行のセルの空白のみを、削除したいのですが。  まったくの素人なので、わかりません。 どうかよろしくお願いいたします。 Sub 空白の削除() x% = Worksheets("sheet1").Range("A65536").End(xlUp).Row For i = x% To 1 Step -1 If Worksheets("sheet1").Cells(i, 1).Value = "" Then Worksheets("sheet1").Rows(i).Delete Next End Sub

  • 急ぎ!色のついたセルを非表示に!!

    たびたび失礼します。 エクセル2000で 色のついたセルだけ非表示にする方法を 教えて下さい。 VBAは素人なのでVBAの場合 捜査方法を詳しくお願いします! 緊急ですー。よろしくお願いいたします

  • 選択セルに色がついている場合に削除して左へ移動

    選択しているセルに色(具体的には何色でもいいのですが、初期設定は黄色)がついているセルを削除して左に移動するマクロを作りたいです。 想定しているのは、 1.選択する行は1列に限定(たとえば、A列) 2.上から順番に色がついているか判定 3.色がついていれば、セルを削除(左側へずれる) 4.次の行の判定(1に戻る) 5.選択しているセルの一番最後まで来たらマクロを終了する という具合のマクロを作りたいのですが、マクロの記録でわかるのは3の行を削除するところだけでした。 繰り返しと選択しているセルの判定がよくわからないのですが、どのようにすれば実現可能かお教えください。 -- Sub 選択セルにいろがついている場合() '【選択したセルに色がついているか判定】 '色がついているときは、削除する Selection.Delete Shift:=xlToLeft '【次のシートへ移る・選択している最後まで繰り返す】 End Sub

  • VBAで色の付いているセルの行削除

    VBAで色の付いているセルの行を削除することは出来ないでしょうか? 量が多すぎて一つ一つ削除すのは大変で間違えて削除してしまいそうなので・・・ - 文字または数字 ■ 色の付いたセル(赤)  A B C D E F・・・ 1- - - - - - 2- - - - - - 3- - - ■ - - 4- - ■ - - - 5- - ■ - - - 6- - - - - - 7- - - ■ - - 8- - ■ - - - 9- - ■ - - - 10- - - - - -       ↓  A B C D E F・・・ 1- - - - - - 2- - - - - - 6- - - - - - 10- - - - - - よろしくお願いします。

  • Excelマクロである条件のセル間(行方向)に色を付けたい

    Excelマクロである条件のセル間(行方向)に色を付けたい 例えば、エクセルのあるセルに"A"が書かれていた場合、次にその行のセルに"円"と書かれているまでは、続く行のセルには色をつけるようにしたいのですが、良い方法を教えて頂けないでしょうか? 対象となるシート(列方向)に、今回のパターンが複数存在し、 それぞれにこの処理を実施することを想定しております。 (イメージ画像を添付します) お恥ずかしい話、当方VBAには明るくありませんので、簡単なサンプルコードを示して頂けると幸いです。

  • エクセルで特定のセル(範囲)を選択出来なくするには?

    エクセルで特定のセル上(範囲内)でクリックしても、そのセルを選択出来ない様に設定したいのですが、やり方がよくわかりません。 本でいろいろ調べてみましたが、「セルの保護」とは違うようです。 よくこの様にしてあるエクセルのソフトを見るのですが、そういう設定をしたいのです。 VBAマクロのプログラム上でそのように設定するのでしょうか? (マクロはある程度わかります) よろしければ御教示下さい。

このQ&Aのポイント
  • スピーカーを通常通りツイーターを耳の高さに合わせて地面の角度に対して平行に置くと、出てくる音はちょうど耳の位置の高さから、つまり顔の前で鳴っています。
  • 下向きに角度を付けて、スピーカーの位置を上げると、スピーカーユニットから直線状に耳はありますが、聴こえる音像の位置はどうなりますか?
  • スタジオなんかではラージモニターは基本上側にあって下向きに角度がついているのを写真で見るので気になりました。後ろにいるクライアントにもきっちり聴こえるようにという配慮か、ミキシングデスクの干渉を緩和するためなのか。はたして音源位置はどこになるのか・・
回答を見る

専門家に質問してみよう