Excel怎樣快速把單元格內多行內容轉成多列

2024-01-29

2456

修法布施得聰明智慧，多分享讓生活更美好。上次分享了《Excel怎樣快速單元格區(qū)域內容連接或換行》中多個單元格生成一個單元格多行內容，現(xiàn)在分享逆過程處理，一個單元多行內容怎樣快速轉成多個單元格（多列）？

步驟1：新建Excel文檔

首先打開Microsoft Office Excel 2007，新建文檔并保存文件名為《Excel怎樣快速把單元格多行內容轉成多列.xlsm》。

按下快捷鍵ALT F11打開VBA（宏）編輯界面，然后點菜單欄【插入】下拉中列表中點【模塊（M）】。

在VBA編輯界面中插入一個新的模塊，在代碼框中復制以下代碼：

```

Option Base 1

Sub 選單元格多行內容生成多列()

Dim mb, m As String, i, j As Long

Dim cmt As Range, mm()

For Each cmt In Selection

m cmt.Text

If m <> "" Then

If InStr(1, m, Chr(10), 1) > 0 Then

mb Split(m, Chr(10))

j 0

ReDim mm(UBound(mb) 1)

For i 0 To UBound(mb)

j j 1

mm(j) mb(i)

Next i

(0, 1).Resize(1, j) mm

End If

Next cmt

End Sub

```

回到工作表窗口，首先選中包含多行內容的單元格，然后運行【選單元格多行內容生成多列】宏?？梢酝ㄟ^菜單欄中的【視圖】>【宏】>【查看宏(V)】打開宏對話框，選擇該宏名并執(zhí)行。

宏執(zhí)行完成后，將會在原數(shù)據(jù)表的右側生成多列數(shù)據(jù)，每一行對應原來單元格內的一行內容。

如果覺得這篇經驗對您有幫助，請點擊下方的“投票點贊”或者“收藏”支持我！如果有任何疑問，可以點擊下方的“我有疑問”，謝謝！