VBA ile birden çok sütundan 2 sütun tablosu oluşturma

Question

Katılımcıların ev olarak bir konum seçtikleri ve potansiyel olarak araştırma yaptıkları yerler için birçok yer seçtikleri bir dizi anket sonucunu sıralamaya çalışıyorum.

Rezidans. Araştırma yerleri

Alabama, Bahamalar, CA, KY

California, AL, 98 satırlar için

Vb Peru

.

Ardından radyal akış çizgisi haritası oluşturmak için ArcGIS'te kullanabileceğim kaynak ve hedef sütunları olan bir tablo oluşturmak istiyorum. VBA'dan ihtiyacım olan şey, yukarıdaki satırların birden çok satırını ve çeşitli sayıda hedef sütunu almak ve her bir hedef için ikamet alanını kopyalayan 2 sütun tablosuna yerleştirmektir.

Rezidans. Araştırma yeri

Alabama, Bahamalar Alabama, CA

Alabama, KY

California, AL

California, Peru

xy koordinatları

ı ekleyebilir Buradan

Radyal akış hat haritasını oluşturmak için her konut (kaynak) ve araştırma yeri (hedef).

Tek sütun koduna birkaç örnek aralığına baktım, ancak kaynak sütümle de ilgili hiçbir şey bulamadım. Herhangi bir yardım takdir edilecektir!

Answer 1

senin levha şuna benzer olacağını varsayıyorum:

Ve çıkış olacak şekilde:

: Bu görevi başarmak olacaktır

ardından kod

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