提示:其他語言是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。 支持所有語言。 在您的企業或組織中輕鬆部署。 全功能30天免費試用。
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.