- Excel VBA 質問スレ Part43 [無断転載禁止]©2ch.net
599 ：デフォルトの名無しさん[sage]：2016/10/28(金) 00:50:53.59 ID:2KwqNiX5 - >>592
セル範囲の引き算
Forでひたすらループする方法、言うのは簡単だけど実装は微妙に面倒だった
取得と言うよりは再構築してる
Sub Macro1()
Set rng1 = Range("A1:D5")
Set rng2 = Range("C4:E10")
s = ","
For Each c In rng1
s = s & c.Address(0, 0) & ","
Next
For Each c In rng2
s = Replace(s, "," & c.Address(0, 0) & ",", ",")
Next
a = Split(s, ",")
Set t = Range(a(1))
For i = 2 To UBound(a) - 1
Set t = Union(t, Range(a(i)))
Next
Set Target = t
End Sub
|
|