提示:其它语言是由 Google 机器翻译的。 你可以访问 English 版本。
登录
x
or
x
x
马上登记
x

or

如何在Excel中垂直分割单元格值?

在Excel中,您可以应用 文本到列 功能可以将单元格值水平分割为多个列,但是,它不能帮助您将单元格内容垂直分割为多行。 在本文中,我将讨论一些快速的方法,通过Excel中的特定分隔符将单元格值垂直分割成多行。

使用VBA代码,通过分隔符将单元格值垂直分割为行

使用Kutools for Excel将单元格值分隔成垂直分隔符


使用VBA代码,通过分隔符将单元格值垂直分割为行


以下VBA代码可以帮助您将单元格值按任意分隔符垂直分割成若干行,请按照以下步骤操作:

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

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

VBA代码:通过特定的分隔符将单元格值垂直分割成行

Sub splitvertically()
'updatebyExtendoffice 20160303
    Dim xRg As Range
    Dim xOutRg As Range
    Dim xCell As Range
    Dim xTxt As String
    Dim xStr As String
    Dim xOutArr As Variant
    On Error Resume Next
    xTxt = ActiveWindow.RangeSelection.Address
    Set xRg = Application.InputBox("please select the data range:", "Kutools for Excel", xTxt, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    Set xOutRg = Application.InputBox("please select output cell:", "Kutools for Excel", , , , , , 8)
    If xOutRg Is Nothing Then Exit Sub
    For Each xCell In xRg
        If xStr = "" Then
            xStr = xCell.Value
        Else
            xStr = xStr & ";" & xCell.Value
        End If
    Next
    xOutArr = VBA.Split(xStr, ";")
    xOutRg.Range("A1").Resize(UBound(xOutArr) + 1, 1) = Application.WorksheetFunction.Transpose(xOutArr)
End Sub

3。 然后按 F5 键运行此代码,并会弹出提示框提醒您选择要垂直拆分的单元格值,请参阅屏幕截图:

doc垂直分割1

4。 然后点击 OK 按钮,另一个框会弹出提醒你选择一个单元格放置结果,看截图:

doc垂直分割2

5。 点击 OK 按钮,单元格值已被分隔符分割成列表,请参阅截图:

doc垂直分割3

注意:在上面的代码中,您可以更改分号 ; 到您需要的任何其他分隔符。


使用Kutools for Excel将单元格值分隔成垂直分隔符

Kutools for Excel拆分单元格 功能是一个功能强大的实用程序,它可以帮助您根据需要通过任何分隔符将单元格值拆分为多个列或行。

Kutools for Excel : 与超过300方便的Excel加载项,在60天免费试用没有限制.

安装后 Kutools for Excel请按照以下步骤进行:

1。 按特定分隔符选择要分割成行的单元格。

2。 然后点击 Kutools > 文本 > 拆分单元格,看截图:

doc垂直分割4

3。 在 拆分单元格 对话框中选择 拆分为行 在下面 类型 部分,然后检查 其他 来自 拆分 部分,然后输入想要根据单元格值分割的分隔符,请参阅截图:

doc垂直分割5

4。 然后点击 Ok 按钮,在弹出框中选择一个单元格输出结果,参见截图:

doc垂直分割6

5。 并点击 OK 按钮,单元格值将根据特定的分隔符分成若干行,如下面的屏幕截图所示:

doc垂直分割7

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


演示:使用Kutools for Excel将单元格值分隔为垂直分隔符

Kutools for Excel:比200方便的Excel加载项,可以在60天免费试用。 下载并免费试用现在!


Kutools for Excel - 最佳办公生产力工具提高80%的生产力

  • 重用: 快速插入 复杂的公式,图表 以及你以前用过的任何东西; 加密单元格 密码; 创建邮件列表 并发送电子邮件...
  • 超级方程式酒吧 (轻松编辑多行文字和公式); 阅读布局 (轻松读取和编辑大量单元格); 粘贴到过滤范围...
  • 合并单元格/行/列 不丢失数据; 分裂细胞含量; 组合重复的行/列...防止重复的细胞; 比较范围...
  • 选择复制或唯一 行; 选择空行 (所有细胞都是空的); 超级查找和模糊查找 在许多工作簿中; 随机选择......
  • 精确复制 多个单元格而不更改公式参考; 自动创建参考 多张表; 插入项目符号,复选框等等......
  • 提取文本,添加文本,按位置删除, 删除空间; 创建和打印分页小计; 在单元格内容和注释之间转换...
  • 超级过滤器 (将过滤方案保存并应用到其他工作表); 高级排序 按月/周/日,频率等; 特殊过滤器 用粗体,斜体......
  • 结合工作簿和工作表; 根据键列合并表; 将数据拆分为多个表格; 批量转换xls,xlsx和PDF...
  • 超过300强大的功能。 支持Office / Excel 2007-2019和365。 支持所有语言。 在您的企业或组织中轻松部署。 全功能60天免费试用。
kte tab 201905

Office选项卡为Office提供选项卡式界面,使您的工作更轻松

  • 在Word,Excel,PowerPoint中启用选项卡式编辑和阅读,Publisher,Access,Visio和Project。
  • 在同一窗口的新选项卡中打开并创建多个文档,而不是在新窗口中。
  • 通过50%提高您的工作效率,每天为您减少数百次鼠标点击!
官方底部
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.