Wie erreicht man eine benutzerdefinierte Zusammenführung in Excel?

Ich weiß nur Grundkenntnisse zu übertreffen. Ich habe ein riesiges Excel-Blatt vom Kunden. Ich versuche mit Beispieldaten zu erklären, was ich will. Hier sind die Eingabedaten in einem Blatt

Was ich möchte, ist - ich gebe Zeilennummern in ein neues Blatt (oder in eine Textdatei oder ein Excel) ein, wie Zeilennummern in einem beliebigen Format sagen, Row2:Row3:Row4dann werden diese drei Zeilen wie unten zusammengefasst

1. Behalten Sie den Inhalt von A2 wie er ist.
2. Füge den Inhalt von B1, B2, B3 unter B2 zusammen
3. Verschieben Sie den Inhalt von A3 und A4 unter Spalte C1. Dieser Schritt ist nach Möglichkeit zu gut, aber nicht zwingend

Screenshot ausgeben

Ich bin mir nicht sicher, wie ich das erreichen soll? Ist es durch Makro oder Formel oder etwas anderes erreichbar?

Ich denke, dies ist eine gute Gelegenheit, Ihnen die Angel zu geben und Ihnen zwei grundlegende Methoden in VBA beizubringen.

Zwei Zellen zu einer kombinieren

Wenn ich zwei Zellen mit Daten habe:

Sie können den Inhalt einer Zelle immer in folgendem Format referenzieren:

ThisWorkbook.Sheets(worksheet_name).Range(desirded_range).Value 

Hier können Sie den Namen und den Bereich des Arbeitsblatts eingeben. Mit dieser Methode kann sowohl aus einer Zelle gelesen als auch in eine Zelle geschrieben werden. In meinem obigen Beispiel würde ich also Folgendes verwenden:

Public Sub combine()
    ThisWorkbook.Sheets("Sheet1").Range("A1").Value = ThisWorkbook.Sheets("Sheet1").Range("A1").Value & ThisWorkbook.Sheets("Sheet1").Range("A2").Value
End Sub

Beachten Sie, wie ich den Bereich A1 so referenzieren und ihm Daten zuweisen kann.

Zusammenführen

Verwenden Sie dasselbe Beispiel für meine Daten:

Zum Zusammenführen verwenden wir dieses Format:

ThisWorkbook.Sheets(worksheet_name).Range(desired_range).Merge

Dies ist dem Kombinationsbeispiel sehr ähnlich. Denken Sie daran, dass desired_range ein Bereich sein kann und keine einzelne Zelle sein muss, damit ich in meinem Beispiel zusammenfasse, würde ich einfach Folgendes verwenden:

Public Sub Merge()
    ThisWorkbook.Sheets("Sheet1").Range("A1:A2").Merge
End Sub