Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
6264 / 13665 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【46274】配列文字列の列方向へのコピー okitsun 07/1/29(月) 14:04 質問[未読]
【46276】Re:配列文字列の列方向へのコピー かみちゃん 07/1/29(月) 14:21 発言[未読]
【46277】Re:配列文字列の列方向へのコピー okitsun 07/1/29(月) 14:50 回答[未読]
【46411】Re:配列文字列の列方向へのコピー okitsun 07/2/2(金) 10:04 お礼[未読]
【46274】配列文字列の列方向へのコピー
質問  okitsun E-MAIL  - 07/1/29(月) 14:04 -
引用なし
パスワード
   配列に格納されている文字列を、以下のように列の方向へコピーするにはどうしたらよいでしょうか。

○配列に格納されている文字列が、
あ、い、うとした場合に

１回目のコピー開始位置：Ｋ４
ここに「あ」をコピー

２回目のコピー開始位置：Ｋ８
ここに「い」をコピー

３回目のコピー開始位置：Ｋ１２
ここに「う」をコピー
【46276】Re:配列文字列の列方向へのコピー
発言  かみちゃん  - 07/1/29(月) 14:21 -
引用なし
パスワード
   こんにちは。かみちゃん　です。

>配列に格納されている文字列を、以下のように列の方向へコピーする

以下のような感じです。

Sub Sample1()
　Dim vntData() As Variant
　
　vntData = Array("あ", "い", "う")
　Range("K4").Value = vntData(0)
　Range("K8").Value = vntData(1)
　Range("K12").Value = vntData(2)
End Sub

Sub Sample2()
　Dim vntData() As Variant
　Dim lngRow As Long
　
　vntData = Array("あ", "い", "う")
　For lngRow = 0 To UBound(vntData)
　　Cells(lngRow * 4 + 4, 11).Value = vntData(lngRow)
　Next
End Sub

★次々とご質問されるのは、構いませんが、すでにいくつかコメントを差し上げてていますが
それらへの返答はないものでしょうか？
【46277】Re:配列文字列の列方向へのコピー
回答  okitsun E-MAIL  - 07/1/29(月) 14:50 -
引用なし
パスワード
   ありがとうございます。
いま試しているところです。
遅くてすいません。今しばらくお待ちください。
【46411】Re:配列文字列の列方向へのコピー
お礼  okitsun E-MAIL  - 07/2/2(金) 10:04 -
引用なし
パスワード
   お礼が送れてすいませんでした。

'文字列を格納している配列からシートへコピーする

Ary()が文字列を格納している配列です。
それをApplication.Transposeの引数とすることで
対処しました。

Sheets("sheet1").Select
For d = 0 To (AcolumnC - 3)
Range("k4").Resize(g0).Offset(d * 4).Value = Application.Transpose(Ary())
Next
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
6264 / 13665 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free