帖子: 12
主題: 4
精華: 0
積分: 23
點名: 0
作業系統: windows
軟體版本: xp
閱讀權限: 10
性別: 男
註冊時間: 2010-6-4
最後登錄: 2017-9-19

1^# 跳轉到 » 正序看帖

字體大小: tT

發表於 2010-10-29 12:46 | 只看該作者

[發問] 組合多個數組

最近須將大量的單據的資料讀入，
同一檔 31 張分頁，每頁有三個或以上不同的「位置」儲存數據。

我採用如下方法，每一分頁先存成不同數組，
再逐一分析轉換，然後再寫入儲存。

如下例子中，我要寫三個迴圈分析，
r1 = Range("D5:N18")
r2 = Range("D35:N48")
r3 = Range("D65:N83")

問題：應如何將 r1 、r2 、r3 組合成「新數組 r0」中？

樓主熱帖

storylai

小學生 Rank: 1

帖子: 12
主題: 4
精華: 0
積分: 23
點名: 0
作業系統: windows
軟體版本: xp
閱讀權限: 10
性別: 男
註冊時間: 2010-6-4
最後登錄: 2017-9-19

7^#

發表於 2010-11-1 22:20 | 只看該作者

謝謝回覆。

1- 我現時用的方法與 oobird 大大的差不多。
都是抄一份再整埋。
只是想試著用 array 的方法來增進功力。

2- 要處理的資料都是相同欄位的，只是製作的
同事不懂而搞複雜了。

TOP

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

6^#

發表於 2010-10-31 09:55 | 只看該作者

回復 5# oobird
oobird版主此程序可行的
但你沒說清楚必要的條件是.所有範圍的第一欄為必須是同一欄位,且每一個範圍的總欄位數是要一樣的.

TOP

oobird

　頭銜: 街友一族

超級版主 Rank: 8 Rank: 8

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

論壇貢獻勳章

5^#

發表於 2010-10-30 20:20 | 只看該作者

對於取固定區域或許可以想單純些：
Sub nn()
Dim Rng As Range
Set Rng = Union(Range("D5:N18"), Range("D35:N48"), Range("D65:N83"))
Rng.Copy Sheet2.[a1]
End Sub

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 257
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2024-11-28

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

4^#

發表於 2010-10-30 11:12 | 只看該作者

本帖最後由 Hsieh 於 2010-10-30 11:34 編輯

回復 3# storylai
以你的構思要將數個二維陣列合併成一個陣列
那麼此新的陣列可就成了三維陣列
那麼你要再寫入工作表時無法一次寫入
所以建議你將不同區域直接寫成一個二維陣列
在讀取時才會簡便

Sub nn()
Dim Ar(), Ay As Variant, Rng As Range, s%
Set Rng = Union(Range("D5:N18"), Range("D35:N48"), Range("D65:N83"))
For i = 1 To Rng.Areas.Count
For j = 1 To Rng.Areas(i).Rows.Count
ReDim Preserve Ar(s)
Ar(s) = Rng.Areas(i).Rows(j)
s = s + 1
Next
Next
Ay = Application.Transpose(Application.Transpose(Ar))
Sheet2.[A1].Resize(UBound(Ay, 1), UBound(Ay, 2)) = Ay
End Sub

複製代碼

學海無涯_不恥下問

TOP

storylai

小學生 Rank: 1

帖子: 12
主題: 4
精華: 0
積分: 23
點名: 0
作業系統: windows
軟體版本: xp
閱讀權限: 10
性別: 男
註冊時間: 2010-6-4
最後登錄: 2017-9-19

3^#

發表於 2010-10-30 11:02 | 只看該作者

謝謝回覆，

工作是這樣的，r1 r2 r3 都是一些單據內容。

同事每天列印給主管簽，r1 r2 間會有一些沒用的「格式文字」。

由於要覆核他們，我要將這些資料抄到另一個 workbook 中分析，看看
有沒有重覆、漏報等。

目前的做法是先逐一抄 r1 r2 r3 等到我的  workbook  中，然後再逐一分析。

自己想進階，利用 array 組合、分析，再抄入自已的  workbook  中。

能力所限，無法將三佪 r1 r2 r3 合成一個，變成無法統一分折。

我是想，31頁的 r1 r2 r3 先合成一個 array ，然後統一抄入  workbook  的一張 sheet 中，再寫些條件
分析 array，做好就抄入另一張 sheet 中。

先謝謝了。

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 257
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2024-11-28

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

2^#

發表於 2010-10-29 18:11 | 只看該作者

回復 1# storylai

不知道你整體流程為何?
如果單純把3個陣列用一個陣列表示
r1 = Range("D5:N18")
r2 = Range("D35:N48")
r3 = Range("D65:N83")
r0=Array(r1,r2,r,3)

學海無涯_不恥下問

TOP