- 帖子
- 254
- 主題
- 6
- 精華
- 0
- 積分
- 310
- 點名
- 0
- 作業系統
- W10
- 軟體版本
- Excel 2016
- 閱讀權限
- 20
- 性別
- 男
- 來自
- 台灣
- 註冊時間
- 2019-6-16
- 最後登錄
- 2024-9-23
|
本帖最後由 軒云熊 於 2021-4-8 18:36 編輯
回復 2# BV7BW
有空幫我試試看 是不是你要的 2個結果 感謝- Public Sub 從新排列練習()
- Application.ScreenUpdating = False
- [E65535:G3].ClearContents
- For X = 3 To Cells(3, 3).End(4).Row
- Cells(X, "E") = Cells(X, "A")
- Cells(X, "F") = Cells(X, "B")
- Cells(X, "G") = Mid(Cells(X, "C"), 1, 2)
- Next X
- Range([A65535].End(3), [G3]).Sort [G3], 1, Header:=2
- For X = 3 To Cells(3, 3).End(4).Row
- Cells(X, "G") = "A" & X - 2
- Next X
- Range([工作表4!A65535].End(3), [工作表4!J2]).Sort [工作表4!F2], 1, Key2:=[工作表4!B2], Header:=2
- Application.ScreenUpdating = True
- End Sub
|
|
發表於 2021-4-8 18:33
| 
