今天在做表的时候，发现数组中提取出来的是文字类型，需要转换成数值类型，网上搜索到了字符转换的方法，超级实用，记录下来。
如果用mid函数提取的字符范围增加，可参照VBA中的帮助“类型转换函数”。

CBool(expression)
CByte(expression)
CCur(expression)
CDate(expression)
CDbl(expression)
CDec(expression)
CInt(expression)
CLng(expression)
CLngLng(expression)（只在 64 位平台上有效。）
CLngPtr(expression)
CSng(expression)
CStr(expression)
CVar(expression)
CStr(expression)
这样的话
 使用csng（arr(i,1)）就当成数值用啦，不会报错啦
Dim alphabet()
'a-z字母表
alphabet() = Array("A", "B", "C", "D", "E", "F", "G", "H", "I", "J", "K", "L", "M", "N", "O", "P", "Q", "R", "S", "T", "U
                                    I have columns of numbers that, for whatever reason, are formatted as text. This prevents me from using arithmetic functions such as the subtotal function. What is the best way to convert these "text ...
                                    Str函数将数值转换为字符串，即返回一个代表一个数值的字符串，其语法为：Str(number)CStr函数将数值表达式转换为字符串，其语法为：CStr(mynumberExpression)注意：当一个数值转换成字符串时，总会在其前面保留一个空位来表示正负，即字符串的第一位一定是空格或正负号，Str将英文句号(.)作为有效的小数点。演示代码：Sub StrTranfomationDemo()Dim...
如果是将当前工作簿所有工作表的公式转换为数值，需要使用到VBA代码。
Sub FunctionTransValue_Sheets()
    Dim sht As Worksheet
    For Each sht In Worksheets '遍历工作表
        sht.UsedRange.Value = sht.UsedRange.Value
    MsgBox "ok"
                                    在Excel工作表中，使用自定义格式可以轻松实现指定宽度（数字个数）格式，例如设置单元格格式为“000”，输入数字6，则单元格显示内容为006，如下图所示。组成的字符串，只是此处作为格式字符，相当于Excel中的自定义格式。有的小伙伴可能说这个很简单，可以使用Range对象的Text数据，例如。接下来创建一个自定义函数实现格式转换，函数提供了两个参数。这个方法是可行的，其实还有更简单的方法。连接符将填充字符串和数字合并，然后使用。组成的字符串，以下简称为填充字符串。函数提取字符串从右侧开始的指定位数。...
找到VBA库并输入Conversion(转换)找到该模块，里面提供了数据转换函数。
 VBA提供了两套内置的数据类型转换函数，第一组包含Int、 CVDate和Str,这是早期版本，只是向后兼容而保留。第二组函数都是以字母“C”开头,编程中使用第二组。
每个转换函数的语法基本相同，例如：
Expression是输入参数，然后转换为相应的数据类型。
VBA支持数据类型转换的功能有：
VBA.Conversion.CBool(Express