Dim Rng1 As Range, Rng2 As Range Dim Target As Range Set Rng1 = Range("A1:D5") Set Rng2 = Range("C4:E10") Set Target = Intersect(Rng1, Rng2) MsgBox Target.Addressネタ元 http://www.moug.net/tech/exvba/0050074.html http://officetanaka.net/ex…

Selection.Interior.ColorIndex = xlNoneネタ元 https://www.moug.net/tech/exvba/0110010.html