词类排序，在线等。

活宝番茄蛋花汤

对A2的内容进行排序，排序的是根据词类的等级来排序，即重点词在前，其他词在后，最后的排序结果应该是：[手机][话费][和胖][是多少|多少钱]

蓝桥玄霜

1. Sub lqxs()
   
2. Dim aa$, Myr&, Arr, i&, sx, mb$
   
3. aa = [a2].Value
   
4. Myr = Cells(Rows.Count, 2).End(xlUp).Row
   
5. Arr = Range("c2:c" & Myr)
   
6. ReDim sx(1 To UBound(Arr))
   
7. For i = 1 To UBound(Arr)
   
8.     sx(i) = Arr(i, 1)
   
9. Next
   
10. bb = Split(aa, "]")
    
11. For j = 1 To UBound(sx)
    
12.     For i = 0 To UBound(bb)
    
13.         If bb(i) <> "" Then
    
14.         If InStr(bb(i), sx(j)) Then
    
15.             mb = mb & bb(i) & "]": Exit For
    
16.         End If
    
17.         End If
    
18.     Next
    
19. Next
    
20. MsgBox mb
    
21. End Sub
    

复制代码

蓝桥玄霜

请见附件。

yjh_27

参见附件。

活宝番茄蛋花汤

蓝桥玄霜 发表于 2014-3-18 09:35

谢谢版主能抽空回答我的问题，可能我表达的不够清楚，我需要的的是按照等级排序，我刚试了下，如果把B2换成“其他词”B4和B5换成“重点词*”那么最后的结果应该是：[话费][是多少|多少钱][手机]或[是多少|多少钱][话费][手机]（同级任意排序），可现在的试下来的结果还是：[手机][话费][是多少|多少钱][是多少|多少钱]（这里[是多少|多少钱]出现了两次，也是个小BUG），希望斑竹指导我，谢谢。

活宝番茄蛋花汤

yjh_27 发表于 2014-3-18 14:39
参见附件。

代码实在太复杂，没看懂。。。。。。。

yjh_27

活宝番茄蛋花汤 发表于 2014-3-20 09:04
代码实在太复杂，没看懂。。。。。。。

看懂模块1即可。
Sub aa()
arr = [a2:a3]      '取值

brr = [c2:c5]     '取值，自定义序列
crr = Split(arr(1, 1), "]")       ’按“]”：分列
crr = YjhSort(crr, "a", "1u2", , , , , , , brr)        '按c列的自定义序列升序排列
arr(1, 1) = Join(crr, "]")             '组合

[a4] = arr         ’写回单元格

End Sub

活宝番茄蛋花汤

yjh_27 发表于 2014-3-20 09:20
看懂模块1即可。
Sub aa()
arr = [a2:a3]      '取值

这样是能够理解了，但是crr=Yjhshort(crr,"a","lu2",,,,,,,,,,brr)有问题，我要求的不是按照升序排列，而是按照词的等级排序，只是我正巧把词排成了那样，所以运行结果才没有问题，和楼上斑竹给我的代码所出现的问题一样，详情请见我对斑竹的回复。

yjh_27

1 上不是正巧的附件
2 把brr数组用Yjhshort排成你需要的序列（你明确要求）

yjh_27

活宝番茄蛋花汤 发表于 2014-3-20 10:12
这样是能够理解了，但是crr=Yjhshort(crr,"a","lu2",,,,,,,,,,brr)有问题，我要求的不是按照升序排列，而 ...

多排一次序而已