KutoolsforOffice — 一套方案,五大工具。事半功倍。

如何在 Excel 中根据大写字母将文本拆分到单独的列中?

作者小阳修改日期

在 Excel 中处理数据时,您可能会遇到单元格中多个单词连在一起的情况,每个单词均以大写字母开头,例如“FirstNameLastName”或“SalesMarchApril”。为了便于数据清洗或分析,您可能希望在每个大写字母处将内容拆分为单独的列(如下图所示)。然而,Excel 并未提供直接按大写字母拆分的内置功能。有哪些实用方法能帮您快速、准确地根据大写字母将单词拆分为独立的列?

以下为您提供了三种有效的解决方案,每种方案均有其适用场景和优势:


使用公式按大写字母将文本拆分为单独的列

如果您的数据仅包含两个由大写字母连接的单词,Excel 公式可轻松将其拆分为独立的列。此方法简单直接,无需代码或插件,非常适合小型数据集或简单的拆分需求。

1. 在紧邻数据的空白单元格中(例如 C2 单元格),输入以下数组公式,即可从 A2 单元格(包含待拆分文本)中提取第一个单词:

=LEFT(A2,SMALL(FIND(CHAR(ROW(INDIRECT("65:90"))),A2&"ABCDEFGHIJKLMNOPQRSTUVWXYZ"),2)-1)

输入公式后,请务必同时按下 Ctrl + Shift + Enter。某些 Excel 版本中的数组公式需要此操作——若操作正确,公式栏中的公式将被大括号 {} 包围。该公式通过查找单元格中的第二个大写字母,并提取该位置之前的所有字符,从而精准获取第一个单词。

使用公式获取第一个单词

2. 要将公式应用到其他单元格,请选中 C2 单元格,然后向下拖动填充柄,即可自动将公式填充至该列其余单元格,并提取各行对应的首个单词。

拖动并填充公式到其他单元格

3. 接下来,在右侧单元格(例如 D2)中输入以下公式,即可提取剩余文本(即第二个单词):

=REPLACE(A2,1,LEN(C2),"")

此公式将移除上一步提取的第一个单词,仅保留第二个单词。只需按下 Enter 键即可确认。

使用公式获取第二个单词

4. 同样,选中 D2 单元格,然后使用填充柄将公式向下拖动至其他行,即可将原始范围中每个单元格的文本按大写字母的位置拆分为两列。

将公式拖动到其他单元格

kutools for excel AI 的截图

借助 KUTOOLS AI 解锁 Excel 的神奇功能

  • 智能执行:只需输入简单命令,即可执行单元格操作、分析数据并创建图表。
  • 自定义公式:生成量身定制的公式,助您优化工作流程!
  • VBA 编码:轻松编写并运行 VBA 代码。
  • 公式解析:轻松掌握复杂公式,一目了然!
  • 文本翻译:轻松打破电子表格中的语言障碍!
借助 AI 驱动的工具提升您的 Excel 能力。立即下载,体验前所未有的高效!

使用 VBA 代码按大写字母将文本拆分为单独的列

上述基于公式的方案仅适用于拆分两个单词的情况,无法处理包含两个以上拼接单词的单元格(例如“FirstNameMiddleNameLastName”)。此时,您可使用 VBA 代码在每个大写字母前自动插入空格,轻松实现单词分割。插入空格后,即可借助 Excel 内置的文本分列功能,将文本快速拆分为独立的列。

首先,应用 VBA 代码,在大写字母前添加空格以分隔单词。

1. 按下 ALT + F11,即可打开 Microsoft Visual Basic for Applications 编辑器窗口。

2. 在 VBA 编辑器中,单击插入> 模块,并将以下代码粘贴到新建的模块窗口中。

VBA 代码:在单元格中每个大写字母前插入空格

