[發問] 請教 以字典抓取符合條件資料後輸出

shuo1125

各位前輩好，
若想以CreateObject("Scripting.Dictionary")字典方式抓取資料並將結果輸出，請問程式該如何寫..
(如圖檔及附檔)

以[盤點表]為模板，符合下列條件時，將DATA結果輸出如[盤點表(結果)]
1.當DATA所在地=盤點表B2時。
2.若遇到財產編號相同者，只列出頭一筆。
3.將各所在地之資料分別輸出，以分頁區分。
4.在最後進行各所在地數量小計。
5.有資料部分才框線。

以上，因資料有部分隱私，故只擷取部分檔案，性質雷同只是筆數多很多。

想請問有高手可以幫忙解答嗎，
麻煩了，謝謝！

准提部林

1.當DATA所在地=盤點表B2時。
__B2底下還有其它"所在地", 怎解??

2.若遇到財產編號相同者，只列出頭一筆。
__只列一筆, 要不要累計?

3.將各所在地之資料分別輸出，以分頁區分。
__若同一所在地, 資料行數太多, 列印超過一頁, 怎解??

shuo1125

回復 2# 准提部林
准大您好！
可能是我意思表達不清...如下回覆。

1.當DATA所在地=盤點表B2時。
__B2底下還有其它"所在地", 怎解??
->這部份是我表達不清楚..其實就是要列出各所在地資料，只是所在地會表達在盤點表B2。

2.若遇到財產編號相同者，只列出頭一筆。
__只列一筆, 要不要累計?
->不需累計，當成一筆就好。

3.將各所在地之資料分別輸出，以分頁區分。
__若同一所在地, 資料行數太多, 列印超過一頁, 怎解??
->若超過該行數，就列於第二、三頁以此類推...但若為不同所在地，是否就能接續在下頁中？

以上，麻煩了，謝謝。

samwang

回復 1# shuo1125

請測試看看，謝謝

samwang

回復 3# shuo1125

3.將各所在地之資料分別輸出，以分頁區分。
__若同一所在地, 資料行數太多, 列印超過一頁, 怎解??
->若超過該行數，就列於第二、三頁以此類推...但若為不同所在地，是否就能接續在下頁中？
>> 可以，但是處理會比較複雜麻煩；4#是沒有考慮的超過1頁的問題
       建議:將每個各所在地，獨立放在個別新增工作表，不知是否可以?

samwang

回復 3# shuo1125


3.將各所在地之資料分別輸出，以分頁區分。
__若同一所在地, 資料行數太多, 列印超過一頁, 怎解??
->若超過該行數，就列於第二、三頁以此類推...但若為不同所在地，是否就能接續在下頁中？
>> 接續下頁中，請測試看看，謝謝   

shuo1125

回復 6# samwang

samwang大大您好！

3.將各所在地之資料分別輸出，以分頁區分。
__若同一所在地, 資料行數太多, 列印超過一頁, 怎解??
->若超過該行數，就列於第二、三頁以此類推...但若為不同所在地，是否就能接續在下頁中？
>> 可以，但是處理會比較複雜麻煩；4#是沒有考慮的超過1頁的問題
       建議:將每個各所在地，獨立放在個別新增工作表，不知是否可以?
>>>若將所在地放至不同工作表也可並無強制...因以分頁模式處裡似乎困難度很高..剛跑似乎資料是有出來的
目前暫不確定資料量大時是否分頁會亂掉..因你又有幫忙寫一版，我晚點在測試完整版與原筆數是否正確。

謝謝你這麼有效率的幫忙處理及回覆...由衷感謝！

shuo1125

回復 6# samwang

samwang好！

下載 (144 KB)
跳頁了

2021-11-24 21:56

下載 (33.08 KB)
差異(有少的號碼)

2021-11-24 21:48

建議:將每個各所在地，獨立放在個別新增工作表，不知是否可以?
>若以此方法做，請問該怎麼修正..?因測試後發現分頁會錯置以及有部分資料未帶入(如圖片)

另外有幾個問題想請問
一、T1 = T & "|" & Arr(i, 6)
     >這一段是判斷是否有符合財產編號嗎? "|"這個的用意是..?
二、xD1(T1) = 1: xD1(T & "/1") = xD1(T & "/1") + Arr(i, 14)
     >這段用法太高深..能夠解釋一下嗎?
三、將資料存入Arr陣列中時，此時Arr是視為物件嗎?字典xD也是物件嗎?有點無法理解...

以上，在煩請撥冗解答了..感謝！

samwang

回復 8# shuo1125

建議:將每個各所在地，獨立放在個別新增工作表，不知是否可以?
>若以此方法做，請問該怎麼修正..?因測試後發現分頁會錯置以及有部分資料未帶入(如圖片)
>> 如附件，請測試看看，如果還有資料未帶出來，請再上傳附件，謝謝

shuo1125

回復 9# samwang

samwang大大好！

經測試資料已無誤，上述問題若您有空再解答，如沒有就不耽擱你時間了...
非常感謝你撥空幫忙處理！