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.
アバター画像
大阪生まれの大阪育ち。システム開発系、パソコン教室運営管理、パソコンサポートの仕事を中心に10年以上IT業界に生息しているけれども、実はHTMLやCSSが苦手。 パソコン教室やパソコンサポートなどでお客様から「ありがとうございます。」という感謝の言葉をいただいたときにやりがいを感じる。もっと自分のITのスキルで人様のお役に立ちたいと考え、義経ITクラブを開業して日々を送る。

ホンマルラジオ大阪スタジオプロデューサー森山義章のホンマル☆ラジLive♬(配信中)

この番組では

IT起業家・著者・ITインストラクター・WEB集客コンサルタント・システムエンジニア・プロデューサーとしてマルチに活躍し続ける、

書籍は出版後24時間以内でAmazon言語学の参考図書部門第1位獲得、

Amazon女性と仕事 (Kindleストア)部門第1位獲得のベストセラー著者、Podcast配信後わずか3日以内に教育ハウツー部門でランキング第1位獲得(日本)、

1ヶ月以内にたった7つのブログ記事でGoogle検索順位1位を獲得したWEB集客専門家、

出品後半年以内でココナラITサポートおすすめ順第1位獲得のITコンサルタント、

30歳を過ぎてADHD・高機能自閉症と診断されたITプロデューサー・森山義章が人間関係、健康、お金、仕事、ビジネスなど望む結果を出せる思考行動へと変えていきます。

コメントを残す

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

CAPTCHA