マクロ 行の高さの変更を繰り返す

2行目から134行目までの「行の高さ」を１行おきに「4」にしたいのですが
「マクロの記録ボタン」の「相対参照」で2行分を作って、繰り返してみると
結合しているセルが有るせいか、2～134行目全てが「4」になってしまいます
仕方ないので、ネットで調べて書いてみたのですが、

Sub Macro1()
Dim i As Integer
For i = 2 To 134 Step 2
Rows("i:i").RowHeight = 4
Next i
End Sub

こんな感じで作ったらエラーが出ました
マクロは、かなり久しぶりなので、どう書いたらいいのか教えてやって下さいませ

No.1 ベストアンサー 回答者： keithin 回答日時： 2011/12/03 02:13

sub macro1()

　dim i as long
　for i = 2 to 134 step 2
　　rows(i).rowheight = 4
　next i
end sub
といった具合で。

この回答へのお礼

チョットしたことで動かないんですね
ありがとうございました

お礼日時：2011/12/03 02:44