Function SplitWords(ByVal Str As String) As String
'updateby Extendoffice 20151128
    Dim I As Integer
    SplitWords = Left(Str, 1)
    For I = 2 To Len(Trim(Str))
        If (Asc(Mid(Str, I, 1)) > 64) And _
           (Asc(Mid(Str, I, 1)) < 91) And _
           (Mid(Str, I - 1, 1) <> " ") Then _
            SplitWords = SplitWords & " "
        SplitWords = SplitWords & Mid(Str, I, 1)
    Next
End Function

输入或粘贴代码后,关闭 VBA 编辑器返回工作表。此代码定义了一个名为 splitwords 的新函数,您可以像使用普通工作表公式一样使用它。请注意,使用此函数可能需要启用宏,并应将工作簿另存为 .xlsm 文件以保留 VBA 代码。

3. 在紧邻数据的空白单元格中输入以下公式,即可在 A2 单元格中每个大写字母前插入空格:

=splitwords(A2)

此公式调用用户定义的函数来处理每个单元格。按下 Enter 后,您将看到文本中每个大写字母前都已插入空格,让各个单词清晰可辨。

输入一个用户自定义函数,在大写字母前添加空格

4. 使用填充柄将此公式复制到所有相关单元格中,即可自动处理每一行数据。

已在每个大写字母前插入空格

5. 此时,单元格中包含的是公式。您可能希望将结果值复制到其他位置,仅保留处理后的文本,而不保留公式。为此,请选中已处理的单元格,复制后右键单击目标位置,选择“选择性粘贴”>“值”。

将这些公式单元格复制并粘贴为数值

其次,运用“文本分列”功能,以空格为分隔符,将单元格内容拆分为独立的列。

6. 现在,请选择包含空格的单元格值(即上一步的结果)。在功能区中,转到数据> 文本分列。当文本分列向导出现(第 1 步)时,选择分隔符号选项按钮。

点击 数据 > 文本分列,并选择 分隔符号 选项

7. 在第 2 步中,单击下一步,并选择“分隔符号”下的空格选项,即可让 Excel 以空格作为分隔点,将数据拆分到各列。

在 分隔符号 部分勾选 空格 选项

8. 在第 3 步中,请确保为列数据格式选择常规(或根据需要选择其他格式),并单击选择按钮以指定用于显示分割数据的目标单元格。请确保目标区域不会覆盖现有数据。

在对话框中指定选项

9. 单击完成,Excel 即可将文本拆分为多列,每列对应一个原本由大写字母分隔的单词。

单元格内容已拆分为多列

如果您发现某些单词未按预期拆分,请检查是否存在缩写词(如连续多个大写字母)或尾随空格等特殊情况。建议优化您的 VBA 代码,或仔细排查数据中的异常值。此外,在使用 VBA 或执行批量数据操作时,请务必定期保存工作簿,以防数据丢失。

此方法特别适用于处理单元格中文本长度不一或单词数量不同的情况。不过,若您对运行 VBA 代码不太熟悉,不妨考虑以下替代方案。


使用 Kutools for Excel 按大写字母将文本拆分为单独的列

Kutools for Excel 为各级用户提供了友好高效的解决方案,尤其适用于大型数据集或重复性任务。结合使用其添加文本分割单元格功能,您即可用最少的操作和风险轻松完成拆分。

Kutools for Excel 提供 300 多项高级功能,简化复杂任务,提升创造力与效率。集成 AI 能力,Kutools 精准自动化任务,让数据管理变得轻松自如。Kutools for Excel 的详细信息……         免费试用……

1. 选择包含待拆分原始数据的单元格。

2. 单击 Kutools > 文本 > 添加文本。此工具可帮助您在每个大写字母前插入字符或分隔符(例如空格)。

点击 Kutools 的 添加文本 功能

3. 在添加文本对话框中,于文本输入框内键入一个空格(或根据需要输入其他分隔符),然后在仅添加到部分选择 1 个字母为大写,即可让 Kutools 在所选单元格中每个大写字母前自动添加您指定的分隔符。

在对话框中设置选项

