返回列表 上一主題 發帖

[發問] 派車表_撥亂轉正

本帖最後由 軒云熊 於 2021-4-8 18:36 編輯

回復 2# BV7BW

有空幫我試試看 是不是你要的 2個結果 感謝
  1. Public Sub 從新排列練習()
  2. Application.ScreenUpdating = False
  3. [E65535:G3].ClearContents

  4. For X = 3 To Cells(3, 3).End(4).Row
  5.     Cells(X, "E") = Cells(X, "A")
  6.     Cells(X, "F") = Cells(X, "B")
  7.     Cells(X, "G") = Mid(Cells(X, "C"), 1, 2)
  8. Next X
  9. Range([A65535].End(3), [G3]).Sort [G3], 1, Header:=2

  10. For X = 3 To Cells(3, 3).End(4).Row
  11.     Cells(X, "G") = "A" & X - 2
  12. Next X
  13. Range([工作表4!A65535].End(3), [工作表4!J2]).Sort [工作表4!F2], 1, Key2:=[工作表4!B2], Header:=2
  14. Application.ScreenUpdating = True
  15. End Sub
複製代碼

TOP

回復 7# BV7BW
抱歉 沒注意看
把 Range([A65535].End(3), [G3]).Sort [G3], 1, Header:=2
改成 Range([E65535].End(3), [G3]).Sort [G3], 1, Header:=2 就可以了
順便看一下 工作表4 是不是你要的結果 感謝

TOP

回復 9# BV7BW

把 Range([工作表4!A65535].End(3), [工作表4!J2]).Sort [工作表4!F2], 1, Key2:=[工作表4!B2], Header:=2 這行移出來

另外加一個 sub 就可以了

TOP

回復 28# BV7BW

甚麼稱號錯亂?

TOP

        靜思自在 : 世上有兩件事不能等:一、孝順 二、行善。
返回列表 上一主題