如何在Excel中将单词或数字拆分为单独的单元格？

网友投稿 249 2024-01-19

如何在Excel中将单词或数字拆分为单独的单元格？

如果您在工作表中有数字或单词的列表，现在需要按照下面的屏幕快照将单元格内容拆分为不同单元格上的字母，那么如何在Excel中处理此工作？

使用公式将单词或数字拆分为单独的单元格

使用VBA代码将单词或数字拆分为单独的单元格

将单词或数字拆分为单独的单元格 Kutools for Excel

将分开的字母或数字组合成一个单词或数字

使用公式将单词或数字拆分为单独的单元格

使用以下简单公式，您可以快速方便地分离不同单元格上的单元格内容。

1。在数据旁边的空白单元格（例如C1）中，请输入此公式 = MID（$ A1，COLUMNS（$ A $ 1：A $ 1），1），请参见屏幕截图：

2。然后将填充手柄拖到右侧的单元格，直到显示空白单元格，并且单元格A1中的内容已拆分为单独的单元格。

3。然后继续将填充手柄向下拖动到要应用此公式的范围，然后，您可以根据需要在不同的单元格上分隔A列中的所有数据。看截图：

使用VBA代码将单词或数字拆分为单独的单元格

如果您对VBA代码感兴趣，下面的代码也可以帮您一个忙。

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

2。点击插页 > 模块，然后将以下代码粘贴到 模块窗口.

VBA代码：将单词拆分为单独的单元格

Sub SplitStuff() Updateby Extendoffice Dim Rng As Range Dim InputRng As Range, OutRng As Range xTitleId = "KutoolsforExcel" Set InputRng = Application.Selection Set InputRng = Application.InputBox("Range :", xTitleId, InputRng.Address, Type:=8) Set OutRng = Application.InputBox("Out put to (single cell):", xTitleId, Type:=8) Application.ScreenUpdating = False For Each Rng In InputRng xValue = Rng.Value xRow = Rng.Row For i = 1 To VBA.Len(xValue) OutRng.Cells(xRow, i).Value = VBA.Mid(xValue, i, 1) Next Next Application.ScreenUpdating = True End Sub

Copy

3。然后按 F5 键来运行此代码，然后会出现一个提示框，提示您选择要使用的数据范围，请参见屏幕截图：

4. 点击 OK，然后会弹出另一个提示框，告诉您选择一个单元格以查找结果。

5。然后点击 OK，并且所选单元格中的单词或数字已拆分为单个字符。看截图：

将单词或数字拆分为单独的单元格 Kutools for Excel

Kutools for Excel“ 分裂细胞 功能是一个功能强大的工具，可以帮助您将单元格内容拆分为具有特定定界符的单独的列或行，同时还可以将文本和数字分为两列。

Kutools for Excel : 带有300多个便捷的Excel加载项，可以在30天内免费试用.

前往下载30天免费试用购买贝宝/ MyCommerce

安装后 kutools for Excel，请执行以下操作：

1。选择要拆分的单元格。

2。然后点击 Kutools > 合并与拆分 > 分裂细胞，请参见屏幕截图：

3。在 分裂细胞 对话框，请选择 拆分为列 在下面 Type，然后检查 指定宽度 在下面 分割为 部分，然后输入数字 1 进入文本框，这意味着将单词按每个字符分成几个单独的单元格。看截图：