|
▼まつ君 さん:
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の値が2、A6:A7の値が3の時
>A5(1から2)、A8(2から3)の所にC列まで横に罫線の太線を
>引くにはどうすればよいですか
>AのNo.の値はA2からA5まで1になるときもありまり、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
|
|