エクセルVBAを修正したい

質問

数字を入力すると記号に変換になるマクロを
元ファイルを修正して作成したいのですが、
同一シートにC9：M33,C9：Y25,O27：Y29といった
範囲の異なる表がある場合はセル範囲をどのように記述すれば良いでしょうか？

StartCol = 4 '開始列
EndCol = 20 '終了列
BlankCount = 0
I = 16 '開始行
L = 14 '行の指定
Do While Len(Range("B" & CStr(I)) & Range("C" & CStr(I))) > 0
For J = StartCol To EndCol
If Len(ActiveSheet.Cells(L, J).Value & ActiveSheet.Cells(L + 1,J).Value) > 0 Then
tmp = ""
If ActiveSheet.Cells(I, J).Value = "×" Or ActiveSheet.Cells(I,J).Value = "中止" Then
Else
If Len(ActiveSheet.Cells(I, J).Value) = 0 Then
K = -1
Else
K = ActiveSheet.Cells(I, J).Value
End If
Select Case K
Case 0
tmp = "×"
Case 1 To 14
tmp = "△"
Case Is >= 15
tmp = "○"
End Select
End If
Next
I = I + 1
If Len(Range("B" & CStr(I)) & Range("C" & CStr(I))) = 0 Then
L = I + 1
I = I + 3
End If
Loop
End Sub

回答No.1

toshi_2000

範囲の異なる表がある場合の指定例です。
Dim hani As Range
Set hani = Union(Range("C9：D10"), Range("D12：E25"), Range("E27：F29"))
For Each moji In hani
Select Case moji.Value
Case 0
tmp = "×"
Case 1 To 14
tmp = "△"
Case Is >= 15
tmp = "○"
End Select
moji.Value = tmp
Next