返回列表 上一主題 發帖

工作表資料重新排列問題

lionliu

帖子
97 
主題
26 
精華
0 
積分
158 
點名
0  
作業系統
windows 
軟體版本
office2010 
閱讀權限
20 
性別
男 
來自
taichung 
註冊時間
2010-9-12 
最後登錄
2019-8-29 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2015-1-7 12:27 | 只看該作者

工作表資料重新排列問題

各位大哥好
小弟有工作表資料重排問題，但是一直無法克服如附件。
請教各位大哥我應如何修改。
帳單.rar (16.09 KB)
收藏 分享
lionliu

PKKO
　暱稱: PKKO

高中生Rank: 3Rank: 3

帖子
549 
主題
152 
精華
0 
積分
691 
點名
0  
作業系統
WIN7 
軟體版本
OFFICE 2010 
閱讀權限
50 
性別
男 
註冊時間
2013-8-10 
最後登錄
2022-9-7 

論壇榮譽勳章論壇贊助勳章
2#
發表於 2015-1-7 20:29 | 只看該作者
回復 1# lionliu

已排完
帳單(已解決).rar (19.11 KB)
  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
複製代碼
PKKO

TOP

lionliu

帖子
97 
主題
26 
精華
0 
積分
158 
點名
0  
作業系統
windows 
軟體版本
office2010 
閱讀權限
20 
性別
男 
來自
taichung 
註冊時間
2010-9-12 
最後登錄
2019-8-29 
3#
發表於 2015-1-8 09:00 | 只看該作者
回復 2# PKKO
謝謝 BOB 先來試試

:D
lionliu

TOP

PKKO
　暱稱: PKKO

高中生Rank: 3Rank: 3

帖子
549 
主題
152 
精華
0 
積分
691 
點名
0  
作業系統
WIN7 
軟體版本
OFFICE 2010 
閱讀權限
50 
性別
男 
註冊時間
2013-8-10 
最後登錄
2022-9-7 

論壇榮譽勳章論壇贊助勳章
4#
發表於 2015-1-8 10:48 | 只看該作者
回復 3# lionliu


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

TOP

lionliu

帖子
97 
主題
26 
精華
0 
積分
158 
點名
0  
作業系統
windows 
軟體版本
office2010 
閱讀權限
20 
性別
男 
來自
taichung 
註冊時間
2010-9-12 
最後登錄
2019-8-29 
5#
發表於 2015-1-15 13:01 | 只看該作者
回復 4# PKKO
P大
   謝謝你，我測試使用可以了，但是有一個問題
就是我的清表若與資料表的帳號順序不同，好像不會作調整。
目前在嘗試修改中。
lionliu

TOP

        靜思自在 : 【蒙蔽的自由】人常在什麼都可以自由自在的時候，卻被這種隨心所欲的自由蒙蔽，虛擲時光而毫無覺知。
返回列表 上一主題