CopyFromRecordset

ADOを使ったり、SQLで抽出したデータは
CopyFromRecordset　を使うと高速でシートに取り込むことができる。
ただしフィールド（項目）は取り込めないので注意する。

＜サンプル＞
　　Dim rs As ADODB.Recordset
 
    'レコードセットを開く
    Set rs = New ADODB.Recordset
    
    'レコードをA2セルへ貼り付ける
   Range("A2").CopyFromRecordset rs