vba去除数组重复数据Dim intArr()
Dim strL As string
vba 字符串转数组Dim BB As new Collection
for i = LBound(varFileList) To UBound(varFileList)
  strTemp1 = varFileList(i)
  strL = Mid(strTemp1, 1, inStr(strTemp1, "-")-1)
  nL = Cint(strL)
  BB.Add varFileList(i), Str(varFileList(i))
  Next i
Redim Preserve unt)
  FOr i = 1 To BB.Count
    intArr(i) = BB(i)
    MsgBox intArr(i)
  Next

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。