使用VBA数组写入范围

Question

我有一个脚本从数据库中提取表的第一个单元格值，然后将其添加10次。现在我想要填充该列表以获得优秀。任何想法

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 

Answer 1

这很简单。你就是这样做的。

Range("A1:J1")=Myarr