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