對於每個循環，插入顏色

Question

有關每個循環的插入顏色使用的更多相似問題。

問題：該照片包含40個銷售地區的月銷售額。使用for循環爲每個其他行（第3,5行等）灰色內部的顏色寫一個子。顏色只有日期範圍，列A至M

  http://postimg.org/image/vhvj83wwd/ 

現在我選擇整個currentregion和，但我不知道如何選擇每隔一行變成灰色

我的代碼如下：

Sub color() 
Dim rngcolor As Range, rngcolors As Range, shtcolor As Worksheet 

Set shtcolor = Application.Workbooks("Sales Data").Worksheets("sheet1") 

Set rngcolors = shtcolor.Range("a1").CurrentRegion 
Set rngcolors = rngcolors.Offset(1, 1).Resize(, rngcolors.Columns.Count - 1) 

rngcolors.Select 

For Each rngcolor In rngcolors 
    rngcolor.Font.Interior = vbgrey 
Else 

Next rngcolor 

End Sub 

非常感謝！如果你能幫助我，我還有一個類似的問題insert color , For each loop 我希望你能幫助我!!!!!謝謝！！！

Answer 1

您可以使用For.Next循環有臺階

For i = rngcolor.Cells(1).Row to rngcolor.Cells(rngcolor.Cells.Count).Row Step 2 

，或者你可以在For.Each循環

If rngcolor.Row Mod 2 = 1 Then