Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

18767 / 76732

←次へ　｜　前へ→


	【63403】Re:配列処理

はちおうじ - 09/10/31(土) 13:53 -


	引用なし

	パスワード

▼よろずやさん：
>配列の勉強でしょうか。
>
>このケースでは、１行ずつコピペするプログラムを書いた方がよろしいかと。

お世話になります。
Sheet2にあるデータを配列に取り込み、Sheet3に書き出すプログラムとして
試しに以下を作ってみましたが、Sheet3には、sheet2の一行目の内容が貼りついており、そのあとはN/Aになっています。
２行目には、データは貼り付けられていません。

どこを修正すればよいか教えてください。

Sub test()
　Dim Gyo As Long, Retu As Long
　Dim AllCells As Variant

　Worksheets("Sheet2").Activate

　' ---変数にセル範囲を取り込む
　AllCells = Range(Cells(1, 1), Cells(Range("A65536").End(xlUp).Row, Range("D3").End(xlToRight).Column))

　' ---何らかの処理
　For Gyo = 1 To UBound(AllCells, 1)
　　　For Retu = 1 To UBound(AllCells, 2)
　　　　　AllCells(Gyo, Retu) = AllCells(Gyo, Retu)*0.01
　　　Next Retu
　Next Gyo

　' ---セル範囲に一気に書き戻す
　Worksheets("Sheet3").Activate
　
　Range(Cells(1, 1), _
　　　Cells(Range("A65536").End(xlUp).Row, _
　　　　　　Range("D3").End(xlToRight).Column)) = AllCells
End Sub

5 hits

▼

【63400】配列処理 はちおうじ 09/10/31(土) 10:42