¨D°Ýì¦]¡G±Æ§Ç4Ókey¥X²{Error, 3Ókey ¨S°ÝÃD
- ©«¤l
- 430
- ¥DÃD
- 65
- ºëµØ
- 0
- ¿n¤À
- 521
- ÂI¦W
- 30
- §@·~¨t²Î
- win7
- ³nÅ骩¥»
- office 2010
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2012-10-30
- ³Ì«áµn¿ý
- 2024-8-13
|
¨D°Ýì¦]¡G±Æ§Ç4Ókey¥X²{Error, 3Ókey ¨S°ÝÃD
- Letter = "G"
- Worksheets("Backup").Range("A2:BB65536").sort Key1:=Range("D3"), Order1:=xlAscending, _
- Key2:=Range("A3"), Order2:=xlAscending, Key3:=Range(letter & "3"), Order3:=xlAscending, Header:=xlYes
- Worksheets("Backup").Range("A2:BB65536").sort Key1:=Range("D3"), Order1:=xlAscending, _
- Key2:=Range("A3"), Order2:=xlAscending, Key3:=Range("B3"), Order3:=xlAscending, Key4:=Range(letter & "3"), Order4:=xlAscending, Header:=xlYes
½Æ»s¥N½X ¦b°µ±Æ§Ç®É¡A§Ú¨Ï¥Î4Ókey ´N·|¥X²{Error, ¥u¬O3ÓKey´N¨S°ÝÃD¡A½Ð°Ý¬O¤°麽ì¦] |
|
|
|
|
|
|
- ©«¤l
- 1440
- ¥DÃD
- 40
- ºëµØ
- 0
- ¿n¤À
- 1464
- ÂI¦W
- 0
- §@·~¨t²Î
- Windows 7
- ³nÅ骩¥»
- Excel 2010 & 2016
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥xÆW
- µù¥U®É¶¡
- 2020-7-15
- ³Ì«áµn¿ý
- 2024-8-22
|
¦^´_ 1# 198188
«Øij¥Î¿ý»s¥¨¶°ªº¤èªk |
|
¥Î¦æ°Ê¸Ë¸mÂsÄý½×¾Â¾Ç²ß«Ü¤è«K,ÁÂÁ½׾¸gÀç¹Î¶¤
½Ð¤j®a¤@°_¤W½×¾Â¨Ó¥æ¬y
|
|
|
|
|
- ©«¤l
- 430
- ¥DÃD
- 65
- ºëµØ
- 0
- ¿n¤À
- 521
- ÂI¦W
- 30
- §@·~¨t²Î
- win7
- ³nÅ骩¥»
- office 2010
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2012-10-30
- ³Ì«áµn¿ý
- 2024-8-13
|
¦^´_ 2# Andy2483
¤W±ªº´N¬O¿ý»s¥¨¶°¦Z¡A§Û¨ìµ{¦¡内¡A¥i¬O¹B¦æ®É¥X²{¿ù»~¡C
µM«á§Ú§R¤FKEY4¦Z¡A´N¨S°ÝÃD¤F¡C |
|
|
|
|
|
|
- ©«¤l
- 1440
- ¥DÃD
- 40
- ºëµØ
- 0
- ¿n¤À
- 1464
- ÂI¦W
- 0
- §@·~¨t²Î
- Windows 7
- ³nÅ骩¥»
- Excel 2010 & 2016
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥xÆW
- µù¥U®É¶¡
- 2020-7-15
- ³Ì«áµn¿ý
- 2024-8-22
|
¦^´_ 3# 198188
«Øij4¼h±Æ§Ç³£¥Î¿ý»sªº¤è¦¡ |
|
¥Î¦æ°Ê¸Ë¸mÂsÄý½×¾Â¾Ç²ß«Ü¤è«K,ÁÂÁ½׾¸gÀç¹Î¶¤
½Ð¤j®a¤@°_¤W½×¾Â¨Ó¥æ¬y
|
|
|
|
|
- ©«¤l
- 830
- ¥DÃD
- 6
- ºëµØ
- 0
- ¿n¤À
- 910
- ÂI¦W
- 4
- §@·~¨t²Î
- Win 10,7
- ³nÅ骩¥»
- 2019,2013,2003
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2010-5-3
- ³Ì«áµn¿ý
- 2024-9-6
|
¦b°µ±Æ§Ç®É¡A§Ú¨Ï¥Î4Ókey ´N·|¥X²{Error, ¥u¬O3ÓKey´N¨S°ÝÃD¡A½Ð°Ý¬O¤°麽ì¦]
198188 µoªí©ó 2024-7-19 16:23 ![](https://forum.twbts.com/images/common/back.gif)
½Ð°Ñ¦Ò :
Range.Sort ¤èªk (Excel)
¦b Sort ªº»yªk»¡©ú¤¤¥i¥H¬Ý¨ì ±Æ§Ç±ø¥ó³Ì¦h¥u¯à¦³ "3" Ó
Y§A¨Ï¥Î¿ý»s®É¿ï¾Ü¶W¹L3ӱƧDZø¥óÀ³¸Ó·|µo²{¥¦¨Ï¥Î¥t¥~¤@ºØ»yªk¹ê²{ :
SortFields- Dim rTar As Range ' ±Æ§Ç¼Ðªº
- Dim letter As String
-
- letter = "G"
- With Worksheets("Backup").Sort
- Set rTar = .Parent.Range("A2:BB65536")
-
- .SortFields.Clear ' ²M°£±Æ§Ç³]©w
-
- ' rTar.Columns("D") ¨ú rTar Àx¦s®æ½d³ò¼Ðªº¤ºªº D Äæ¸ê®Æ
-
- .SortFields.Add2 Key:=rTar.Columns("D") _
- , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
-
- .SortFields.Add2 Key:=rTar.Columns("A") _
- , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
-
- .SortFields.Add2 Key:=rTar.Columns("B") _
- , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
-
- .SortFields.Add2 Key:=rTar.Columns(letter) _
- , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
- .SetRange rTar
- .Header = xlGuess
- .MatchCase = False
- .Orientation = xlTopToBottom
- .SortMethod = xlPinYin
- .Apply ' °õ¦æ±Æ§Ç
- End With
½Æ»s¥N½X |
|
|
|
|
|
|