返回列表 上一主題 發帖

[發問] 組合多個數組

storylai

帖子
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」 中？
收藏 分享

Hsieh

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

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

storylai

帖子
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

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

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
以你的構思要將數個二維陣列合併成一個陣列
那麼此新的陣列可就成了三維陣列
那麼你要再寫入工作表時無法一次寫入
所以建議你將不同區域直接寫成一個二維陣列
在讀取時才會簡便
  1. Sub nn()
  2. Dim Ar(), Ay As Variant, Rng As Range, s%
  3. Set Rng = Union(Range("D5:N18"), Range("D35:N48"), Range("D65:N83"))
  4. For i = 1 To Rng.Areas.Count
  5.    For j = 1 To Rng.Areas(i).Rows.Count
  6.      ReDim Preserve Ar(s)
  7.      Ar(s) = Rng.Areas(i).Rows(j)
  8.      s = s + 1
  9.    Next
  10. Next
  11. Ay = Application.Transpose(Application.Transpose(Ar))
  12. Sheet2.[A1].Resize(UBound(Ay, 1), UBound(Ay, 2)) = Ay
  13. End Sub
複製代碼
學海無涯_不恥下問

TOP

oobird
　頭銜: 街友一族

超級版主Rank: 8Rank: 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

GBKEE

帖子
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

storylai

帖子
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

        靜思自在 : 愛不是要求對方，而是要由自身的付出。
返回列表 上一主題