excelvba for循环使用
发布网友
共1个回答
热心网友
Public Function def(a As Range)
Dim i%, y$
i = Int((Len(a.Text) - 0.1) / 5) + 1
For i = 1 To i
y = y & Mid(a.Text, (i - 1) * 5 + 1, 3)
Next
def = y
End Function
你的单元格的内容和显示的内容不是相同的，设置了格式对吧，否则你的自定义函数是对的。
