Excel VBA質問箱 IV

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

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


6243 / 13644 ツリー ←次へ | 前へ→

【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 -

引用なし
パスワード
   配列に格納されている文字列を、以下のように列の方向へコピーするにはどうしたらよいでしょうか。

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

1回目のコピー開始位置:K4
ここに「あ」をコピー

2回目のコピー開始位置:K8
ここに「い」をコピー

3回目のコピー開始位置:K12
ここに「う」をコピー

【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

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