EXCEL VBA - 将逗号分隔值转换为不同的列

Question

我有这样的数据

  A  |   B   |   C
-----|-------|-------
  1  |  ABC  | L,F,M
  2  |  PQR  | G,D,S

必需

  A  |   B   |  C
-----|-------|----- 
  1  |  ABC  |  L
  1  |  ABC  |  F
  1  |  ABC  |  M
  2  |  PQR  |  G
  2  |  PQR  |  D
  2  |  PQR  |  S

在此先感谢您的帮助。

Answer 1

试试这个

Sub SplitData()
    Dim cArray As Variant
    Dim cValue As String
    Dim rowIndex As Integer, strIndex As Integer, destRow As Integer
    Dim targetColumn As Integer
    Dim lastRow As Long
    Dim ws As Worksheet

    targetColumn = 3 'column number with comma separated data
    Set ws = ThisWorkbook.Worksheets("Sheet1") 'change Sheet1 to your data data

    destRow = 0
    With ws
        lastRow = .Cells(.Rows.Count, "A").End(xlUp).Row
        For rowIndex = 1 To lastRow
            cValue = .Cells(rowIndex, targetColumn).Value 'getting the cell with comma separated data
            cArray = Split(cValue, ",") 'splitting comma separated data in an array
            For strIndex = 0 To UBound(cArray)
                destRow = destRow + 1
                .Cells(destRow, 5) = .Cells(rowIndex, 1)    '5 represents Column E
                .Cells(destRow, 6) = .Cells(rowIndex, 2)    '6 represents Column F
                .Cells(destRow, 7) = Trim(cArray(strIndex)) '7 represents Column G
            Next strIndex
        Next rowIndex
    End With
End Sub