excel - 对于下一个循环(初学者)

Question

我想将灰色单元格复制到行，但只复制最后一列灰色单元格。

Answer 1

不需要嵌套循环

Sub Test()
Dim r As Integer, c As Integer

r = 3
For c = 3 To 21 Step 3
    Cells(r, 1) = Cells(1, c)
    r = r + 1
Next c
End Sub