お世話になります。
添付の様な表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
WINDOWS XP SP3
提示された図では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行毎で間違いありません。(画像の表が間違っていました) この度は本当にありがとうございました!