Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
5074 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【52738】2次元配列の貼り付け d46 07/11/29(木) 20:59 質問[未読]
【52739】Re:2次元配列の貼り付け ichinose 07/11/29(木) 21:40 発言[未読]
【52746】Re:2次元配列の貼り付け d46 07/11/30(金) 8:44 お礼[未読]
【52738】2次元配列の貼り付け
質問  d46  - 07/11/29(木) 20:59 -
引用なし
パスワード
   2次元配列の中身を一度に貼り付けたいのですが、うまくいきません。

Dim WrtCntent(2) As Variant

WrtCntent(0) = Array("あﾞ", "い", "う", "え", "お")
WrtCntent(1) = Array("かﾞ", "き", "く", "け", "こ")
WrtCntent(2) = Array("さﾞ", "し", "す", "せ", "そ")

Range("A1:E3").Value = WrtCntent

どなたか、ご教授お願いします。
【52739】Re:2次元配列の貼り付け
発言  ichinose  - 07/11/29(木) 21:40 -
引用なし
パスワード
   ▼d46 さん：
こんばんは。

>2次元配列の中身を一度に貼り付けたいのですが、うまくいきません。
これ、2次元配列ではないですよ
通常

dim WrtCntent(2,4) as variant

を2次元配列って言いますよね！！

>
>Dim WrtCntent(2) As Variant
>
>WrtCntent(0) = Array("あﾞ", "い", "う", "え", "お")
>WrtCntent(1) = Array("かﾞ", "き", "く", "け", "こ")
>WrtCntent(2) = Array("さﾞ", "し", "す", "せ", "そ")
>
Range("A1:E3").Value = _
　　 Application.Transpose(Application.Transpose(WrtCntent))

とすれば、2次元配列に変換されますが・・・。
【52746】Re:2次元配列の貼り付け
お礼  d46  - 07/11/30(金) 8:44 -
引用なし
パスワード
   Arrayで代入すると配列となりますよね。
1次元配列にArrayで代入したら2次元配列になると思っていました。
また、デバッグ中にローカルウィンドウにてWrtCntent(0)(0)"あ"と
なっていたので、2次元配列と思っていました。

Range("A1:E3").Value = _
　　 Application.Transpose(Application.Transpose(WrtCntent))

上記方法でうまく貼り付けることが出来ました。
ichinoseさんありがとうございました。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
5074 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free