ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

[µo°Ý] ¬£¨®ªí_¼·¶ÃÂॿ

¥»©«³Ì«á¥Ñ °a¤ªºµ ©ó 2021-4-8 18:36 ½s¿è

¦^´_ 2# BV7BW

¦³ªÅÀ°§Ú¸Õ¸Õ¬Ý ¬O¤£¬O§A­nªº 2­Óµ²ªG ·PÁÂ
  1. Public Sub ±q·s±Æ¦C½m²ß()
  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([¤u§@ªí4!A65535].End(3), [¤u§@ªí4!J2]).Sort [¤u§@ªí4!F2], 1, Key2:=[¤u§@ªí4!B2], Header:=2
  14. Application.ScreenUpdating = True
  15. End Sub
½Æ»s¥N½X

TOP

¦^´_ 7# BV7BW
©êºp ¨Sª`·N¬Ý
§â Range([A65535].End(3), [G3]).Sort [G3], 1, Header:=2
§ï¦¨ Range([E65535].End(3), [G3]).Sort [G3], 1, Header:=2 ´N¥i¥H¤F
¶¶«K¬Ý¤@¤U ¤u§@ªí4 ¬O¤£¬O§A­nªºµ²ªG ·PÁÂ

TOP

¦^´_ 9# BV7BW

§â Range([¤u§@ªí4!A65535].End(3), [¤u§@ªí4!J2]).Sort [¤u§@ªí4!F2], 1, Key2:=[¤u§@ªí4!B2], Header:=2 ³o¦æ²¾¥X¨Ó

¥t¥~¥[¤@­Ó sub ´N¥i¥H¤F

TOP

¦^´_ 28# BV7BW

¬Æ»òºÙ¸¹¿ù¶Ã?

TOP

        ÀR«ä¦Û¦b : ¬Ý§O¤H¤£¶¶²´¡A¬O¦Û¤v­×¾i¤£°÷¡C
ªð¦^¦Cªí ¤W¤@¥DÃD