Excel怎麼把一個單元格資料拆分（如何拆分表格中的單元格）

No.1

Excel拆分單元格內資料是一個高階技能，一般情況下，很少這麼操作。

當然，會這個操作的人也很多。

首先，我們理解一下什麼是"拆分單元格資料"，本節講的"拆分單元格"不是把一個列拆分為幾個列，而是以某種格式的分隔符為標誌，把單元格內的資料分別拆開，然後新增到不同的單元格中。

這個操作同樣用到一個方法，很明顯，vba運算元據表格的時候，首要有個物件，然後就是對這個物件進行什麼樣的方法處理。

拆分單元格資料，用到Range物件，物件的方法是TextToColumns，意思就是將文字轉換為列。

方法引數如下圖所示：

No.2

這個方法引數比較多，但是應用的時候，不會全部寫出來，畢竟使用到的僅僅是某些。

語法：

Range.TextToColumns(Destination、 DataType、 TextQualifier、 ConsecutiveDelimiter、 Tab、Semicolon、Comma、Space、 Other、 OtherChar、 FieldInfo DecimalSeparator、 ThousandsSeparator、 TrailingMinusNumbers)

方法它執行之後，會將拆分的資料，預設依次放到被拆分單元格之後。

如上圖所示，粉色部分為被拆分資料，拆分之後的資料就儲存到之後淺灰色單元格內。

這功能在應用中，常常用到將一些混合的資料進行分列處理。

比如，有一列資料，裡面有姓名、年齡、身份證號、地址，四個關鍵字內容。

要分別把這四個內容放到不同列裡面，就用這個方法來實現。

其中，這四個關鍵字之間要有一個分隔符，一般有空格，逗號，Tab製表符，分號等字元。

當然，如果不喜歡這些字元，也可以自定義分隔符。

使用Other=True，和OtherChar來定義分隔符。

注意：

如果Other指定為True，那麼OtherChar引數就為必填專案，同時使用。

引數：Destination定義了被拆分後的資料存放地址。

No.3

下例項操作演示：

Private Sub TextToColumnsChange() Application.DisplayAlerts = False Dim xValue As String xValue = InputBox("資料輸入", "請輸入資料：", "This is a TextToColumn List.") If VBA.Len(VBA.Trim(xValue)) = 0 Then Exit Sub Dim cell As Range Set cell = ActiveSheet.Range("B2:B10") With [A1].Offset(2, 0).Resize(cell.Rows.Count, UsedRange.Cells.Columns.Count   1)     .Clear '清除原資料內容 End With With cell.Item(1).Offset(0, 1) '清除原拆分內容     .Select     .UnMerge     Selection.Clear End With With cell.Item(1) '新增表頭     .Value = "資料內容"     .HorizontalAlignment = xlCenter     .Interior.Color = RGB(221, 92, 255)     .Borders.LineStyle = 1     .Columns.AutoFit End With With cell.Offset(1, 0) '新增原資料內容     .ClearContents     .Value = xValue     .HorizontalAlignment = xlCenter     .Interior.Color = RGB(221, 92, 255)     .Borders.LineStyle = 1     .Columns.AutoFit     With .Offset(0, 1)          .Value = .Offset(0, -1).Value          .TextToColumns Space:=True '拆分資料內容 並向後填充     End With End With '設定拆分內容格式 With cell.Offset(0, 1).Resize(cell.Rows.Count   1, cell.Cells(2, 1).End(xlToRight).Column - cell.Cells(2, 1).Column) 'Me.Cells(3, Me.Cells.Columns.Count).End(xlToLeft).Column - 2)     .Columns.AutoFit     .RowHeight = 28     .HorizontalAlignment = xlCenter     .Interior.Color = RGB(221, 223, 255)     .Borders.LineStyle = 1 End With '合併表頭 cell.Cells(1, 2).Resize(1, cell.Cells(2, 1).End(xlToRight).Column - cell.Cells(2, 1).Column).Merge With cell.Item(1).Offset(0, 1)     .Value = "拆分後內容" End With Application.DisplayAlerts = True End Sub

本例有一些比較複雜的地方，程式碼較多，看上去不太友好。

其功能是，在一個輸入框內輸入一串以空格為間隔的字串，然後將這個字串拆分後放置到多列單元內。

其中，只簡單使用了TextToColumns Space:=True來實現拆分。

本行程式碼意思是以空格作為拆分字元。

其它字元：

TextToColumns Tab:=True'製表符Tab

TextToColumns Semicolon:=True'分號

TextToColumns Comma:=True'逗號

本例就講這些，對於如何針對表格單格進行拆分，以後再做一個表格來進行演示。

歡迎關注、收藏。

---END---