VBAを使用して複数の列から2列のテーブルを作成

Question

回答者が1つの場所を自宅とし、潜在的に多くの場所で調査を行った場所で、調査結果を並べ替えようとしています。

レジデンス。 98行の研究拠点

アラバマ州、バハマ、CA、KY

カリフォルニア州、AL、ペルー

等。

私は、ArcGISでラジアルフローラインマップを作成するために使用できるソース列と宛先列を持つテーブルを作成したいと考えています。私がVBAから必要とするのは、上記の複数の行のテーブルとさまざまな行数の列を取り、それを2つの列テーブルに配置して各宛先の居住フィールドを複製することです。

レジデンス。研究場所

アラバマ州、バハマ

アラバマ州、CA

アラバマ州、ケンタッキー州

カリフォルニア州、AL

カリフォルニア、ペルー

ここから私がするXY座標を追加することができます私の放射状の流れ線マップを作成するために各住居（ソース）と研究場所（目的地）。

単一列コードの範囲の例をいくつか見てきましたが、ソース列に関連するものは見つかりませんでした。どんな助けもありがとう！

Answer 1

私はあなたのシートは、このようなものになりますことを想定しています：

、出力はされますがよう：

：このタスクを実行します

次のコード

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