Как перебрать массив и занести в переменную vba?

@aaron_armstrong 

Для перебора массива в VBA можно использовать цикл "For Each". Вот пример кода:

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15

Dim arr() As Variant
Dim element As Variant
Dim result As String

' Заполнение массива данными
arr = Array("apple", "banana", "orange", "grape")

' Итерация по каждому элементу массива
For Each element In arr
    ' Добавление значения элемента в строку результата
    result = result & element & " "
Next element

' Вывод результата
MsgBox result

В этом примере мы объявляем массив arr, заполняем его четырьмя элементами и используем цикл "For Each", чтобы перебрать каждый элемент массива. Значение каждого элемента затем добавляется к строке result с помощью оператора конкатенации "&". В конце мы выводим результат в окне сообщения с помощью функции MsgBox.

Вы можете занести значения массива в любую другую переменную, в зависимости от ваших потребностей. Например, вместо строки result вы можете использовать другой массив, числовую переменную и т.д.