- 495 名前：デフォルトの名無しさん mailto:sage [2009/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
