行の高さの変更

たけうちとおる (2011年5月18日) | コメント(0) | トラックバック(0)

Sub height_henkou()
Dim L As Integer
Dim C1 As Integer '確実に文字が入っている列を指定する1
Dim C2 As Integer '確実に文字が入っている列を指定する2
Dim loopflg As Boolean
C1 = 2
C2 = 3
L = 1 '初期値
loopflg = False
Do
L = L + 1
If IsEmpty(Cells(L, C1).Value) And IsEmpty(Cells(L, C2).Value) Then
loopflg = True
End If
Loop Until loopflg
Rows(2 & ":" & L).Select
Selection.RowHeight = 28
End Sub