[已解决]Split的数组指定类型？？？

xdwy81129

                lgjs = lgjs& "," & arr12(3, i)
            
arr = Split(lgjs, ",")

这里arr各元素被指定为string了，希望各元素是数字类型，方便后续计算，所以请教发帖提问

最佳答案

月排行榜 / 总排行榜

青城山苦丁茶

2011-2-20 11:32

也可不用Split，直接用arr  = evaluate("{" & lgjs & "}")

跳转到最佳答案楼层

snrvgbb

在这里lgjs就是字符型的，要运算不一定非要是数字类型。

青城山苦丁茶

VBA有个“长处”：
两个字符型数据可以直接进行除加以外的运算，如MsgBox "123" - "456"
如果要进行加，可将任一个字符型转换成数字型就可以了，如：MsgBox Val("123") + "456"
或增加一个数字型的，如：MsgBox 0+"123" + "456"

青城山苦丁茶

也可不用Split，直接用arr  = evaluate("{" & lgjs & "}")

xdwy81129

回复 青城山苦丁茶 的帖子

arr  = evaluate("{" & lgjs & "}")提示错误：类型不匹配


数组类型.rar (6.27 KB, 下载次数: 10)

2011-2-21 13:57 上传

点击文件名下载附件

豆丁

1. Sub 数组类型()
   
2. Dim lgjs$, arr, brr()
   
3. arr12 = [c1:c5]
   
4. 
   
5. For i = 1 To 5
   
6. 
   
7. 
   
8. lgjs = lgjs & "," & arr12(i, 1)
   
9. 
   
10. Next i
    
11. arr = Split(lgjs, ",")
    
12. 
    
13. lgjs = Mid(lgjs, 2, Len(lgjs) - 1)
    
14. 
    
15. brr = Evaluate("{" & lgjs & "}")
    
16. 
    
17. Stop
    
18. End Sub
    

复制代码