排序

yynrzwh · 发表于 2024-1-9 18:01

按指定字符排序.rar (13.99 KB, 下载次数: 12)

无关岁月 · 发表于 2024-1-9 18:12

本帖最后由无关岁月于 2024-1-9 18:19 编辑

副本按指定字符排序.7z (12.8 KB, 下载次数: 7)

屏幕截图 2024-01-09 181106.png

chxw68 · 发表于 2024-1-9 19:10

Sub test()
Dim r%, i%
With Worksheets("sheet1")
r = .Cells(.Rows.Count, 1).End(xlUp).Row
With .Sort
.SortFields.Clear
.SetRange .Parent.Range("a1:e" & r)
.SortFields.Add Key:=.Parent.Range("e1"), Order:=xlAscending, CustomOrder:="男装,男鞋,女装,女鞋,手表,手链"
.Header = xlYes
.Apply
End With
End With
End Sub

复制代码

chxw68 · 发表于 2024-1-9 19:11

利用Sort对象排序。

huanghai22 · 发表于 2024-1-9 19:23

2010版本自定义函数表示参与一下

ddz79101 · 发表于 2024-1-9 19:56

chxw68 发表于 2024-1-9 19:11
利用Sort对象排序。

老师！你代码我试运了一下，发现 With .Sort对象不支持该属性和方法。可以帮忙再看下吗？谢谢

ddz79101 · 发表于 2024-1-9 20:48

无关岁月发表于 2024-1-9 18:12

谢谢老师！运行成功！花今天献完了，明天奉上

ddz79101 · 发表于 2024-1-9 20:49

yynrzwh 发表于 2024-1-9 18:01

谢谢老师！运行成功！花几天献完了，明天奉上

ddz79101 · 发表于 2024-1-9 20:50

cidanji 发表于 2024-1-9 17:38

谢谢老师！运行成功！今天花用完了，明天奉上

chxw68 · 发表于 2024-1-10 08:37

ddz79101 发表于 2024-1-9 19:56
老师！你代码我试运了一下，发现 With .Sort对象不支持该属性和方法。可以帮忙再看下吗？谢谢

你的EXCEL版本太低了。

		自动登录	找回密码
密码			免费注册

[求助] 排序