4. 单击确定,Kutools 将自动在每个大写字母前添加空格,立即为您的数据拆分做好准备。

已在每个大写字母前添加空格

5. 接下来,在已处理的区域仍处于选中状态时,转到 Kutools > 合并与拆分 > 分割单元格,即可根据分隔符将文本拆分为多列。

点击 Kutools 的 拆分单元格 功能

6. 在分割单元格对话框中,选择分割至多列下的类型部分,并勾选空格(或您之前添加的其他分隔符)复选框,即可指定拆分位置。

选择 空格 或其他分隔符

7. 单击确定,系统将弹出提示,让您选择拆分结果的起始单元格。请仔细指定目标位置,确保为拆分后的列预留充足空间。

选择一个单元格以放置拆分后的数据

8. 最后,单击确定完成拆分操作。您的数据现在将根据每个大写字母准确高效地分布到独立的列中。

单元格已按大写字母拆分

此方法非常适合处理复杂、大型或频繁更新的数据,能有效避免手动调整公式或编写代码的繁琐操作。别忘了,Kutools for Excel 还提供众多其他功能,可显著提升您在常见及高级任务中的工作效率。

立即下载并免费试用 Kutools for Excel!

最佳办公效率工具

🤖KUTOOLS AI 助手:基于以下内容革新数据分析:智能执行   |  生成代码|  创建自定义公式  |  数据分析及生成图表|  调用 Kutools Functions……
热门功能查找、高亮或标记重复项   |  删除空白行   |  合并列或单元格且不丢失数据   |  不使用公式的四舍五入……
高级 LOOKUP多条件 VLookup  |  多值 VLookup  |   跨多工作表 VLookup   |   模糊查找……
高级下拉列表快速创建下拉列表   |  级联下拉列表   |  多选下拉列表……
列管理器添加指定数量的列|移动列|切换隐藏列的可见性状态|比较区域与列……
特色功能网格聚焦   |  设计视图   |增强编辑栏   | 工作簿和表管理器   |  资源库(自动文本)|  日期提取   |  汇总工作表  |  加密/解密单元格   | 按列表发送邮件   |  超级筛选   |   特殊筛选(筛选粗体单元格/斜体/删除线……) ......
精选 15 工具集12 文本工具添加文本删除特定字符,……)|   50+ 图表 类型甘特图,……)|   40+ 实用公式基于生日计算年龄,……)|   19 插入工具插入二维码从路径插入图片,……)|   12 转换工具小写金额转大写汇率转换,……)|   7 合并和拆分工具高级合并行分割单元格,……)|……更多
在您的首选语言中使用 Kutools – 支持英语、西班牙语、德语、法语、中文及 40+ 种其他语言!

使用 Kutools for Excel 大幅提升您的 Excel 技能,体验前所未有的高效。Kutools for Excel 提供 300 多项高级功能,助您提升生产力、节省时间。立即点击此处,获取您最需要的功能……


Office Tab 为 Office 带来标签式界面,让您的工作更轻松

  • 在 Word、Excel、PowerPoint、Publisher、Access、Visio 和 Project 中启用标签式编辑和阅读
  • 在同一个窗口的新标签页中打开并创建多个文档,而非在新窗口中。
  • 将您的工作效率提升 50%,每天减少数百次鼠标点击!

所有 Kutools 插件,一个安装程序

Kutools for Office 套件捆绑了适用于 Excel、Word、Outlook 和 PowerPoint 的插件以及 Office Tab Pro,非常适合需要跨多个 Office 应用高效协作的团队。

ExcelWordOutlookTabsPowerPoint
  • 一体化套件— Excel、Word、Outlook 和 PowerPoint 插件 + Office Tab Pro
  • 一个安装程序,一个许可证— 几分钟内完成设置(支持 MSI)
  • 协同效果更佳— 在多个 Office 应用中实现高效协同
  • 30 天全功能试用— 无需注册,无需信用卡
  • 超值之选— 比单独购买插件更省钱