| |
▼まつ君 さん：
ponponです。こんばんは。
NO.の変わるところで、線を引くということなら
Sub test()
Dim myRng As Range
Dim r As Range
Set myRng = Range("A2", Range("A65536").End(xlUp))
For Each r In myRng
If r <> r.Offset(1, 0) Then
r.Resize(1, 3).Borders(xlEdgeBottom).Weight = xlMedium
End If
Next
End Sub
こんな感じでいけるかな？
間違っていたらごめんなさい。
>下記のようにA2：3の値が1でA4：A5の値が２、A6：A7の値が３の時
>A5（１から２）、A8（２から３）の所にC列まで横に罫線の太線を
>引くにはどうすればよいですか
>AのNo.の値はA2からA5まで１になるときもありまり、No.の同じ値の範囲は変動します。
>よろしくお願いします。
>
> A B C
>1 No. 品名 単価
>2 1 aaa 123
>3 1 bbb 222
>4 2 ccc 456
>5 2 ddd 100
>6 3 eee 50
>7 3 fff 789
|
|
ponpon
- 05/2/23(水) 23:35 -
