转换字符型数字数组为数字数组

作者：绿色风分类：时间：2022-08-18 浏览：142

楼主 DJ_Soo	Q：字符型数组中有好多函数无法使用,如何将其转换为数字型数组? A：VBA中其实有很多转换方法,但VBA中还有自动判断类型的转换,所以可以不用任何VBA函数达到效果: ALT+F11→插入→模块→输入代码: Function Str2Num(arr As Variant) Dim arrTmp() As Long'这里可以声明为想要转换为的数字类型 Dim Cnt As Integer Dim ys As Variant Dim i As Integer Cnt = UBound(arr) - LBound(arr) + 1'此处仅用一维数组测试 ReDim arrTmp(1 To Cnt) For Each ys In arr i = i + 1 arrTmp(i) = ys '* 1此处不用处理,VBA自动认定是Long类型会自己转换 Next Str2Num=arrTmp End Function
2楼 kevinchengcw	收下了，猪猪继续！
3楼 xyf2210	学习了

免责声明

有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，经与ExcelTip.Net站长Apolloh商议并征得其同意，现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，供有需要的人士查询使用，也慰缅曾经的论坛时代。所示各个帖子的原作者如对版权有异议，可与本人沟通提出，或于本站点留言，我们会尽快处理。在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一

评论列表