標題: 工作表資料重新排列問題 [打印本頁]

---

作者: lionliu    時間: 2015-1-7 12:27     標題: 工作表資料重新排列問題

各位大哥好
小弟有工作表資料重排問題，但是一直無法克服如附件。
請教各位大哥我應如何修改。
[attach]20023[/attach]

---

作者: PKKO    時間: 2015-1-7 20:29

回復 1# lionliu

已排完
[attach]20025[/attach]

1. Sub sort()
   
2.     For i = 5 To Range("A65536").End(xlUp).Row
   
3.         With Sheets("帳單")
   
4.             '找出各營業項目
   
5.             For j = 2 To 8
   
6.                 If Not Rows(i).Find(.Cells(2, j), Lookat:=2) Is Nothing Then
   
7.                     ' "有資料"
   
8.                     .Cells(i - 2, j) = Rows(i).Find(.Cells(2, j), Lookat:=2).Offset(0, 1)
   
9.                 Else
   
10.                    ' "查無資料不做任何動作"
    
11.                 End If
    
12.             Next
    
13.         End With
    
14.     Next
    
15. End Sub

複製代碼

---

作者: lionliu    時間: 2015-1-8 09:00

回復 2# PKKO
謝謝 BOB 先來試試

:D

---

作者: PKKO    時間: 2015-1-8 10:48

回復 3# lionliu


    壓縮檔內,是已經幫您排完的資料,可以直接使用,程式碼則是#2PO的部分

---

作者: lionliu    時間: 2015-1-15 13:01

回復 4# PKKO
P大
   謝謝你，我測試使用可以了，但是有一個問題
就是我的清表若與資料表的帳號順序不同，好像不會作調整。
目前在嘗試修改中。

---

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