[已解决]数组一共几种方法学习

laoau138

数组一共几种方法学习

最佳答案

月排行榜 / 总排行榜

大灰狼1976

2017-6-15 14:12

还有Collection方法。

1. Sub aaa()
   
2. Dim Cln As New Collection, arr, s$
   
3. s = [a1]
   
4. arr = Split(s, ",")
   
5. On Error Resume Next
   
6. For i = 0 To UBound(arr)
   
7.   Cln.Add arr(i), CStr(arr(i))
   
8. Next i
   
9. s = ""
   
10. For i = 1 To Cln.Count
    
11.   s = s & "," & Cln.Item(i)
    
12. Next i
    
13. [a3] = Mid(s, 2)
    
14. End Sub

复制代码

跳转到最佳答案楼层

大灰狼1976

还有Collection方法。

1. Sub aaa()
   
2. Dim Cln As New Collection, arr, s$
   
3. s = [a1]
   
4. arr = Split(s, ",")
   
5. On Error Resume Next
   
6. For i = 0 To UBound(arr)
   
7.   Cln.Add arr(i), CStr(arr(i))
   
8. Next i
   
9. s = ""
   
10. For i = 1 To Cln.Count
    
11.   s = s & "," & Cln.Item(i)
    
12. Next i
    
13. [a3] = Mid(s, 2)
    
14. End Sub

复制代码