いつも大変助かっています。

質問

いつも大変助かっています。
質問なのですが・・・
C4～CB254の各セルの行数(row)が、
(1)夫々の列の257行目の値と258行目の値に一致した場合、一致したセル及びその間のセルをcolorindex.7で塗りつぶす。
もしくは、
(2) 夫々の257行目の値と一致した場合、一致したセルを含め、そのセルから行数が増える方向に20セルをcolorindex.7で塗りつぶす。
もしくは、
(3)夫々の列の257行目の値と258行目の値に一致した場合、一致したセル間を一致したセルの周囲も含め、太い罫線で囲む。(隣合うセル間の罫線は細いregularのものとする)

というマクロを組みたいのですが、どのようにすれば宜しいでしょうか？

お忙しいなか申し訳ございませんが宜しくお願い致します。

回答No.1

nattocurry

(1)だけ。

Sub test()
Dim c As Long
For c = 3 To 80
With Range(Cells(Cells(257, c).Value, c), Cells(Cells(258, c).Value, c))
.Interior.ColorIndex = 7
End With
Next c
End Sub

お礼

257 もしくは 258数値がない場合エラーとなってしまうのですが、どうすればよいかわかりますでしょうか！？
他は仕様通りできました。
ありがとうございました。