指定一列做从小到大排序

weilaikeqiak

根据T列的数据在原工作表做排序，如何写代码。

chxw68

1. Sub test()
   
2.     Dim r%, i%
   
3.     With Worksheets("sheet1")
   
4.         r = .Cells(.Rows.Count, 1).End(xlUp).Row
   
5.         .Range("b3:t" & r).Sort key1:=.Range("t3"), order1:=xlAscending, Header:=xlNo
   
6.     End With
   
7. End Sub
   

复制代码

醉眼看尘世

1. Sub test()
   
2. Dim rNg As Range
   
3. Set rNg = [b3].Resize(Cells(Rows.Count, "B").End(3).Row - 2, 19)
   
4. rNg.Sort rNg.Column(19), xlAscending, , , , , , xlNo
   
5. End Sub
   

复制代码

chxw68

简单问题。

小凡、、、

二位数组简单冒泡排序

ykcbf1100

二行代码即可

ykcbf1100

排序。。。。

chxw68

ykcbf1100 发表于 2024-8-27 19:17
二行代码即可

你的代码风格也在转变。

ykcbf1100

chxw68 发表于 2024-8-27 19:20
你的代码风格也在转变。

我主要学老师你的，现在慢慢有了点自己的东西。

weilaikeqiak

ykcbf1100 发表于 2024-8-27 19:17
排序。。。。

代码简洁可读性又强，太厉害了。