Erstellen einer 2-Spalten-Tabelle aus mehreren Spalten mit VBA

Question

Ich versuche, eine Reihe von Umfrageergebnissen zu sortieren, bei denen die Befragten einen Standort als ihr Zuhause und möglicherweise viele Orte für ihre Recherchen ausgewählt haben.

Wohnort. Forschungsstandorte

Alabama, Die Bahamas, CA, KY

Kalifornien, AL, Peru

usw., für 98 Zeilen.

Ich möchte eine Tabelle mit Quell- und Zielspalten erstellen, die ich dann in ArcGIS verwenden kann, um eine radiale Flusslinienzuordnung zu erstellen. Was ich von VBA brauche, ist, die obige Tabelle mit mehreren Zeilen und einer variierenden Anzahl von Zielspalten zu nehmen und sie in einer 2-Spalten-Tabelle anzuordnen, die das Aufenthaltsfeld für jedes Ziel dupliziert.

Wohnort. Forschungsstandort

Alabama, Bahamas

Alabama, Kalifornien

Alabama, KY

Kalifornien, AL

Kalifornien, Peru

Von hier aus kann ich hinzufügen xy-Koordinaten für jeder Wohnort (Quelle) und Forschungsort (Zielort), um meine radiale Fließlinienkarte zu erstellen.

Ich habe ein paar Beispiele für Bereich zu einzelnen Spalte Code untersucht, aber ich habe nichts gefunden, das sich auch auf meine Quellenspalte bezieht. Jede Hilfe wäre willkommen!

Answer 1

Ich gehe davon aus, dass Ihr Blatt etwas wie folgt aussehen:

Und Ausgang wird als:

folgende Code wird diese Aufgabe erfüllen:

Sub Data() 
    Application.ScreenUpdating = False 
    Sheets("Sheet1").Activate 
    Range("A1").Activate 

    While ActiveCell.Value <> "" 
     n = 1 
     Label = ActiveCell.Value 
     While Selection.Offset(0, n) <> "" 
      Item = Selection.Offset(0, n) 
      Sheets("Sheet2").Activate 
      ActiveCell.Value = Label 
      Selection.Offset(0, 1).Value = Item 
      Selection.Offset(1, 0).Select 
      Sheets("Sheet1").Activate 
      n = n + 1 
     Wend 
     Selection.Offset(1, 0).Select 
    Wend 

    Application.ScreenUpdating = True 
End Sub