ExcelVBAで隣り合うセルが一致した行に色をつける
この記事では当方が実際にご相談いただいた内容をまとめております。
隣り合うセルが一致したデータを塗りつぶしたいという方向けの記事です。
目次
ExcelVBAで隣り合うセルが一致した行に色をつける方法
こんなことで困っていませんか？
隣り合うセルが一致した行に色をつけたい。けれども、条件付き書式で設定してもうまくいかない。
Excelの機能で隣り合うセルが一致した行を塗りつぶしたい。けれども、Excelの機能ではできそうにない。
条件付き書式でも隣り合うセルが一致した行を塗りつぶすことはできますが、ExcelVBAを駆使すればとてもシンプルに設定できます。
ExcelVBAで隣り合うセルが一致した行を塗りつぶす方法をまとめてみました。
ExcelVBAで隣り合うセルが一致した行に色をつけるコードの作成
「開発」タブをクリック
「Visual Basic」をクリック
「隣り合うセルが一致した行に色をつけるコード」の入力
隣り合うセルが一致した行に色をつけるコードの解説
まず隣り合うセルが一致した行に色をつけるためにどんな処理を実装しないといけないかを紙に書き出してみましょう。
今回のコードだと主に必要な処理は以下の2つです。
- 最終行まで繰り返す
- A列とB列が一致したときに行を塗りつぶす
ExcelVBAのコードだとわずか8行で書けます。
しかも処理も一瞬のため作業効率を上げたい場合は条件付き書式を使用するよりもExcelVBAでコードを作成した方が早いです。
プログラミング作成に慣れていないうちはコードを作成する前に紙に書き出して考えるようにしましょう。
ExcelVBAで隣り合うセルが一致した行に色をつけるボタンにマクロを登録
手順については「ExcelVBAでブックのシート名を検索して見つかったときにシートをアクティブにさせる方法」の記事の「シート検索ボタンにマクロを登録」を参照ください。
ボタンをクリックして隣り合うセルが一致した行に色をつけるマクロの実行
作成した「隣り合うセルが一致した行を塗りつぶしボタン」をクリック
隣り合うセルが一致した行が塗りつぶされます。
結論（まとめ）
「ExcelVBAで隣り合うセルが一致した行に色をつける方法」を解説しました。
- ExcelVBAで隣り合うセルが一致した行に色をつけるコードの作成
- ExcelVBAで隣り合うセルが一致した行に色をつけるボタンにマクロを登録
- ボタンをクリックして隣り合うセルが一致した行に色をつけるマクロの実行
Follow me!
最新記事 by mouri49 (全て見る)
中小企業デジタル化応援隊事業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プロデューサー・森山義章が人間関係、健康、お金、仕事、ビジネスなど望む結果を出せる思考行動へと変えていきます。