excell宏的应用

Sub Macro1()
'
' Macro1 Macro
'
' 快捷键: Ctrl+z
'

Dim i As Integer
Dim str As String
Dim rowmax As Integer '最大行号

rowmax = 100
For i = 1 To rowmax
    str = i & ":" & i
    Range(str).Select
    If Selection.RowHeight = 12 Then
     Selection.RowHeight = 18
   
    End If

Next
End Sub