結合セルや空白セルのあるセル範囲から配列として抜き出す【ExcelVBA】

ワークシートのTextJoin関数を使用して文字列を連結し、その後Split関数で区切り文字で分割し、一次元配列にする

TextJoin　引数　区切り文字、空文字を含むか含まないか（TrueかFalse）、文字列（連結したい文字列）最大252個まで

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

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

Option Explicit
Public Sub Sample()

'配列を入れる為に宣言
Dim 配列 As Variant

'文字列型の変数
Dim 文字列 As String

'TextJoinで指定した範囲を連結して文字列にする
文字列 = Application.WorksheetFunction.TextJoin(",", True, Range("F46", "F58"))

'Split関数で分割する
配列 = Split(文字列, ",")

Stop

End Sub