質問: どなたかExcelのマクロのコード サンプルで作って頂けませんか。 ボタンを押すと添付した画像のような感じに C列の文字が同じところまでA列~O列までセルを自動で塗りつぶして 色分けされて見やすくなるようにしたいです。 ・塗り潰す色は何でも良く、「赤・青・赤・青」のように交互でも大丈夫です。 ・C列は画像の通り、空白行が存在します。 ・データ開始行は16行目です。
回答: 一例です。 Sub sample1() Dim myBuf As Variant Dim myR As Long, myC As Long myC = 32 For myR = 16 To Cells(Rows.Count, 3).End(xlUp).Row If Cells(myR, 3).Value <> "" And Cells(myR, 3).Value <> myBuf Then myBuf = Cells(myR, 3).Value myC = myC + 1 If myC > 46 Then myC = 33 End If Range(Cells(myR, 1), Cells(myR, 15)).Interior.ColorIndex = myC Next myR End Sub 追加オーダーはご容赦ください。