VBA Добавить массивы в другую третью

Question

Как добавить два динамических массива с одинаковой размерностью, а затем отсортировать их в порядке возрастания этих значений?

Например,

Dim a as Variant 
a = sheets(1).range("B" & firstRow & ":B" & lastRow) 
Dim b as Variant 
b = sheets(1).range("C" & firstRow & ":C" & lastRow) 

firstRow и lastRow правильно определены.

Мой вопрос: как добавить массив b после массива a. Предположим, что а = (8,3,5) и Ь = (1,7,2). Массив c должен быть (8,3,5,1,7,2). Я пробовал следующее без успеха. Может ли кто-нибудь объяснить, почему он не работает?

Dim c as variant 
c = Join(b, Join(a, ",")) 

Чтобы отсортировать значения в массиве c, мне нужно создать функцию или выполнить только одну операцию?

Спасибо

Последняя версия

я изменил на следующий код:

Dim aArray() As variant 
aArray = aRange 
Dim bArray() As Variant 
bArray = bRange 
Dim cArray() As Variant 
cArray = aArray 
Dim i As Integer 

For i = 1 To UBound(coutArray) 
ReDim Preserve cArray(UBound(aArray)+1) As Variant 
cArray(i + UBound(aArray),1) = bArray(i,1) 
Next i 

Я пытаюсь добавить CARRAY() в конце aArray, где эти два массива будут введены в cArray(). Почему это не работает? Я хотел бы понять.

Я также пробовал, создав функцию (How do I Merge two Arrays in VBA?), но тогда я как вызову процедуру? Это не работает.

Спасибо!

Answer 1

Вы хотите добавить массивы или диапазоны excel?

a и b находятся в вашем примере только объекты диапазона Excel. Не массивы.

В любом случае: Heres хорошая статья для присоединения массивов: How do I Merge two Arrays in VBA?

А вот статья для сортировки: VBA array sort function?