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

join_range.bas

' 2つのセル範囲を結合する
Function JoinRange(x As Range, y As Range)

    Dim xCnt As Long
    Dim yCnt As Long
    Dim i As Long
    Dim z()

    xCnt = x.Count
    yCnt = y.Count

    ReDim z(xCnt + yCnt - 1, 0)
    
    For i = 1 To xCnt
        z(i - 1, 0) = x(i)
    Next
    
    For i = 1 To yCnt
        z(xCnt + i - 1, 0) = y(i)
    Next
    
    JoinRange = z

End Function