怎么把excel表里的人名和数字分开

要在Excel表格中将人名和数字分开，可以使用几种方法：文本函数、数据分列、VBA宏。

使用文本函数

文本函数如LEFT、RIGHT、MID、FIND等可以帮助我们精准地提取数据。例如，可以使用FIND函数找到数字开始的位置，然后用LEFT和MID函数分割人名和数字。

详细描述：使用FIND和MID函数

假设人名和数字在A列：

1. 在B列输入公式：=LEFT(A1, FIND(" ", A1) - 1)，提取人名。
2. 在C列输入公式：=MID(A1, FIND(" ", A1) + 1, LEN(A1) - FIND(" ", A1))，提取数字。

使用数据分列功能

Excel的数据分列功能可以轻松地将文本按照指定的分隔符进行分割。这一方法特别适用于人名和数字之间有明确分隔符的情况，如空格、逗号等。

使用VBA宏

编写VBA宏可以自动化完成上述任务，适用于大量数据处理。

详细描述：创建VBA宏

1. 按Alt + F11打开VBA编辑器。
2. 插入一个新的模块，并输入以下代码：

Sub SplitNamesAndNumbers()

    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets("Sheet1")
    Dim lastRow As Long
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
    Dim i As Long
    For i = 1 To lastRow
        Dim fullText As String
        fullText = ws.Cells(i, 1).Value
        Dim spacePos As Long
        spacePos = InStr(fullText, " ")
        If spacePos > 0 Then
            ws.Cells(i, 2).Value = Left(fullText, spacePos - 1)
            ws.Cells(i, 3).Value = Mid(fullText, spacePos + 1)
        End If
    Next i
End Sub

3. 运行宏即可将人名和数字分开，分别放入B列和C列。

一、使用文本函数

FIND 和 LEFT 函数

FIND函数用于查找指定字符在文本中的位置，而LEFT函数用于从文本左侧开始提取指定数量的字符。结合这两个函数，可以有效地提取人名。

=LEFT(A1, FIND(" ", A1) - 1)

MID 和 LEN 函数

MID函数用于从指定位置开始提取文本，LEN函数用于计算文本的长度。结合这两个函数，可以提取数字部分。

=MID(A1, FIND(" ", A1) + 1, LEN(A1) - FIND(" ", A1))

示例

假设A1单元格内容为"John 12345"：

• 在B1单元格输入=LEFT(A1, FIND(" ", A1) - 1)，结果为"John"。
• 在C1单元格输入=MID(A1, FIND(" ", A1) + 1, LEN(A1) - FIND(" ", A1))，结果为"12345"。

二、使用数据分列功能

步骤一：选择数据

选择需要分列的数据范围。

步骤二：打开数据分列向导

在Excel菜单中，选择“数据”选项卡，然后点击“分列”按钮，打开文本到列向导。

步骤三：选择分隔符

根据人名和数字的分隔符选择适当的选项。例如，如果人名和数字之间有空格，则选择“空格”作为分隔符。

步骤四：完成分列

根据向导的提示完成分列操作，Excel会自动将人名和数字分开放入不同的列中。

示例

假设A列数据为：

John 12345

Jane 67890

分列后：

B列		C列

John		12345
Jane		67890

三、使用VBA宏

VBA宏可以自动处理大量数据，并且适用于需要重复执行的任务。

创建VBA宏

打开VBA编辑器（按Alt + F11），插入一个新的模块，然后输入以下代码：

Sub SplitNamesAndNumbers()

    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets("Sheet1")
    Dim lastRow As Long
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
    Dim i As Long
    For i = 1 To lastRow
        Dim fullText As String
        fullText = ws.Cells(i, 1).Value
        Dim spacePos As Long
        spacePos = InStr(fullText, " ")
        If spacePos > 0 Then
            ws.Cells(i, 2).Value = Left(fullText, spacePos - 1)
            ws.Cells(i, 3).Value = Mid(fullText, spacePos + 1)
        End If
    Next i
End Sub

运行宏

在VBA编辑器中按F5运行宏，宏会自动处理Sheet1中的所有数据，将人名和数字分别放入B列和C列。

示例

假设A列数据为：

John 12345

Jane 67890

运行宏后：

B列		C列

John		12345
Jane		67890

四、使用高级文本函数

TEXTSPLIT函数（Excel 365）

Excel 365中引入了TEXTSPLIT函数，可以根据指定的分隔符将文本拆分为多个部分。

=TEXTSPLIT(A1, " ")

示例

假设A1单元格内容为"John 12345"：

• 在B1单元格输入=TEXTSPLIT(A1, " ")，结果为"John"和"12345"分别在B1和C1单元格中。

使用正则表达式（需要VBA）

正则表达式是一种强大的文本处理工具，可以用来匹配复杂的文本模式。

Function SplitNameNumber(text As String, part As Integer) As String

    Dim regex As Object
    Set regex = CreateObject("VBScript.RegExp")
    regex.Pattern = "(D+)(d+)"
    regex.Global = False
    If regex.Test(text) Then
        Set matches = regex.Execute(text)
        If part = 1 Then
            SplitNameNumber = Trim(matches(0).SubMatches(0))
        ElseIf part = 2 Then
            SplitNameNumber = Trim(matches(0).SubMatches(1))
        End If
    Else
        SplitNameNumber = ""
    End If
