一列数据240行，每隔10行，一种颜色（每种颜色不一样）

kongl931030

一列数据240行，每隔10行，一种颜色（每种颜色不一样）如下图

kongl931030

用VBA怎么写

有4地

手动一个个填，

kongl931030

有4地 发表于 2018-4-27 14:53
手动一个个填，

呃，我的数据很多。
所以没办法手动加。
只要有10+以上的颜色就好。
用了条件格式。但是换一张表，就要重新设置，好麻烦

有4地

kongl931030 发表于 2018-4-27 14:57
呃，我的数据很多。
所以没办法手动加。
只要有10+以上的颜色就好。

240行，每10行一种颜色。那你这个就是要24种颜色。

stonelee2018

Sub ttt()
Dim i, k As Integer
k = 5
For i = 1 To [a65536].end(xlup).row  Step 10
Cells(i, 1).Resize(10, 1).Interior.ColorIndex = k
k = k + 1
Next
End Sub

fyure

Sub aa()
j = 1: k = 3
For i = 1 To 240
Cells(i, 1).Interior.ColorIndex = k
j = j + 1
If j = 11 Then
j = 1
k = k + 1
End If
Next
End Sub

爱疯

Sub test()
    Dim i, r
    r = 10
    For i = 1 To 240 Step r
        Cells(i, 1).Resize(r).Interior.Color = RGB(255 * Rnd, 255 * Rnd, 255 * Rnd)
    Next i
End Sub

这样可以吗

kongl931030

有4地 发表于 2018-4-27 14:59
240行，每10行一种颜色。那你这个就是要24种颜色。

嗯嗯  我主要是想要以后不用一直写条件格式。
用vba之后的表就可以复制代码就好了。
不用24颜色。有10钟颜色就可以

skinnyfat

Sub FillColor()
ActiveSheet.Select

For i = 1 To 24
Range(Cells(((i - 1) * 10) + 1, 1), Cells(i * 10, 1)).Select

    With Selection.Interior
        .Pattern = xlSolid
        .ColorIndex = i
    End With
    Next i
   
End Sub