09/01/11 20:24:15
>>494
努力だけは認めるが、無駄が多すぎる。
店名が同じかどうか判定するのに、わざわざワークシート関数なんか使わなくてもVBAだけでやればいいだろうに。
Sub test()
r = 2
While Cells(r, 3) <> ""
If Cells(r, 3) <> Cells(r - 1, 3) Then
With Range(Cells(r, 1), Cells(r, 4)).Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlThick
End With
End If
r = r + 1
Wend
End Sub