Propagate ist möglicherweise nicht das richtige Wort, aber die Antworten, die ich zum "Zusammenführen" und "Kombinieren" gefunden habe, scheinen nicht zutreffend zu sein.
Ich habe zwei völlig unterschiedliche Datenblätter. Beispiel: sheet1 enthält möglicherweise eine Spalte mit Elementen, und sheet2 enthält möglicherweise eine Spalte mit Farben. Ich muss mit 2 Spalten auf einem Blatt enden, das jede mögliche Kombination der Spalten aus den anderen 2 Blättern enthält.
Wenn im obigen Beispiel sheet1 140 Elemente hat und sheet2 17 Farben hat, benötige ich sheet3, um eine Elementspalte, eine Farbspalte und 2.380 Datensätze zu haben (eine für jede Element- und Farbkombination möglich).
Hier ist ein einfaches Beispiel, das Sie anpassen können.
Sparen wir haben 7 Artikel in Spalte A und 3 Farben in Spalte B . Dieses kurze Makro ausführen:
Sub combine() Dim K As Long, i As Long, j As Long, Nitems As Long, Ncolors As Long K = 1 Nitems = 7 Ncolors = 3 For i = 1 To Nitems For j = 1 To Ncolors Cells(K, "C").Value = Cells(i, "A").Value & "," & Cells(j, "B").Value K = K + 1 Next j Next i End Sub wird dies in Spalte C produzieren :
