排序失败

jasson_luck

各位大侠：

请问我的区域数据排序为何失败了？该如何修改？

盼盼198310

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

jasson_luck

盼盼198310 发表于 2023-4-6 07:59
..............

试了，貌似也没成功。

zxsea_7426

jasson_luck 发表于 2023-4-6 08:34
试了，貌似也没成功。

那是你没有表述清楚需求

zxsea_7426

盼盼198310 发表于 2023-4-6 07:59
..............

应该再加个升序或者降序的选框就更完美

ykcbf1100

你没代码，别人怎么改；你也没有说明如何排序，你让人怎么帮你。

盼盼198310

zxsea_7426 发表于 2023-4-6 08:45
应该再加个升序或者降序的选框就更完美

这样还好点吧

tanglf188

你先用Set ss = Application.InputBox("请选择排序列", Type:=8)选择单元格区域，再用
If k <> 1 Then
    MsgBox "不能选择多个区域"
    Exit Sub
End If
排除多单元格区域
那么也就是你想对单个单元格排序？

jasson_luck

zxsea_7426 发表于 2023-4-6 08:43
那是你没有表述清楚需求

确实没说清楚。不过附件里有代码，我是想按C列来排序（降序），排完序后整行数据位置随之变化。

jasson_luck

盼盼198310 发表于 2023-4-6 10:28
这样还好点吧

可以。谢谢了！