返回列表 上一主題 發帖

重複性的整理~請各位高手幫幫忙!!感謝!!

hamj3113

帖子
5 
主題
2 
精華
0 
積分
7 
點名
0  
作業系統
WindosXP 
軟體版本
xp3 
閱讀權限
10 
性別
女 
註冊時間
2014-3-18 
最後登錄
2015-9-9 
1# 跳轉到 » 正序看帖
打印
tT
發表於 2015-9-9 02:36 | 只看該作者

重複性的整理~請各位高手幫幫忙!!感謝!!

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

檔案.rar (5.73 KB)

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

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

感謝各位大大!!!
收藏 分享

hamj3113

帖子
5 
主題
2 
精華
0 
積分
7 
點名
0  
作業系統
WindosXP 
軟體版本
xp3 
閱讀權限
10 
性別
女 
註冊時間
2014-3-18 
最後登錄
2015-9-9 
5#
發表於 2015-9-9 22:35 | 只看該作者
回復 4# 准提部林


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

TOP

准提部林

帖子
2834 
主題
10 
精華
0 
積分
2890 
點名
0  
作業系統
〔略〕 
軟體版本
〔略〕 
閱讀權限
100 
性別
男 
來自
〔略〕 
註冊時間
2013-5-13 
最後登錄
2024-11-26 
4#
發表於 2015-9-9 22:14 | 只看該作者
本帖最後由 准提部林 於 2015-9-9 22:19 編輯

回復 3# hamj3113

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

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

TOP

hamj3113

帖子
5 
主題
2 
精華
0 
積分
7 
點名
0  
作業系統
WindosXP 
軟體版本
xp3 
閱讀權限
10 
性別
女 
註冊時間
2014-3-18 
最後登錄
2015-9-9 
3#
發表於 2015-9-9 21:55 | 只看該作者
回復 2# 准提部林


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

TOP

准提部林

帖子
2834 
主題
10 
精華
0 
積分
2890 
點名
0  
作業系統
〔略〕 
軟體版本
〔略〕 
閱讀權限
100 
性別
男 
來自
〔略〕 
註冊時間
2013-5-13 
最後登錄
2024-11-26 
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
複製代碼
參考附件：
檔案v01.rar (13.39 KB)
　

TOP

        靜思自在 : 【時間如鑽石】時間對一個有智慧的人而言，就如鑽石般珍貴；但對愚人來說，卻像是一把泥土，一點價值也沒有。
返回列表 上一主題