Excel VBAの二重ループの記載方法について

Question

Excel VBAの二重ループについて

セルG2～セルT19までの、セルの色をカウントしたいのです。
その色のついたセルのカウント結果を、セルV2～X１９まで転記したいのです。

カウントの条件は、

G2～セルT２⇒V2～X２

G３～セルT３⇒V３～X３

G４～セルT4⇒V4～X4
・
・
・
G19～セルT19⇒V19～X19

Sub Macro1()
Dim i As Long
For i = 22 To 24
For j = 2 To 7

Cells(j, i) = 色数(Cells(1, i).Interior.Color)

Next j
Next i
End Sub

Function 色数(A As Long)
Dim i As Long, N As Long, j As Long

j = 2
For i = 7 To 20

If Cells(j, i).Interior.Color = A Then
N = N + 1
j = j + 1
End If

Next i
色数 = N
End Function

このコードを考えたのですが、
結果は、G例、H列・・・・・・T列はカウントするのですが、
横にはカウントされないようです。

どこがおかしいのか、ご教示して、いただけないでしょうか？

お手数ですが、よろしくお願いします。

Answer 1

ここがおかしいですか？

Cells(j, i) = 色数(Cells(1, i).Interior.Color)

→Cells(j, i) = 色数(Cells(j, i).Interior.Color)

Comments

[naonaokeiyu]

→Cells(j, i) = 色数(Cells(j, i).Interior.Color)

これにすると全部値が0になります。

Cells(1, i)は色を参照しています。