VB6 VBA 数组中的值字符串转为数字 2次分割代码简化
A2=(11,12)(13,14,15)()(16,17)
A3=（)(55,34)
()总数是可变的，（）的数字数量也是可变的
mid 去头尾
Split分割 “)(”
Split分割“，”
得到的都是动态数组，值全是字符串
难道用循环语句加 VAL （） 一个一个赋值？
目标是得到数组，值全是数值类型的
问1:简化代码？2次分割用2维数组好弄不？
问2,字符串转为数字不用循环一个一个弄有没有更好的办法
只有这么多分,不好意思，大神级回答实物打赏,食言木有小鸡鸡
最新回答
薄荷心凉
2024-05-05 05:26:24
先替换掉括号。。即可。。
Sub aa()
A1 = "(1,2,3,4)(5,6),(7,8,9)(10,11,12,13,14)"
A2 = "(11,12)(13,14,15)()(16,17)"
A3 = "（)(55,34)"
A1 = Replace(Replace(A1, "(", ""), ")", "")
A2 = Replace(Replace(A2, "(", ""), ")", "")
A3 = Replace(Replace(A3, "(", ""), ")", "")
AA1 = Split(A1, ",")
AA2 = Split(A2, ",")
AA3 = Split(A3, ",")
End Sub
热门标签
