子字符串()
Dim i,K
對於i = 2的範圍(“A65536”)。結束(xlUp)。排
對於j = 2的範圍(“c65536”)。結束(xlUp)。排
N = Len(單元格(I,“c”))
對於R = 1到N
Y = Mid(單元格(j," c "),R,1)
X =工作表功能。CountIf(Cells(i," a ")," * " & ampY & amp"*")
K = K + X
如果N = K,那麽
單元格(即“E”)=單元格(即“A”)
如果…就會結束
然後
K = 0
然後
然後
末端接頭