標題: 重複性的整理~請各位高手幫幫忙!!感謝!! [打印本頁]

---

作者: hamj3113    時間: 2015-9-9 02:36     標題: 重複性的整理~請各位高手幫幫忙!!感謝!!

本帖最後由 GBKEE 於 2015-9-9 05:21 編輯

[attach]21931[/attach]

請問各位高手，
要如何設定才能把 檔案裡的工作表1(原本資料)變成工作表2(整理後的資料)

因為資料很多，想要整理，但目前只用複製貼上，
加上不太會解釋，所以直接附上檔案，請各位高手幫忙!!

感謝各位大大!!!

---

作者: 准提部林    時間: 2015-9-9 11:38

傳統方法，速度不快，但容易懂：

1. Sub TEST()
   
2. Dim xR As Range, xRow As Range, xA As Range, M%, N&
   
3. [整理後資料!3:60000].ClearContents
   
4. Application.ScreenUpdating = False
   
5. 　
   
6. For Each xR In Sheets("原本資料").UsedRange.Columns(1).Cells
   
7. 　'Ａ欄有〔１２位數〕編號時
   
8. 　If xR Like String(12, "#") Then
   
9. 　　Set xRow = xR.Resize(1, 12)　 '定位每筆首列資料
   
10. 　　Set xA = [整理後資料!A65536].End(xlUp)(2) 　 '取得預計填入位置
    
11. 　　If xA.Row > 3 Then Set xA = xA(2) 　 '第２筆以後，空一行
    
12. 　　M = 1: N = 0: GoTo 101　  '標記，直接跳至下一列
    
13. 　End If
    
14. 　
    
15. 　'填入右方資料
    
16. 　If M = 1 Then N = N + 1:  xA(N, 13).Resize(1, 11) = xR(1, 2).Resize(1, 11).Value
    
17. 　
    
18. 　'填入左方資料
    
19. 　If (xR(2) <> "" Or xR(2, 2) = "") And N > 0 Then xA.Resize(N, 12) = xRow.Value: M = 0: N = 0
    
20. 101: Next
    
21. End Sub

複製代碼

參考附件：
[attach]21932[/attach]
　

---

作者: hamj3113    時間: 2015-9-9 21:55

回復 2# 准提部林


    感謝版主大大的回覆
但是我目前積分不夠，無法下載你上傳的檔案，
還是版主大大能寄到本人的信箱嗎?

---

作者: 准提部林    時間: 2015-9-9 22:14

本帖最後由 准提部林 於 2015-9-9 22:19 編輯

回復 3# hamj3113

權宜提供另一下載址（這已與版規不符，下次可不行）：
http://www.funp.net/183625

進來論壇一年多，尚且無法下載附檔！^^
建議多加點力，excel在職場也是廣泛應用，得好好利用此論壇（多參與討論或發問題皆可），提升實力！
多看看其它帖子也不錯，可增加excel知識，千萬不要有問題才來發問，有解答就跑，
本論壇是台灣稀有的excel專門交流站，需要大家的支持（我們也是這樣學來的）！

---

作者: hamj3113    時間: 2015-9-9 22:35

回復 4# 准提部林


    感謝版主大大!
    小女子研究一下!!

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)