Excel VBA填充单元格

录制宏，再修改

Sub Macro1()
'
' Macro1 Macro
'
'
For I = 1 To 20
    Range("A" & I).Select
    ActiveCell.FormulaR1C1 = "T" & I
    Range("C" & I).Select
    ActiveCell.FormulaR1C1 = "Test" & I
Next
End Sub