如何在Excel中将字母数字字符串拆分为两列？

将字母数字字符串拆分为两列——一列为数字，另一列为字母——有助于数据管理。在本文中，我将向您展示将这些字符串拆分为单独列的有用方法。

使用用户定义函数将字母数字字符串拆分为两列

使用Kutools for Excel将字母数字字符串拆分为两列

使用用户定义函数将字母数字字符串拆分为两列

例如，我有一系列字母数字字符串需要拆分为两列，如下图所示：

在这里，我可以创建一个用户定义函数来解决此任务，请按以下步骤操作：

1. 按住ALT + F11键打开Microsoft Visual Basic for Applications窗口。

2. 点击插入 > 模块，并将以下代码粘贴到模块窗口中。

VBA代码：将字母数字字符串拆分为两列：

Function RetNum(Str As String)
'updateby Extendoffice
    Dim xRegEx As Object
    Set xRegEx = CreateObject("vbscript.regexp")
    xRegEx.Global = True
    xRegEx.Pattern = "[^\d]+"
    RetNum = xRegEx.Replace(Str, "")
    Set xRegEx = Nothing
End Function
Function RetNonNum(Str As String)
    Dim xRegEx As Object
    Set xRegEx = CreateObject("vbscript.regexp")
    xRegEx.Global = True
    xRegEx.Pattern = "[\d]+"
    RetNonNum = xRegEx.Replace(Str, "")
    Set xRegEx = Nothing
End Function

3. 保存并关闭代码后，返回工作表并在空白单元格中输入公式 =retnonnum(A2)。向下拖动填充柄以将公式应用到其他单元格，所有字母字符将从引用列中提取出来。请参见截图：

4. 继续在另一个空白单元格中输入公式：=retnum(A2)，然后向下拖动填充柄到包含该公式的单元格，所有数字都会如下面的截图所示返回：

使用Kutools for Excel将字母数字字符串拆分为两列

如果您安装了Kutools for Excel，使用其分割单元格工具，您可以快速将字母数字字符串拆分为独立的列。

安装Kutools for Excel后，请按以下步骤操作：

1. 选择要拆分的字母数字字符串。

2. 点击Kutools > 合并与拆分 > 分割单元格，参见截图：

3. 在分割单元格对话框中，在 类型部分下选择数据分栏，然后在 分隔依据部分下选择拆分为文本和数字，参见截图：

4. 然后点击确定按钮，会弹出一个提示框提醒您选择一个单元格以放置分离结果，参见截图：

5. 然后点击确定，字母字符和数字立即被分离为两列，参见截图：

演示：使用Kutools for Excel将字母数字字符串拆分为两列