(Excel VBA) 複数のセル範囲を結合して返すサンプル

join_ranges.bas

' 複数のセル範囲を結合する
Function JoinRanges(ParamArray rs() As Variant)

    Dim c As Long
    Dim i As Long
    Dim k As Long
    Dim r As Variant
    Dim z() As Variant
    
    c = 0

    For Each r In rs
        c = c + r.Count
    Next

    ReDim z(c - 1, 0)
    
    k = 0
    
    For Each r In rs
        For i = 1 To r.Count
            z(k, 0) = r(i)
            k = k + 1
        Next
    Next
    
    JoinRanges = z

End Function