vBA 用正则表达式分列

根据提供的两个VBA代码，可以看出这两个代码都是使用正则表达式来处理Excel中的数据。第一个代码是用来提取数字运算符的，第二个代码是用来提取品名和型号的。如果你想要使用正则表达式来分列，可以参考以下步骤：

1.首先，你需要打开Excel文件并按下Alt+F11打开VBA编辑器。

2.在VBA编辑器中，你需要插入一个新的模块。可以通过点击“插入”菜单，然后选择“模块”来完成这个操作。

3.在新的模块中，你需要编写一个新的VBA代码。这个代码需要使用正则表达式来分列。以下是一个简单的例子：

Sub SplitColumns()
    Dim regex As Object
    Set regex = CreateObject("VBScript.RegExp")
    regex.Pattern = "(\d+)\s+(\w+)"
    Dim cell As Range
    For Each cell In Selection
        If regex.Test(cell.Value) Then
            Dim matches As Object
            Set matches = regex.Execute(cell.Value)
            cell.Offset(0, 1).Value = matches(0).SubMatches(0)
            cell.Offset(0, 2).Value = matches(0).SubMatches(1)
        End If
    Next
End Sub

4.在这个代码中，我们使用了VBScript.RegExp对象来创建一个正则表达式对象。然后，我们设置了正则表达式的模式，这个模式可以匹配一个数字和一个单词。接下来，我们遍历了选定的单元格，并对每个单元格进行了测试。如果单元格的值与正则表达式匹配，我们就使用Execute方法来获取匹配项。最后，我们将匹配项的子匹配项分别放入单元格的相邻列中。

5.最后，你只需要在Excel中选择你想要分列的单元格，然后运行这个VBA代码即可。