EXCEL VBA4行毎に枠で囲みたい

質問

お世話になります。

添付の様な表1があります。
これを表2のようにA1から順に4行毎に枠で囲みたいのです。

下記のようなコードを見よう見まねで書いてみましたがうまく動きません。
ごなたかご教授いただけませんでしょうか？
よろしくお願い致します。

Dim i As Long
Dim j As Long
Dim lngYCnt As Long
Dim intXCnt As Long
Dim LastRow As Long

ingYCnt = Worksheets("Sheet1").UsedRange.Rows.Count
intXCnt = Worksheets("Sheet1").UsedRange.Columns.Count

LastRow = Cells(Rows.Count, 1).End(xlUp).Row

With Selection
For i = 5 To LastRow
Range("A" & i & ":F" & j).Select
Selection.BorderAround Weight:=xlMedium
j = j + 5
i = i + 5
Next
End With

どなたかご教授いただけませんでしょうか？
よろしくお願い致します。

環境
EXCEL2003
ＷＩＮＤＯＷＳ XP SP3

回答No.2

mt2008 · ベストアンサー

提示された図では3行でまとめられた個所もあるようですが、4行で良いのですよね？
For Next のStep処理で4行ごとに処理を行いましょう。

Sub Sample()
　　Dim i As Long
　　Dim LastRow As Long

　　LastRow = Cells(Rows.Count, 1).End(xlUp).Row
　　For i = 1 To LastRow Step 4
　　　　Range("A" & i & ":F" & i + 3).BorderAround Weight:=xlMedium
　　Next
End Sub

お礼

mt2008さん、早速のご連絡ありがとうございます！

ご教授いただきました方法で出来ました!！
4行毎で間違いありません。(画像の表が間違っていました)

この度は本当にありがとうございました！

回答No.1

warpspace

カウンタ変数：i を自分で更新しているのが誤りです。
Forループでカウンタ変数の増分を指定する場合は、次のように指定します。

　For カウンタ変数 = 初期値 To 繰り返し回数 Step 加算値
　　　繰り返し回数までの処理
　Next