Array 陣列應用 - Excel程式區 - 麻辣家族討論版版

麻辣家族討論版版 » Excel程式區 » Array 陣列應用

返回列表下一主題上一主題發帖

Array 陣列應用

　頭銜: 街友一族

超級版主 Rank: 8 Rank: 8

帖子: 1572
主題: 16
精華: 2
積分: 1521
點名: 0
作業系統: xp
軟體版本: office 2003
閱讀權限: 150
性別: 男
註冊時間: 2010-5-1
最後登錄: 2016-1-13

論壇貢獻勳章

1^# 跳轉到 »

發表於 2010-12-8 20:05 | 顯示全部帖子

這個不是解決過了嗎？怎麼又來一次？

　頭銜: 街友一族

超級版主 Rank: 8 Rank: 8

帖子: 1572
主題: 16
精華: 2
積分: 1521
點名: 0
作業系統: xp
軟體版本: office 2003
閱讀權限: 150
性別: 男
註冊時間: 2010-5-1
最後登錄: 2016-1-13

論壇貢獻勳章

2^#

發表於 2010-12-9 09:39 | 顯示全部帖子

那麼應該是你傳錯文件了。
你的文件中並沒有你說的
1. Customer 資料有兩筆 (大約需放大至100筆)
2. 狀態資料有三筆
3. AB欄是我展開後所需要的結果

　頭銜: 街友一族

超級版主 Rank: 8 Rank: 8

帖子: 1572
主題: 16
精華: 2
積分: 1521
點名: 0
作業系統: xp
軟體版本: office 2003
閱讀權限: 150
性別: 男
註冊時間: 2010-5-1
最後登錄: 2016-1-13

論壇貢獻勳章

3^#

發表於 2010-12-9 10:05 | 顯示全部帖子

陣列的意義在於把資料存取置於記憶體中運算，運算完後再一次寫入工作表上，主要是縮短操作時間，程式碼不一定能精簡。
你的須求可以這樣：

Private Sub CommandButton1_Click()
Dim a, b, arr(), i%, j%, m%
a = [e3:e5]
b = [d3:d4]
For i = 1 To UBound(b)
For j = 1 To UBound(a)
m = m + 1
ReDim Preserve arr(1 To 2, 1 To m)
arr(1, m) = a(j, 1)
arr(2, m) = b(i, 1)
Next j, i
[a3].Resize(m, 2) = Application.Transpose(arr)
End Sub

複製代碼

　頭銜: 街友一族

超級版主 Rank: 8 Rank: 8

帖子: 1572
主題: 16
精華: 2
積分: 1521
點名: 0
作業系統: xp
軟體版本: office 2003
閱讀權限: 150
性別: 男
註冊時間: 2010-5-1
最後登錄: 2016-1-13

論壇貢獻勳章

4^#

發表於 2010-12-9 10:54 | 顯示全部帖子

03.a = [e3:e5]

04.b = [d3:d4]
改這兩行
a=range([e3],[e3].end(4))
b=range([d3],[d3].end(4))

　頭銜: 街友一族

超級版主 Rank: 8 Rank: 8

帖子: 1572
主題: 16
精華: 2
積分: 1521
點名: 0
作業系統: xp
軟體版本: office 2003
閱讀權限: 150
性別: 男
註冊時間: 2010-5-1
最後登錄: 2016-1-13

論壇貢獻勳章

5^#

發表於 2010-12-9 13:30 | 顯示全部帖子

dim i% = dim i as integer
把游標定在redim上按f1,看說明。
要學vba首先學如何看說明。

　頭銜: 街友一族

超級版主 Rank: 8 Rank: 8

帖子: 1572
主題: 16
精華: 2
積分: 1521
點名: 0
作業系統: xp
軟體版本: office 2003
閱讀權限: 150
性別: 男
註冊時間: 2010-5-1
最後登錄: 2016-1-13

論壇貢獻勳章

6^#

發表於 2010-12-9 19:11 | 顯示全部帖子

ReDim Preserve arr(1 To 2, 1 To m)
在迴圈內重新宣告陣列的大小。
假設不能預知程式運行的結果須要的陣列大小(雖然可以先算出來，但用動態陣列就不用)
每一次的迴圈m=m+1，所以這個陣列是不斷的長大的，必須要注意陣列只能改變最後一維的大小，這裡就是指第二維。所以最後要把這個陣列轉置寫入工作表中。

靜思自在 : 【時間無法遮擋】怕時間消逝，花了許多心血，想盡各式方法要遮擋時間，結果是：浪費了更多時間，且一無所成！

返回列表下一主題上一主題