Karte Komma getrennte Werte in zwei Spalten in Excel

Question

Ich habe eine Excel mit zwei Spalten. ColA und ColB.

In jeder der Spalten sind Komma getrennte Werte. Ich brauche jeden der Werte in ColA auf jeden Wert in ColB abgebildet werden.

Beispieldaten:

ColA  ColB 
A,B,C  4,5 
E,F  6,8,3 

Erwartete Ausgabe

A 4 
A 5 
B 4 
B 5 
C 4 
C 5 
E 6 
E 8 
E 3 
F 6 
F 8 
F 3 

Kann ich das mit einem Makro?

Answer 1

Haben Sie ein Spiel mit Arrays, ich weiß nicht, wo die Daten enden sollten, so dass Sie herumspielen müssen, aber sollten Sie beginnen.

Dim strTest As String, strArray() As String 
Dim strTest2 As String, strArray2() As String 
Dim intCount As Integer, intCount2 As Integer 
Dim colCount As Integer, i As Integer 

colCount = Cells(Rows.Count, "A").End(xlUp).Row 

For i = 1 To colCount 
    strTest = Cells(i, 1).Value 
    strArray = Split(strTest, ",") 
    strTest2 = Cells(i, 2).Value 
    strArray2 = Split(strTest, ",") 

    For intCount = LBound(strArray) To UBound(strArray) 
     For intCount2 = LBound(strArray2) To UBound(strArray2) 
      Debug.Print Trim(strArray(intCount) & "," & strArray2(intCount2)) 
     Next 
    Next 
Next i