Excel VBA質問箱 IV

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

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


35554 / 76738 ←次へ | 前へ→

【46382】Re:配列のコピー
回答  okitsun E-MAIL  - 07/2/1(木) 12:55 -

引用なし
パスワード
   ▼Jaka さん:

説明足らずですいません。説明を追加させてください。
○文字列は何文字かはわかりません。
○配列の文字列をコピーする回数は3固定ではなく、変数で渡したい。


   A   B   C   D
1  あde
2 いr    
3 う
4 あde 
5 いr
6 う
7 あde
8 いr
9 う
10 あde
11 いr
12 う

こんな感じかと作ってみたのですが、
tb(i) = Ary(i)
のところで以下のように言われます。
オブジェクト変数または With ブロック変数が設定されていません。(Error 91)

Sub sample()

Dim tb As Range

For i = 1 To g0
  tb(i) = Ary(i)
Next

For i = 1 To g0 * (AcolumnC - 2)
Range("a65536").End(xlUp).Resize(g0).Offset(4).Value = Application.Transpose(tb)
Next

End Sub

0 hits

【46378】配列のコピー okitsun 07/2/1(木) 11:56 質問
【46379】Re:配列のコピー Jaka 07/2/1(木) 12:13 発言
【46382】Re:配列のコピー okitsun 07/2/1(木) 12:55 回答
【46383】Re:配列のコピー Jaka 07/2/1(木) 13:15 発言
【46384】Re:配列のコピー okitsun 07/2/1(木) 13:15 お礼

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