結合セルや空白セルのあるセル範囲から配列として抜き出す【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