【EXCEL数据分列】

很久不写博客了，今天写个有关EXCEL表格的简单数据分列吧，这也是处理数据中会遇到的一个问题。
写了两种方式，话不多说，直入主题。

法一

简单举个例子，这是一张货物清单，我需要对货物这一列进行拆分，对每一单元格按照种类数目拆分成n个货物，便于后续对每种货物单独进行统计。

可以在【数据】选项中，点击【分列】，按照分隔符分隔即可。
选择分割符

无特殊需求，直接点击【下一步】最后【完成】即可分列。最后选择分列好的数据，复制并粘贴转置即可。

法二

手动分列适用于数据很少的情况，数据较多时使用VBA可以更加快捷高效的处理任务。

Sub SplitEntriesExcludingDE_FromColumnC_NoBlanks()
    Dim dic As Object: Set dic = CreateObject("Scripting.Dictionary")
    Dim x As Long, cl As Range, rng As Range, s As Variant, i As Long
    Dim ws As Worksheet
    Dim lastCol As Long
    Dim rowContents() As String
    
    Set ws = ActiveSheet 
    Set rng = ws.Range("C1", ws.Cells(ws.Rows.Count, "C").End(xlUp))
    lastCol = ws.Cells(1, ws.Columns.Count).End(xlToLeft).Column 
    x = 1
    
    For Each cl In rng
        For Each s In Split(cl.Value2, ",")
            
            ReDim rowContents(1 To lastCol)
           
            For i = 1 To lastCol
                If i = 3 Then
                    rowContents(i) = Trim(s) 
                Else
                    rowContents(i) = ws.Cells(cl.Row, i).Value2 
                End If
            Next i
            
            dic.Add x, Join(rowContents, Chr(127)) 
            x = x + 1
        Next s
    Next cl
    
    
    ws.Rows(2 & ":" & ws.Rows.Count).Delete 
    Dim outputRow As Long: outputRow = 1
    For Each k In dic.keys
        Dim rowData() As String
        rowData = Split(dic(k), Chr(127)) 
        For i = 1 To UBound(rowData) + 1
            ws.Cells(outputRow, i).Value2 = rowData(i - 1)
        Next i
        outputRow = outputRow + 1 
    Next k
End Sub

`