2019年4月19日 / 最終更新日時 : 2019年11月8日 mouri49 Excel VBA

ExcelVBAで隣り合うセルが一致した行に色をつける

この記事では当方が実際にご相談いただいた内容をまとめております。
隣り合うセルが一致したデータを塗りつぶしたいという方向けの記事です。

ExcelVBAで隣り合うセルが一致した行に色をつける方法

こんなことで困っていませんか？
隣り合うセルが一致した行に色をつけたい。けれども、条件付き書式で設定してもうまくいかない。
Excelの機能で隣り合うセルが一致した行を塗りつぶしたい。けれども、Excelの機能ではできそうにない。
条件付き書式でも隣り合うセルが一致した行を塗りつぶすことはできますが、ExcelVBAを駆使すればとてもシンプルに設定できます。
ExcelVBAで隣り合うセルが一致した行を塗りつぶす方法をまとめてみました。

ExcelVBAで隣り合うセルが一致した行に色をつけるコードの作成


「開発」タブをクリック
「Visual Basic」をクリック
「隣り合うセルが一致した行に色をつけるコード」の入力

隣り合うセルが一致した行に色をつけるコードの解説

まず隣り合うセルが一致した行に色をつけるためにどんな処理を実装しないといけないかを紙に書き出してみましょう。
今回のコードだと主に必要な処理は以下の2つです。

  • 最終行まで繰り返す
  • A列とB列が一致したときに行を塗りつぶす

ExcelVBAのコードだとわずか8行で書けます。
しかも処理も一瞬のため作業効率を上げたい場合は条件付き書式を使用するよりもExcelVBAでコードを作成した方が早いです。

プログラミング作成に慣れていないうちはコードを作成する前に紙に書き出して考えるようにしましょう。

ExcelVBAで隣り合うセルが一致した行に色をつけるボタンにマクロを登録

手順については「ExcelVBAでブックのシート名を検索して見つかったときにシートをアクティブにさせる方法」の記事の「シート検索ボタンにマクロを登録」を参照ください。

ボタンをクリックして隣り合うセルが一致した行に色をつけるマクロの実行


作成した「隣り合うセルが一致した行を塗りつぶしボタン」をクリック


隣り合うセルが一致した行が塗りつぶされます。

結論（まとめ）

「ExcelVBAで隣り合うセルが一致した行に色をつける方法」を解説しました。

  • ExcelVBAで隣り合うセルが一致した行に色をつけるコードの作成
  • ExcelVBAで隣り合うセルが一致した行に色をつけるボタンにマクロを登録
  • ボタンをクリックして隣り合うセルが一致した行に色をつけるマクロの実行
The following two tabs change content below.
アバター画像
Twitter のプロフィールFacebook のプロフィールMy Instagram profile

mouri49

代表取締役 ： デジネスラボ株式会社
100局1,000パーソナリティのリーダーホンマルラジオ本部プロデューサー恵澤舜元（えざわよしゆき）。 代表取締役を務めるデジネスラボ株式会社が1人社長で法人化後わずか2年以内に株式会社IOBI様より大阪市約11万社の中から大阪市を代表する企業100選に選出された。 【選出企業様記事一例】 ミズノ株式会社様（大阪市を代表する企業100選） 株式会社公文教育研究会（KUMON）様（大阪市を代表する企業100選） パナソニックホールディングス（地域を代表する企業100選） ホンマルラジオBMS局開局後2年半年以内で斎藤一人さんの弟子宮本真由美さんの『人生がオドロクほどなんとかなる！まゆみのなんとかなる♡ラジオチャンネル！』年間30万回再生を抑えて2週連続30分番組の全国総合ランキング1位を獲得ホンマルラジオ30分番組『みんなのビジネスネタが見つかるBMSラジオ』 ホンマルラジオBMS局開局後わずか5カ月以内で全国1位ホンマルラジオ10分番組『BMSビジネスネタチャンネル』年間10万回再生突破
カテゴリー
Excel VBA、ブログ

コメントを残す

メールアドレスが公開されることはありません。 ※ が付いている欄は必須項目です

CAPTCHA