Excel VBA質問箱 IV

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

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


18765 / 76732 ←次へ | 前へ→

【63405】Re:配列処理
回答  りん E-MAIL  - 09/10/31(土) 20:47 -

引用なし
パスワード
   はちおうじ さん、こんばんわ。

>sheet1のA1からAA1000までデータがあり
>まず、Sheet1のデータを配列に格納し、
>その配列から2行飛ばしで、別の配列に格納しその配列データを
>Sheet2に貼り付ける方法です。
>
>Sheet2に張り付ける際は、一気に書きだすようなプログラムに
>なればよいです。

Sub test()
  Dim r1 As Variant
  Dim r2(1 To 334, 1 To 1) As Variant
  '一括取り込み
  r1 = Worksheets("Sheet1").Range("A1:A1000").Value
  For II = 1 To 1000 Step 3
   JJ = JJ + 1
   r2(JJ, 1) = r1(II, 1)
  Next
  '一括書き出し
  Worksheets("Sheet2").Range("A1:A334").Value = r2
  Erase r1, r2
End Sub

こんな感じ?
6 hits

【63400】配列処理 はちおうじ 09/10/31(土) 10:42 質問
【63401】Re:配列処理 よろずや 09/10/31(土) 11:22 発言
【63403】Re:配列処理 はちおうじ 09/10/31(土) 13:53 質問
【63404】Re:配列処理 よろずや 09/10/31(土) 20:38 回答
【63405】Re:配列処理 りん 09/10/31(土) 20:47 回答
【63406】Re:配列処理 はちおうじ 09/11/1(日) 0:01 お礼

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