投稿日: 2020年8月19日 投稿者: knsysrangeオブジェクトを融合 Sub SampleStatement() Application.Union(Selection, [D8:E10]).Select End Sub