SliceNDice 3列

Question

我愛brettdj的SliceNDice子：

Split comma separated entries to new rows

我用它所有的時間。我現在有一個情況，現在有三列，在我的生活中 - 我無法弄清楚如何改變vba使其工作。第三列是用逗號分隔的值。前兩列是單個條目。第一次張貼我，所以我抓住了我的椅子武器，以防萬一我做了不正確的事情。

Answer 1

如果您嘗試在每個後續行中保留第一列和第二列，同時在第三列中添加每個分隔值，則應該可以工作。

Sub SliceNDice() 
Dim objRegex As Object 
Dim X 
Dim Y 
Dim lngRow As Long 
Dim lngCnt As Long 
Dim tempArr() As String 
Dim strArr 
Set objRegex = CreateObject("vbscript.regexp") 
objRegex.Pattern = "^\s+(.+?)$" 
'Define the range to be analysed 
X = Range([a1], Cells(Rows.Count, "c").End(xlUp)).Value2 
ReDim Y(1 To 3, 1 To 1000) 
For lngRow = 1 To UBound(X, 1) 
    'Split each string by "," 
    tempArr = Split(X(lngRow, 3), ",") 
    For Each strArr In tempArr 
     lngCnt = lngCnt + 1 
     'Add another 1000 records to resorted array every 1000 records 
     If lngCnt Mod 1000 = 0 Then ReDim Preserve Y(1 To 3, 1 To lngCnt + 1000) 
     Y(1, lngCnt) = X(lngRow, 1) 
     Y(2, lngCnt) = X(lngRow, 2) 
     Y(3, lngCnt) = objRegex.Replace(strArr, "$1") 

    Next 
Next lngRow 
'Dump the re-ordered range to columns C:D 
[d1].Resize(lngCnt, 3).Value2 = Application.Transpose(Y) 
End Sub 

的樣本數據：