<em>EXCEL</em> VBA请求高手解释语句并修改-excel vba语句,vba语句大

For Each rng1 In Rng
If rng1.Find("，", , , xlPart) Is Nothing Then '判断单元格是知否是多个名字，多个名字时是由，分割符分开的，所道以通过判断是否存在，来确定是一内个名字还是多个名字
myb(rng1.Value) = Application.WorksheetFunction.CountIf(Rng, "*" & rng1 & "*") '使用通配符改为模容糊统计
end if
Next
你写得太zd复杂了，有更简单的办版法你要不
就是用字典对象权

Sub AAAAA()
Dim T As String
Dim A
Dim D
Dim Ai
Dim i
Set D = CreateObject("scripting.dictionary")
T = InputBox("Please, enter a text")
T = Replace(T, ",", " ")
A = Split(T, " ")
For Each Ai In A
If Len(Ai) > 0 Then D(Ai) = ""
Next
For i = 1 To D.Count
Sheets("Output1").Cells(i, 1) = D.keys()(i - 1)
Next
End Sub

符合什么条件？n这个数怎么得来呢？
建议做来个do循环，或者FOR循环，中间n做符合条自件的序列，判断sheet1中符合的单百元格，目标单元格直接写CELLS（1，n）即可度。
既然能写出第一段循环， 那么这个循环写出来也问没问题吧？
如果还有问题，可以答继续追问或者私信。
欢迎关注！