词类排序，在线等。

活宝番茄蛋花汤

yjh_27 发表于 2014-3-20 13:25
多排一次序而已

可能我的表达有问题，还是没有根据等级来排序，最新的文档和要求已经重新发布在一楼，只要得到1楼我想的结果，那么排序就是成功了，麻烦前辈了。

yjh_27

活宝番茄蛋花汤 发表于 2014-3-20 13:35
可能我的表达有问题，还是没有根据等级来排序，最新的文档和要求已经重新发布在一楼，只要得到1楼我想的结 ...

10L 附件

brr = [b2:c5]     '取值，自定义序列 范围自己改   如1L新附件 b2:c6

liu-aguang

1. Sub test()
   
2.     '以工作表2数据为例
   
3.     Dim cel As Range, c As Range, newstr$, regx
   
4.     Set regx = CreateObject("vbscript.regexp")
   
5.     regx.Pattern = "[一-龥]+": regx.Global = True
   
6.     For Each cel In ActiveSheet.Columns(1).SpecialCells(xlCellTypeConstants)
   
7.         newstr = ""
   
8.         Set mh = regx.Execute(cel.Value)
   
9.         For Each s In mh
   
10.             Set c = Sheets(2).Columns(4).Find(s, lookat:=xlWhole)
    
11.             If Not c Is Nothing Then
    
12.                 If c.Offset(0, -2) = "重点词*" Then newstr = "[" & c.Value & "]" & newstr _
    
13.                 Else newstr = newstr & "[" & c.Value & "]"
    
14.             End If
    
15.         Next
    
16.         If Len(newstr) <> 0 Then cel.Value = newstr
    
17.     Next
    
18. End Sub
    

复制代码

活宝番茄蛋花汤

yjh_27 发表于 2014-3-20 13:41
10L 附件

brr = [b2:c5]     '取值，自定义序列 范围自己改   如1L新附件 b2:c6

你的代码我认真研究了一下午，虽然还有很多地方没看明白，不过程序是完美的，感谢你的回答。送上3分以表谢意！

yjh_27

活宝番茄蛋花汤 发表于 2014-3-20 17:33
你的代码我认真研究了一下午，虽然还有很多地方没看明白，不过程序是完美的，感谢你的回答。送上3分以表谢 ...

研究代码去我的帖子，有大量实例。及各参数详细注释

活宝番茄蛋花汤

yjh_27 发表于 2014-3-20 18:17
研究代码去我的帖子，有大量实例。及各参数详细注释

多Key数组排序(分类、统计、重复处理)-自定义函数
http://club.excelhome.net/thread-1090007-1-1.html
是这个吗?

yjh_27

活宝番茄蛋花汤 发表于 2014-3-21 10:40
多Key数组排序(分类、统计、重复处理)-自定义函数
http://club.excelhome.net/thread-1090007-1-1.html
...

是的。
你另一帖按按长度排序也能实现，另补充了LenB

活宝番茄蛋花汤

liu-aguang 发表于 2014-3-20 14:40

感谢回答，我已经得到了想要的答案了。