- 781 名前：デフォルトの名無しさん mailto:sage [2022/01/29(土) 15:41:11.14 ID:D/yb4xS+0.net]
- 指定した範囲にそれぞれ外枠線を引きたいのですが、量が多くなると時間がかかるのでＵｎｉｏｎを使いたいのですが、
Dim rng As Range, i As Long
Set rng = Range("B2:B3")
Set rng = Union(rng, Range("C2:C3"))
For i = 4 To 50 Step 2
Set rng = Union(rng, Range("B" & i & ":B" & i + 1))
Set rng = Union(rng, Range("C" & i & ":C" & i + 1))
Next i
rng.BorderAround Weight:=xl
