Weitergabe von Excel-Daten

410
Mark Alexander

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).

0

1 Antwort auf die Frage

2
Gary's Student

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 :

Ich gebe Ihnen einen Versuch, aber ich muss das Ergebnis immer noch in zwei separate Spalten aufteilen. Mark Alexander vor 7 Jahren 0
@ MarkAlexander Das wäre eine einfache Modifikation. Gary's Student vor 7 Jahren 0
Ja, es war einfach genug. Ich habe gerade die Cells-Zeile in diese 2 Cells-Zeilen geändert: Mark Alexander vor 7 Jahren 0
Zellen (K, "C"). Wert = Zellen (i, "A"). Wert Zellen (K, "D"). Wert = Zellen (j, "B"). Wert Mark Alexander vor 7 Jahren 0

Verwandte Probleme