How to merge two variables into one in VB 6? 1

[Niki_S]

I have two arrays as below and I want to merge them into one. How can I do that?

Dim vArray() As Variant
Dim vArray1() As Variant

vArray = oXLSheet.Range("E12:E140").Value
vArray1 = oXLSheet.Range("U12:U140").Value

 cboOperation.Clear
   For lngRow = LBound(vArray, 1) To UBound(vArray, 1)
    If Not IsEmpty(vArray(lngRow, 1)) Then
            cboOperation.AddItem vArray(lngRow, 1)
    End If
   Next lngRow

For lngRow = LBound(vArray1, 1) To UBound(vArray1, 1)
    If Not IsEmpty(vArray1(lngRow, 1)) Then
            cboOperation.AddItem vArray1(lngRow, 1)
    End If
   Next lngRow

Thank You.

 

[strongm]

The 'strep 4' works fine if you apply it to the individual ranges BEFORE you stack them into a single array. So put the step 4 into the vbVStack procedure. Of course then vbVStack won't work for ranges where you don't want to miss data out. Have a think how you might deal with that ...

 

[Niki_S]

Can I use Skip function for this? If it is so how can I use it?

Thank you.

 

[strongm]

Skip? VB does not have a Skip function. What I was hinting towards was to perhaps try using a "[tt]For next ... Step stepsize[/tt]" loop in the vbVStack function - you might even consider passing [tt]stepsize[/tt] in as a parameter so that you could easily deal with different distributions of valid data in your columns