Как вернуть массив в диапазон excel vba

Question

Я пытаюсь получить данные из листа и поместить его в массив, а затем вставить массив на другой рабочий лист. Однако после цикла мой массив возвращает Пустой. Нужно ли мне что-то возвращать из цикла For? Я искал, не нашел никакой идеи.

Sub generate() 
    Dim article_arr() As Variant 
    Dim artCount As Integer 
    Dim filter As Integer 
    Dim RIL_itemCount As Integer 

    'Set PA number 
    filter = Sheet7.Range("B1").Value 
    RIL_itemCount = Sheet5.Cells(Sheet5.Rows.count, "A").End(xlUp).Row 

    'Count number article of PA selected 
    artCount = Application.WorksheetFunction.CountIf(Sheet5.Range("R:R"), filter) 

    'redim array 
    ReDim article_arr(0 To artCount) 
    Dim j As Integer 
    j = 0 

    'populate array with article number from Retail Item List 
    For i = 0 To RIL_itemCount 
     If (Sheet5.Cells(i + 2, 18).Value = filter) Then 
      article_arr(j) = Sheet5.Cells(i + 2, 1).Value   
      Debug.Print (article_arr(j)) 
     End If 
    Next 

    'Paste Article number to range 
    Sheet7.Range("A8:A" & artCount) = articleArr() 


End Sub 

Как отметил Дэвид Г. Я забыл увеличивает J. Я также использую неправильные переменный (новичок ошибки) при вставке Array. Теперь он возвращает результат, но возвращает только первое значение массива, повторенное по вложенному диапазону. Нужен ли мне цикл для вставки массива в диапазон?

Очевидно, массив будет вставлен по горизонтали в excel, что вызовет повторение первого значения при вставке массива в диапазон. Добавление WorksheetFunction.Transpose(array) сделать волшебную

Вот обновленный код:

Sub generate() 
    Dim article_arr() As Variant 
    Dim artCount As Integer 
    Dim filter As Integer 
    Dim RIL_itemCount As Integer 

    'Set PA number 
    filter = Sheet7.Range("B1").Value 
    RIL_itemCount = Sheet5.Cells(Sheet5.Rows.count, "A").End(xlUp).Row 

    'Count number article of PA selected 
    artCount = Application.WorksheetFunction.CountIf(Sheet5.Range("R:R"), filter) 

    'redim array 
    ReDim article_arr(0 To artCount) 
    Dim j As Integer 
    j = 0 

    'populate array with article number from Retail Item List 
    For i = 0 To RIL_itemCount 
     If (Sheet5.Cells(i + 2, 18).Value = filter) Then 
      article_arr(j) = Sheet5.Cells(i + 2, 1).Value 
      j = j + 1 
     End If 
    Next 

    'Paste Article number to range 
    k = 8 
    Sheet7.Range("A" & k & ":A" & UBound(article_arr) + 7) = WorksheetFunction.Transpose(article_arr) 
    Debug.Print (article_arr(395)) 


End Sub 

Answer 1

Вашего массив должен быть заполнен в соответствии с j целого числа, но не увеличить его.

For i = 0 To RIL_itemCount 
    If (Sheet5.Cells(i + 2, 18).Value = filter) Then 
     article_arr(j) = Sheet5.Cells(i + 2, 1).Value 
     j = j + 1 
     Debug.Print (article_arr(j)) 
    End If 
Next 

Также при вставке массива в одну ячейку он будет выполнять именно то, что вы описываете; вставьте значение первого массива всюду для размера массива. Чтобы он установил правильные значения, вам необходимо отправить его в диапазон того же размера, что и массив. Например, для массива размером 2 на 3, можно было бы написать

Range("A1:B3") = array 

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

k = 8 
Range("A" & k & ":A" & k + Ubound(article_arr, 1)) = article_arr 

Должен сделать трюк. Как вы можете видеть, он введет диапазон, начинающийся с A8, и опустится так же, как и количество значений в массиве.