查找不同单元格内一连串关键词中相同的关键词(求解)

jddsky

查找不同单元格内一连串关键词中相同的关键词(求解)

jddsky

顶！！！！

jddsky

顶顶~~~

这儿有肥猫

FYI，既然发到VBA区就保存成xlsm格式嘛

grf1973

1. Sub a()
   
2.     arr = Range("b2:b" & [b65536].End(3).Row)
   
3.     Set dic = CreateObject("scripting.dictionary")
   
4.     For i = 1 To UBound(arr)
   
5.         xrr = Split(arr(i, 1), "，")
   
6.         For Each x In xrr
   
7.             dic(Trim(x)) = dic(Trim(x)) + 1
   
8.         Next
   
9.     Next
   
10.     [i12].Resize(dic.Count, 2) = Application.Transpose(Array(dic.keys, dic.items))
    
11.     [i12].Resize(dic.Count, 2).Sort [j11], xlDescending
    
12. End Sub

复制代码

jddsky

这儿有肥猫 发表于 2017-8-16 10:03
FYI，既然发到VBA区就保存成xlsm格式嘛

你好~不是很熟悉~~抱歉~~~~谢谢解答~~就是要这样的效果~~就是想扩大查找范围~~请帮忙修改下~~谢谢

jddsky

grf1973 发表于 2017-8-16 10:14

谢谢~~搞出来了~~

这儿有肥猫

jddsky 发表于 2017-8-16 10:30
你好~不是很熟悉~~抱歉~~~~谢谢解答~~就是要这样的效果~~就是想扩大查找范围~~请帮忙修改下~~谢谢

楼上的代码更简洁~

jddsky

这儿有肥猫 发表于 2017-8-16 11:07
楼上的代码更简洁~

谢谢~~