数据按列排序

一招秒杀

这么简单的需求，选中一列数据，在数据菜单下选排序，多搞几次就好，看来你们是根本不会用Excel啊。就这还要写VBA宏代码，你们是不是手中拿着个锤子，看到什么都是钉子，一定要用锤子锤几下？

一招秒杀

点几下鼠标就能完成的事情，何必写什么代码？看来看多人的Excel的使用还没有入门啊。

jx928867128

ynzsvt 发表于 2024-8-4 10:35
各列各自排序

这个排序通用性强

zpy2

//select * from Sheet1 limit 20;
cli_one_dim~Sheet1~0;
create temp table aa as
select rank() over (partition by 属性 order by 数量) 排序,* from Sheet1union;
cli_create_two_dim~aa~属性~数量;
select * from aa_two_dim;

cnmlgb9998

...........................

ykcbf1100

這個其實簡單。

ykcbf1100

按列排序。。。

1. Sub ykcbf()  '//2024.8.4   按列排序
   
2.     For j = 1 To 4
   
3.         r = Cells(Rows.Count, j).End(3).Row
   
4.         Set Rng = Cells(2, j).Resize(r - 1, 1)
   
5.         Rng.Sort Cells(2, j), 1
   
6.     Next
   
7.     MsgBox "OK！"
   
8. End Sub
   

复制代码

lhj323323

无关岁月 发表于 2024-8-4 10:33
Sub test()
Dim arr, ls, i, j, k
arr = Range("a1").CurrentRegion.Offset(1)

岁月老师

生成的结果表，的最右一列，错位了

无关岁月

lhj323323 发表于 2024-8-5 07:27
岁月老师

生成的结果表，的最右一列，错位了

那就把4^8改成9^9