"v" was a typo....

I think I undertand this except for one point....

In the else portion what I really want was:


a3(count,1) = a1(i,1) & a1(i,2) & a2(i,2) &......&a2(i,k-1) (inclusive
of all the dimesions between 2 and k-1 on a2.

Would something like this work?

Function BuildArray(a1,a2)
Dim a3(1,1)
count = 0
k = ArrayDimensions(a2)
For i = 1 to UBound(a1,1)
For j = 1 to UBound(a2,1)
If a2(j,1) = a1(i,1) Then
count = count+1
ResizeArray a3,count,2
a3(count,1) = a1(i,1) & a1(i,2)
a3(count,2) = a2(i,k)
If k 2 then
For h = 2 to k-1
a3(count,1) = a3(count,1) & a2(i,h)
Next h
End If
End If
Next j
Next i
End Function

.....but how does ArrayDimensions(a2) know that I want the size of the
2nd dimension?

Myrna Larson's response has highlighted that I misspoke (miswrote?) in
my last reply. If a2 has more than 2 dimensions, then a2(i,2),
a2(i,3)...a2(i,k-1) don't make sense; the elements of a2, if it's
3-dimensional for example, need to be indexed with 3 index
numbers--a2(i,j,k).
So in that light, it's not clear what you really want in that case.

Alan Beban

wrote:

"v" was a typo....

I think I undertand this except for one point....

In the else portion what I really want was:


a3(count,1) = a1(i,1) & a1(i,2) & a2(i,2) &......&a2(i,k-1) (inclusive
of all the dimesions between 2 and k-1 on a2.

Would something like this work?

Function BuildArray(a1,a2)
Dim a3(1,1)
count = 0
k = ArrayDimensions(a2)
For i = 1 to UBound(a1,1)
For j = 1 to UBound(a2,1)
If a2(j,1) = a1(i,1) Then
count = count+1
ResizeArray a3,count,2
a3(count,1) = a1(i,1) & a1(i,2)
a3(count,2) = a2(i,k)
If k 2 then
For h = 2 to k-1
a3(count,1) = a3(count,1) & a2(i,h)
Next h
End If
End If
Next j
Next i
End Function

....but how does ArrayDimensions(a2) know that I want the size of the
2nd dimension?