第2个回答 2010-07-02
Sub 填充()
For i = 1 To 100
Sheets(1).Cells(1, i).Select
With Selection.Interior
.PatternColorIndex = xlAutomatic
.Color = 255
End With
Sheets(1).Cells(i, 1).Select
With Selection.Interior
.PatternColorIndex = xlAutomatic
.Color = 1
End With
Next
End Sub