数组去重复

liwenhong

djyjysxxs 发表于 2013-4-4 22:35
对数字有效，且都有弱点
Sub test1()
    Dim A, B, i, r

我有一个问题，比这个要好解决点，求帮助。
我原来的职工信息查询使用职工姓名查询，但是当职工有重名时，只能查询一个职工的信息。现在，我想再增加一个使用职工编号查询的窗体，专门针对重名部分职工的信息查询。有VBA编码，请高手帮助修改。附件：

爱疯

无聊的疯子 发表于 2013-4-10 21:16
这里空的数组会运行出错

如果单独写的话,

Sub a()
Dim arr(1 To 46636), str
str = Join(arr)
Debug.Print Len(str)
str = Application.Trim(str)
End Sub


Sub aa()
Dim arr(1 To 3276800), str
str = Join(arr)
Debug.Print Len(str)
str = VBA.Trim(str)
End Sub


我觉得，你前面的观点是对的：application.trim最大字符串长度是32767

application.trim：除了单词之间的单个空格外，清除文本中所有的空格。
          VBA.trim：去除前导和尾随空白，单词之间的空格不处理。

看来，在对于字符串长度的问题上，两者也有区别。

无聊的疯子

爱疯 发表于 2013-4-10 21:32
Sub a()
Dim arr(1 To 46636), str
str = Join(arr)

嗯,还是要拿具体的数据来测试才知了解更多!!

刚才那个测试不全面,结论下早了

yyyydddd8888

精彩！非常好的帖子！

junjun324

学习

tgydslr

学习了，高人都在这呢