使用VBA數組寫入範圍

我有一個腳本，它從數據庫中提取表格的第一個單元格值，然後將其添加10次。現在我是我想填充該列表來優化。任何想法使用VBA數組寫入範圍

sub x() 
    Dim myArray As Variant 
    Dim i As Variant 

    myArray = Sheets("License Plate Number").Range("LP") 
    myVariable = (Trim(Right(mp_start, 12))) 

    For i = 0 To (ord_qty/120) - 1 

     Myarr = "MP" & myVariable + i 
     myArray = Myarr 

     'MsgBox Myarr 
     Debug.Print Myarr 

    Next i 

end sub

來源

2017-06-22 Terrance Matthew

如果變量有合理的名稱，理解這個問題會容易得多。 – GSerg

這很簡單。你只是這樣做。

Range("A1:J1")=Myarr

來源

2017-06-22 18:19:04 braX

我做了只是重複了 –

@TerranceMatthew上的最後一個數字那是因爲你的'myArray'不是一個數組。它只包含最後一個值，因爲您在每次循環迭代中覆蓋變量的全部內容。 – GSerg

使用VBA數組寫入範圍

回答

相關問題