工作表資料重新排列問題 - Excel程式區 - 麻辣家族討論版版

麻辣家族討論版版 » Excel程式區 » 工作表資料重新排列問題

返回列表下一主題上一主題發帖

工作表資料重新排列問題

　暱稱: PKKO

高中生 Rank: 3 Rank: 3

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

論壇榮譽勳章論壇贊助勳章

1^# 跳轉到 »

發表於 2015-1-7 20:29 | 顯示全部帖子

回復 1# lionliu

已排完

帳單(已解決).rar (19.11 KB)

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

複製代碼

PKKO

　暱稱: PKKO

高中生 Rank: 3 Rank: 3

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

論壇榮譽勳章論壇贊助勳章

2^#

發表於 2015-1-8 10:48 | 顯示全部帖子

回復 3# lionliu

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

PKKO

靜思自在 : 忘功不忘過，忘怨不忘恩。

返回列表下一主題上一主題