[發問] 如何將陣列分區段整欄或者整列的寫入儲存格

請教各位先進，該如何將程式中陣列DATA的部份資料整欄寫入儲存格內，小弟不知在觀念上哪裡錯誤了，請各位先進教導。

Sub test()
Dim Rng As Range, data(33, 24), i%, j%
With Sheet1
For i = 1 To 33
For j = 1 To 12
data(i, j) = Cells(i + 5, j + 8)
Next
Next
For i = 1 To 33
For j = 13 To 24
data(i, j) = Cells(i + 50, j - 4)
Next
Next
End With
Set Rng = Sheet2.Range("B1:D24")
For i = 1 To Rng.Columns.Count
Rng.Columns(i) = Application.Index(Application.Transpose(data), , i)
Next
End Sub

複製代碼

test.rar (15.81 KB)

樓主熱帖

sptakung1

中學生 Rank: 2

帖子: 32
主題: 10
精華: 0
積分: 68
點名: 0
作業系統: win xp
軟體版本: Office 2003
閱讀權限: 20
性別: 男
來自: 南投縣
註冊時間: 2010-9-28
最後登錄: 2019-10-4

論壇贊助勳章論壇榮譽勳章

6^#

發表於 2012-9-15 16:22 | 只看該作者

回復 5# chin15
chin大大非常感謝，代碼經如下修改已能正常運作，衷心感激。至上我最深的祝福
TEST3.xls代碼修改如下：
1.代碼最上方加入Option Base 1
2.#18 Set rng1 = .Range("B1:~~AI3~~") AI3改成AH3
3.#21 rng1.Rows(i) = Application.Index(Application.Transpose(data), i ~~+ 1~~) I+1改成I

TOP

chin15

中學生 Rank: 2

帖子: 227
主題: 3
精華: 1
積分: 273
點名: 0
作業系統: XP
軟體版本: XP
閱讀權限: 20
性別: 女
註冊時間: 2011-3-22
最後登錄: 2013-1-29

5^#

發表於 2012-9-15 14:31 | 只看該作者

定義data(33, 24)陣列是從0開始
而載入數據時
For i = 1 To 33
For j = 1 To 12
data(i, j) = Cells(i + 5, j + 8)
這樣 data(0,0) 沒有賦值，這是b欄空白的原因
可以改為data(1 To 33, 1 To 24)
或前面加上Option Base 1強制陣列下標從1開始

TOP

sptakung1

中學生 Rank: 2

帖子: 32
主題: 10
精華: 0
積分: 68
點名: 0
作業系統: win xp
軟體版本: Office 2003
閱讀權限: 20
性別: 男
來自: 南投縣
註冊時間: 2010-9-28
最後登錄: 2019-10-4

論壇贊助勳章論壇榮譽勳章

4^#

發表於 2012-9-15 13:51 | 只看該作者

也許有大大會質疑，其實如上樓所述的需求，只要簡單的copy就可以了，幹嘛如此大費周章呢？其主因係吾人一直以來對陣列的操作不甚熟稔想藉此練習使用index，TRANSPOSE等函數。經過一早上的摸索，似乎已有些斬獲，目前可得到自己的需求，但存有小bug。情形是依如下的代碼執行後會造成sheet3的b欄形成空白，但我明明是從b1開始的，不知有哪位大大可為我解惑。謝謝！