驚愕のexcelmatchVBA入門！9割が知らない行抽出と書式設定の極意

日々Excelを使う中で「特定の文字列を含む行を抽出したい」「条件に一致したセルを色付けしたい」と思ったことはありませんか？検索しても断片的な情報ばかりで、完全に理解できずモヤモヤしている人は多いはずです。この記事ではexcel match VBAを軸に、初心者でも再現可能な形で「抽出」から「強調表示」までを徹底解説します。実際の現場で役立つ知識をギュッと詰め込んでいるので、最後まで読むことで圧倒的に理解が深まります。

なぜexcel match VBAが業務改善に効くのか
1. 人手で探す時間をゼロにできる
2. Excel標準機能では限界がある
excel match VBAを使った基本の流れ
実践！セル抽出と書式設定のサンプルコード
1. 文字列を含む行を抽出するコード
2. セル内の文字列を強調表示するコード
excel match VBA活用のコツと落とし穴
excel match VBAに関する疑問解決
今すぐパソコンやスマホの悩みを解決したい！どうしたらいい？
まとめ

なぜexcel match VBAが業務改善に効くのか

Excelのイメージ

人手で探す時間をゼロにできる

大量のデータから手作業で特定の文字列を探すのは非効率です。VBAとMATCH関数を組み合わせることで、自動的に位置を特定し、必要な行だけを取り出せるようになります。つまり、探す時間をゼロにし、本当にやるべき分析や判断に時間を使えるのです。

Excel標準機能では限界がある

フィルタや検索だけではOR条件やAND条件を複数組み合わせて使うのが難しい場合があります。そこでVBAを導入すると、「納豆またはキムチを食べた日だけ抽出」や「サラダとスープ両方を含む行だけ抽出」といった柔軟な検索が可能になります。

excel match VBAを使った基本の流れ

実際のマクロを作る前に、どのような流れで処理するかを整理しておきましょう。理解してからコードに触れることで習得が早まります。

検索対象となる範囲を設定します。
MATCH関数で検索文字列の位置を取得します。
該当するセルを判定し、行全体を抽出します。
見つかったセルには色付けや太字などの書式を適用します。

この流れさえ覚えれば、どんなデータにも応用が効きます。

実践！セル抽出と書式設定のサンプルコード

文字列を含む行を抽出するコード

以下のコードは「納豆」や「キムチ」を含む行を抽出する例です。OR条件とAND条件を切り替えられるのがポイントです。



Sub ExtractRows()

    Dim ws As Worksheet

    Dim rng As Range, c As Range

    Dim keywords As Variant

    Dim condType As String
    Set ws = ThisWorkbook.Sheets("食事記録")

    Set rng = ws.Range("A4:E20") ' データ範囲

    keywords = Split(ws.Range("B1").Value, " ") ' 複数条件

    condType = ws.Range("B2").Value ' OR か AND を指定
    For Each c In rng

        Dim matchCount As Integer

        matchCount = 0

        Dim k As Variant

        For Each k In keywords

            If InStr(1, c.Value, k, vbTextCompare) > 0 Then

                matchCount = matchCount + 1

            End If

        Next k

If (condType = "OR" And matchCount > 0) Or _ (condType = "AND" And matchCount = UBound(keywords) + 1) Then c.EntireRow.Interior.Color = vbYellow End If Next c End Sub

セル内の文字列を強調表示するコード

セル内の該当部分を赤の太字にするにはCharactersプロパティとInStr関数を活用します。



Sub HighlightText()

    Dim ws As Worksheet

    Dim rng As Range, c As Range

    Dim keyword As String

    Dim pos As Long, startPos As Long
    Set ws = ThisWorkbook.Sheets("食事記録")

    Set rng = ws.Range("A4:E20")

    keyword = ws.Range("B1").Value

For Each c In rng startPos = 1 Do pos = InStr(startPos, c.Value, keyword, vbTextCompare) If pos > 0 Then c.Characters(pos, Len(keyword)).Font.Color = vbRed c.Characters(pos, Len(keyword)).Font.Bold = True startPos = pos + Len(keyword) Else Exit Do End If Loop Next c End Sub