跳到主要內容

如何在Excel中按定界符拆分和轉置單元格?

在本文中,我介紹了通過特定的定界符分割範圍然後將其轉置到Excel中的方法,如下圖所示。 如果您對此任務感興趣,請轉到以下詳細信息。
doc spliy轉置1

用VBA分割和轉置

用Kutools for Excel分割和轉置


箭頭藍色右氣泡 用VBA分割和轉置

沒有直接的方法可以通過特定的分隔符拆分和轉置數據,但是我可以引入VBA代碼來幫助您快速解決此問題。

1。 按 Alt + F11鍵 顯示鍵 Microsoft Visual Basic for Applications 窗口。

2。 點擊 插入 > 模塊,然後將以下代碼粘貼到新代碼中 模塊 窗口。

VBA:拆分和轉置

Sub Vertical()
'UpdatebyExtendoffice20161125
    Dim i As Long, strTxt As String
    Dim startP As Range
    Dim xRg As Range, yRg As Range
    On Error Resume Next
    Set xRg = Application.InputBox _
    (Prompt:="Range Selection...", _
    Title:="Kutools For Excel", Type:=8)
    i = 1
    Application.ScreenUpdating = False
    For Each yRg In xRg
        If i = 1 Then
            strTxt = yRg.Text
            i = 2
        Else
            strTxt = strTxt & "," & yRg.Text
        End If
    Next
    Application.ScreenUpdating = True
    Set startP = Application.InputBox _
    (Prompt:="paste range...", _
    Title:="Kutools For Excel", Type:=8)
    ary = Split(strTxt, ",")
    i = 1
    Application.ScreenUpdating = False
    For Each a In ary
        startP(i, 1).Value = a
        i = i + 1
    Next a
    Application.ScreenUpdating = True
End Sub

3。 按 F5 鍵運行代碼,會彈出一個對話框,供您選擇要分割和轉置的範圍。
doc spliy轉置2

4。 點擊 OK。 彈出對話框,選擇放置數據的位置。
doc spliy轉置3

5。 點擊 OK,並且所選內容已被逗號分割和轉置。
doc spliy轉置4

注意: 在代碼中,逗號 strTxt & "," 和 ary = 拆分(strTxt,“,”) 是您拆分數據所依據的分隔符,您可以根據需要更改它們。


箭頭藍色右氣泡 用Kutools for Excel分割和轉置

這款獨特的敏感免洗唇膜採用 Moisture WrapTM 技術和 Berry Mix ComplexTM 成分, Excel的Kutools,您可以應用它 分裂細胞 首先用定界符分割單元格,然後應用 變換範圍 實用程序將單元格轉換為一列。

Excel的Kutools, 與以上 300 方便的功能,使您的工作更加輕鬆。 

安裝後 Kutools for Excel,請執行以下操作:(立即免費下載Kutools for Excel!)

1.選擇要拆分的單元格,然後單擊 庫工具 > 合併與拆分 > 分裂細胞。 看截圖:
doc spliy轉置5

2。 在裡面 分裂細胞 對話框,檢查 拆分為列 選項,然後指定要分割的定界符,單擊 Ok。 然後選擇一個空白單元格將結果放置在第二個單元格中 分裂細胞 對話。 看截圖:
doc spliy轉置6

3。 點擊 OK,然後將單元格拆分為列,然後單擊 庫工具 > 範圍 > 變換範圍。 看截圖:
doc spliy轉置7

4。 在裡面 變換範圍 對話框,檢查 範圍到單列點擊此處成為Trail Hunter Ok,然後選擇一個單元格以放置結果。 看截圖:
doc spliy轉置8

5。 點擊 OK,現在範圍已轉置為一列。
doc spliy轉置9

小費。 如果您想免費試用 分裂細胞變換範圍 功能, 請免費試用Kutools for Excel 首先,然後按照上述步驟進行操作。

最佳辦公生產力工具

熱門特色: 尋找、突出顯示或識別重複項   |  刪除空白行   |  合併列或儲存格而不遺失數據   |   沒有公式的回合 ...
超級查詢: 多條件VLookup    多值VLookup  |   跨多個工作表的 VLookup   |   模糊查詢 ....
高級下拉列表: 快速建立下拉列表   |  依賴下拉列表   |  多選下拉列表 ....
欄目經理: 新增特定數量的列  |  移動列  |  切換隱藏列的可見性狀態  |  比較範圍和列 ...
特色功能: 網格焦點   |  設計圖   |   大方程式酒吧    工作簿和工作表管理器   |  資源庫 (自動文字)   |  日期選擇器   |  合併工作表   |  加密/解密單元格    按清單發送電子郵件   |  超級濾鏡   |   特殊過濾器 (過濾粗體/斜體/刪除線...)...
前 15 個工具集12 文本 工具 (添加文本, 刪除字符,...)   |   50+ 圖表 類型 (甘特圖,...)   |   40+ 實用 公式 (根據生日計算年齡,...)   |   19 插入 工具 (插入二維碼, 從路徑插入圖片,...)   |   12 轉化 工具 (數字到單詞, 貨幣兌換,...)   |   7 合併與拆分 工具 (高級合併行, 分裂細胞,...)   |   ... 和更多

使用 Kutools for Excel 增強您的 Excel 技能,體驗前所未有的效率。 Kutools for Excel 提供了 300 多種進階功能來提高生產力並節省時間。  點擊此處獲取您最需要的功能...

kte選項卡201905


Office選項卡為Office帶來了選項卡式界面,使您的工作更加輕鬆

  • 在Word,Excel,PowerPoint中啟用選項卡式編輯和閱讀,發布者,Access,Visio和Project。
  • 在同一窗口的新選項卡中而不是在新窗口中打開並創建多個文檔。
  • 將您的工作效率提高 50%,每天為您減少數百次鼠標點擊!
Comments (4)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Is there a way to split data by row and transpose rows to column at the same time?
This comment was minimized by the moderator on the site
Hi, E, please describe your problem with more details, better provide some examples.
This comment was minimized by the moderator on the site
You wrote: Note: in the code, the comma in the aray = Split(strTxt, ",") is the delimiter you will split data based on, you can change it as you need.

Extra action:
also change delimter "," in code section:

<Else
strTxt = strTxt & "," & yRg.Text
End If>

Change "," to (for example ";")
This comment was minimized by the moderator on the site
Hi, Richard Hahlen, thanks for your remind. I have updated the notice.
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations