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

質問

Excelマクロである条件のセル間(行方向)に色を付けたい
例えば、エクセルのあるセルに"A"が書かれていた場合、次にその行のセルに"円"と書かれているまでは、続く行のセルには色をつけるようにしたいのですが、良い方法を教えて頂けないでしょうか？

対象となるシート（列方向）に、今回のパターンが複数存在し、
それぞれにこの処理を実施することを想定しております。

（イメージ画像を添付します）

お恥ずかしい話、当方VBAには明るくありませんので、簡単なサンプルコードを示して頂けると幸いです。

回答No.3

jcctaira · ベストアンサー

Sub 背景色付け()
　Const 開始文字 = "A"
　Const 終了文字 = "円"
　Const 背景色 = 35
　Dim 検索範囲 As Range
　Dim 条件範囲 As Range
　Dim C As Integer
　Dim R As Integer

　Set 検索範囲 = Range("A1", Cells.SpecialCells(xlCellTypeLastCell))
　For R = 1 To 検索範囲.Rows.Count
　　　Set 条件範囲 = Nothing
　　　For C = 1 To 検索範囲.Columns.Count
　　　　　Select Case Cells(R, C)
　　　　　　　Case 開始文字
　　　　　　　　 Set 条件範囲 = Cells(R, C + 1)
　　　　　　　Case 終了文字
　　　　　　　　 If Not (条件範囲 Is Nothing) Then
　　　　　　　　　　 Set 条件範囲 = Range(条件範囲, Cells(R, C - 1))
　　　　　　　　　　 条件範囲.Interior.ColorIndex = 背景色
　　　　　　　　　　 Set 条件範囲 = Nothing
　　　　　　　　 End If
　　　　　End Select
　　　Next C
　Next R
End Sub

お礼

ありがとうございます！まさにやりたかったことです。