Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


34442 / 76734 ←次へ | 前へ→

【47502】Re:取得した配列をシートに
発言  ウッシ  - 07/3/12(月) 19:31 -

引用なし
パスワード
   ▼メビナビ さん:
こんばんは

何故1次元の配列にしたのですか?
シートに展開出来る形の配列にデータを取り込むように変更するか、新たに2次元の配列
を用意してそちらへデータを写してからシートにセットしてはどうでしょうか?

Transposeには要素数制限が有ります。(20000件は??)

Sub test()
  Dim a
  a = Array(1, 2, 3, 4, 5)
  With Range("A1").Resize(UBound(a) + 1, 1)
    .ClearContents
    .Value = Application.WorksheetFunction.Transpose(a)
  End With
End Sub
5 hits

【47501】取得した配列をシートに メビナビ 07/3/12(月) 19:22 質問
【47502】Re:取得した配列をシートに ウッシ 07/3/12(月) 19:31 発言
【47504】Re:取得した配列をシートに ichinose 07/3/12(月) 19:57 発言
【47506】Re:取得した配列をシートに ウッシ 07/3/12(月) 20:08 発言
【47509】Re:取得した配列をシートに メビナビ 07/3/12(月) 20:57 お礼

34442 / 76734 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free