使用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数组写入范围

回答

相关问题