最近有个网友提问，下面的代码中并没有指定正则表达式的匹配模式（Pattern属性），为什么也可以执行，正则对象根据什么规则去进行匹配。
示例代码如下。

Sub Demo()
    Dim strText As String
    Dim strNew As String
    Dim varText
    Dim objRegExp As Object
    Set objRegExp = CreateObject("VBSCRIPT.REGEXP")
    With objRegExp
        .Global = True
    End With
    strText = "ABCDEFGH"
    strNew = objRegExp.Replace(strText, " ")
    varText = Split(Trim(strNew))
    Set objRegExp = Nothing
End Sub
运行代码，本地窗口如下所示。strText为需要处理的字符串，共有有8个字符，经过正则替换，结果保存在变量strNew中，不难看出首位各有一个空格，并且每个字符之间也插入了一个空格。这是如何实现的呢？
 
 正则对象不指定匹配模式时，相当于Pattern = ""，此时匹配字符串中的每一个位置（零宽），注意不是每个字符。例如对于字符串ABCD，包含4个字符，这个非常容易理解，但是其中包含5个位置（下箭头所示），如下图所示。黄色标记为字符串的开始和结束标记。
 
 知道了匹配位置（零宽）和匹配字符的区别，就不难理解为什么正则替换的结果包含前导空格和尾随空格。
 第12行代码使用Split函数将正则替换结果拆分为数组。
 
字符串转换为单字符数组有多种实现方式，本文只是其中的一种正则应用而已。
Rem range("f1").value="1001|1,2005|1,1006|1,2009|1,2006|1,4001|60"
arr1 = Split(Range("f1"), ",")
For i =...
				
今天遇到了一个小问题，项目中一个功能是按特定数字键，进入到酒店模式。
但是发现拿到的按键键值是字符串的，我们判断的时候需要拿数字判断，导致二者永远判断不等。
if (this.numVec[0].key === vec[0] &&
this.numVec[1].key === vec[1] &&
this.numVec[2].key === vec[2] &...
' 定义一个一维数组，数据类型为Variant，长度从0到5，实际控件有六个，长度为5
Dim arr(5) as String
' 定义一个一维数组，数据类型为Variant，长度从1到5，实际控件有六个，长度为5
Dim arr(1 to 5) as String
' 可以省略As后面部分，等于 Dim arr2 () as Variant
Dim arr(5)
' 一维数组，下标从0开始
arr2 = Array("你好", "世界")
				
'VBA把JSON字符串转为数组，在VBA中解析JSON对象数组为VBA数组对象
'Andy 2022.04.07
功能：把VBA获取的网页JSON对象数组，转换成本地VBA数组，供本地程序使用
特色：实现二维表格数据直接转换，在VBA中使用JS代码轻松实现
				
正则表达式通常是用来处理文本数据的，并不支持直接处理Excel单元格中的数据。如果想在Excel中使用正则表达式，可以使用Excel的VBA（Visual Basic for Applications）编写代码来实现，具体步骤如下：
1. 打开Excel文件，按Alt + F11打开VBA编辑器。
2. 在VBA编辑器中，点击插入->模块，在模块窗口中编写代码，代码内容可以参考下面的示例：
Function RegExMatch(ByVal text As String, ByVal pattern As String) As Boolean
    Dim regEx As Object
    Set regEx = CreateObject("VBScript.RegExp")
    regEx.Pattern = pattern
    RegExMatch = regEx.Test(text)
End Function
3. 使用公式，在Excel中调用RegExMatch函数来使用正则表达式处理单元格中的数据。示例：
=RegExMatch(A1, "^\d+$")
这样就可以在Excel中使用正则表达式了。