End Function

使用正则表达式的示例

假设A1单元格内容为"John 12345"：

• 在B1单元格输入=SplitNameNumber(A1, 1)，结果为"John"。
• 在C1单元格输入=SplitNameNumber(A1, 2)，结果为"12345"。

五、处理复杂情况

多个空格或分隔符

如果人名和数字之间有多个空格或其他分隔符，可以使用TRIM函数去除多余的空格，或者使用替换函数将多个分隔符替换为一个。

=TRIM(A1)

=SUBSTITUTE(A1, "  ", " ")

多个数字或人名

如果文本中包含多个数字或人名，可以使用数组公式或自定义VBA函数来处理。

Function SplitMultiple(text As String, part As Integer) As String

    Dim regex As Object
    Set regex = CreateObject("VBScript.RegExp")
    regex.Pattern = "(D+)(d+)(D+)?(d+)?"
    regex.Global = False
    If regex.Test(text) Then
        Set matches = regex.Execute(text)
        If part = 1 Then
            SplitMultiple = Trim(matches(0).SubMatches(0))
        ElseIf part = 2 Then
            SplitMultiple = Trim(matches(0).SubMatches(1))
        ElseIf part = 3 Then
            SplitMultiple = Trim(matches(0).SubMatches(2))
        ElseIf part = 4 Then
            SplitMultiple = Trim(matches(0).SubMatches(3))
        End If
    Else
        SplitMultiple = ""
    End If
End Function

使用数组公式的示例

假设A1单元格内容为"John 12345 Jane 67890"：

• 在B1单元格输入=SplitMultiple(A1, 1)，结果为"John"。
• 在C1单元格输入=SplitMultiple(A1, 2)，结果为"12345"。
• 在D1单元格输入=SplitMultiple(A1, 3)，结果为"Jane"。
• 在E1单元格输入=SplitMultiple(A1, 4)，结果为"67890"。

六、使用第三方工具

Power Query

Power Query是一种强大的数据处理工具，可以用来导入、转换和整理数据。

步骤一：加载数据

在Excel中，选择“数据”选项卡，然后点击“从表格/范围”按钮。

步骤二：编辑查询

在Power Query编辑器中，可以使用拆分列、替换值等功能来处理数据。

步骤三：加载结果

完成数据处理后，点击“关闭并加载”按钮，将结果加载回Excel。

示例

假设A列数据为：

John 12345

Jane 67890

使用Power Query处理后：

B列		C列

John		12345
Jane		67890

通过上述方法，您可以根据具体需求选择最适合的方法将Excel表格中的人名和数字分开。无论是使用内置函数、数据分列功能，还是编写VBA宏，Excel都提供了强大的工具来处理这类数据分割任务。

相关问答FAQs：

1. 如何将Excel表中的人名和数字分开？

• 问题描述：我有一个Excel表格，里面有一列是人名，另一列是数字。请问有什么方法可以将这两列分开？

答案：您可以使用Excel的文本分列功能来将人名和数字分开。

1. 选择包含人名和数字的列。
2. 在Excel的菜单栏中，点击“数据”选项卡。
3. 在“数据工具”组中，选择“文本分列”。
4. 在“文本分列向导”对话框中，选择“分隔符号”选项，并点击“下一步”。
5. 在“分隔符号”选项中，选择适当的分隔符（如空格、逗号等），并点击“下一步”。
6. 在“列数据格式”选项中，选择“一般”格式，然后点击“完成”。

这样，Excel会将人名和数字分成两列，方便您进行进一步的操作和分析。

2. 如何在Excel表格中将人名和数字进行分隔？

• 问题描述：我有一个Excel表格，里面有一列是人名和数字混合在一起的。请问有什么方法可以将人名和数字分开？

答案：您可以使用Excel的函数来将人名和数字分开。

1. 在新的列中，输入以下公式：=LEFT(A1,MIN(IF(ISNUMBER(--MID(A1,ROW(INDIRECT("1:"&LEN(A1))),1)),ROW(INDIRECT("1:"&LEN(A1)))))-1。
2. 按下Enter键，Excel会自动将人名提取到新的列中。

这样，Excel会将人名提取到新的列中，而保留原列中的数字。

3. 怎么将Excel表格中的人名和数字拆分成两列？

• 问题描述：我有一个Excel表格，其中的一列包含了人名和数字。请问有什么方法可以将这一列拆分成两列？

答案：您可以使用Excel的文本函数和筛选功能来将人名和数字拆分成两列。

1. 在新的列中，使用以下公式提取人名：=LEFT(A1,MATCH(TRUE,ISNUMBER(--MID(A1,ROW(INDIRECT("1:"&LEN(A1))),1)),0)-1)。
2. 在另一个新的列中，使用以下公式提取数字：=MID(A1,MATCH(TRUE,ISNUMBER(--MID(A1,ROW(INDIRECT("1:"&LEN(A1))),1)),0),LEN(A1))。
3. 按下Enter键，Excel会自动将人名和数字提取到新的两列中。

这样，Excel会将人名和数字分别提取到两个新的列中，方便您进行进一步的处理和分析。