I am getting a syntax error in my function ArrayUnion below. Clearly I am passing Vector1 and Vector2 incorrectly to the function. What am I doing wrong?
VBA Code:
Option Explicit
Sub Convert()
Dim Vector1
Dim Vector2
Dim Vector3
Dim k As Integer
Vector1 = Create_Vector(Sheets("Sheet1").Range("A4:D8"))
Vector2 = Create_Vector(Sheets("Sheet1").Range("A10:D14"))
Vector3 = ArrayUnion(Vector1, Vector2)
End Sub
Function ArrayUnion(va1, va2 )
Dim i As Long, Upper As Long
If TypeName(va1) = "Empty" Then
va1 = va2
Else
Upper = UBound(va1)
If LBound(va2) = 0 Then Upper = Upper + 1
ReDim Preserve va1(LBound(va1) To UBound(va1) + UBound(va2) – LBound(va2) + 1)
For i = LBound(va2) To UBound(va2)
va1(Upper + i) = va2(i)
Next i
End If
ArrayUnion = va1
End Function
Last edited by a moderator: