参照演算子を設定して共通部分を取得していく【ExcelVBA】

複数のセル範囲を複数の半角スペースで繋いだ場合、指定したセル範囲の共通のセル範囲の参照になる。

その為、名前を指定し、セル範囲を2つ用意する。

その交差した部分を返す形をとる。

名前を指定する為に、Range.CreateNamesメソッド →指定した範囲の名前を作成

こちらで選択範囲から名前を作成、そして上端行と左端列を対象にするので

引数TopとLeftをTrueに設定し、BottomとRightはFalseにする。

引数は省略可能で、省略した場合、既定値がFalseなので問題ない。

過去のブックや共通のブックで不要な名前がある場合削除しておきたいので削除する命令も追加した。

ｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰ

実際に使用したサンプルコード

'警告を表示せず既定設定にする
Application.DisplayAlerts = False

'名前用の変数を用意
Dim name As name

'このブックの名前のコレクションを順番にnameにセット
For Each name In ThisWorkbook.Names

'名前は削除
name.Delete

Next

'指定したセル範囲から名前を作成
Range("B7").CurrentRegion.CreateNames True, True, False, False