VBA入门代码尝试。

 

Sub colour()
'
' colour Macro
'

'
    Range("A1:C1").Select
    With Selection.Font
        .Color = -16776961
        .TintAndShade = 0
    End With
End Sub

Sub genOddNum()
    Dim i As Integer
   
    For i = 1 To 20
        Worksheets("sheet1").Cells(i, 4) = i
    Next i
   
End Sub