作者：乔山办公网日期：
返回目录：excel表格制作
Sub s1()
Dim i As Integer
For i = 1 To 100
Cells(i, 1) = i
Next
End Sub
Sub s2()
Dim c As Range
For Each c In [b1:b100]
c = c.Row
Next
End Sub
For i = 1 To 10000 If Range("g"& i ) = "" Then rows(i).Font.Bold = True rows(i).Font.Italic = True end if next