В Excel VBA заполнение массива значениями ячеек является распространенной задачей при работе с большими наборами данных. В этой статье будут рассмотрены несколько методов достижения этой цели и приведены примеры кода для каждого подхода. К концу вы получите полное представление о том, как эффективно заполнять массивы в Excel VBA.

Метод 1: использование цикла
Пример кода:

Dim myArray() As Variant
Dim rng As Range
Dim cell As Range
Dim i As Long
Set rng = Range("A1:A10")
ReDim myArray(rng.Rows.Count)
i = 0
For Each cell In rng
    myArray(i) = cell.Value
    i = i + 1
Next cell

Метод 2: использование свойства Value
Пример кода:

Dim myArray() As Variant
Dim rng As Range
Set rng = Range("A1:A10")
myArray = rng.Value

Метод 3: использование функции транспонирования
Пример кода:

Dim myArray() As Variant
Dim rng As Range
Set rng = Range("A1:A10")
myArray = Application.Transpose(rng.Value)

Метод 4. Использование функции WorksheetFunction.Index
Пример кода:

Dim myArray() As Variant
Dim rng As Range
Set rng = Range("A1:A10")
myArray = WorksheetFunction.Index(rng.Value, 0, 1)

Метод 5. Использование функции WorksheetFunction.Transpose
Пример кода:

Dim myArray() As Variant
Dim rng As Range
Set rng = Range("A1:A10")
myArray = WorksheetFunction.Transpose(rng.Value)

Метод 6: использование присвоения массива Variant
Пример кода:

Dim myArray() As Variant
myArray = Range("A1:A10").Value

Метод 7. Использование метода getRange
Пример кода:

Dim myArray() As Variant
Dim rng As Range
Set rng = Sheet1.getRange("A1:A10")
myArray = rng.Value

Заполнение массивов значениями ячеек в Excel VBA можно выполнить различными способами. В этой статье представлены семь методов, каждый со своим примером кода. Используя эти методы, вы можете эффективно извлекать значения ячеек и сохранять их в массивах, что позволяет выполнять сложные вычисления и манипуляции с данными. Выберите метод, который лучше всего соответствует вашим конкретным требованиям, и соответствующим образом оптимизируйте код Excel VBA.