Excel VBA -制作棋盘

Sub CreateChessboard()
    Dim i As Integer, j As Integer
    
    For i = 1 To 8
        For j = 1 To 8
            If (i + j) Mod 2 = 0 Then
                Cells(i, j).Interior.Color = RGB(255, 255, 255) ' 白色
            Else
                Cells(i, j).Interior.Color = RGB(0, 0, 0) ' 黑色
            End If
        Next j
    Next i
    
    Range("A1:H8").ColumnWidth = 3 ' 设置列宽
    Range("A1:H8").RowHeight = 15 ' 设置行高
End Sub