VBA를 사용하는 Excel에서 어떻게 서로 다른 분리 자 (예 : 쉼표, 콜론 등)로 구분 된 여러 값을 분할합니까?

Question

웹에서 Excel 스프레드 시트로 데이터를 가져옵니다. 모든 데이터는 A 열의 Sheet1에 나열됩니다. 예 :

Name: Smith John A. 

License: General - Master 

License Status: Active 

City/State: Anytown, USA 

County: Thatoneyouknow 

Contact Information 

Cell Phone: (555) 555-555 

Email Address: johnsmith@johnsmith.com 

Region: One 

Ever Been Disciplined?: No 

Notes: None 

그리고 그 직후 다음 사람에 대한 유사한 정보를 반복 등

나는 아래의 코드를 사용하여 데이터를 구분하는 콜론으로 텍스트를 분할 할 수 있었다 :

Sub DataReOrganizer() 
Dim s1, s2 As Worksheet 
Dim Cook, i, K As Long 
Dim v As String 
Set s1 = Sheets("Sheet1") 
Set s2 = Sheets("Sheet2") 
Cook = s1.Cells(Rows.Count, "A").End(xlUp).Row 
K = 2 
For i = 1 To Cook 
     v = s1.Cells(i, "A").Text 
     If v = "Contact Information" Then 
      K = K + 1 
     Else 
      ary = Split(v, ": ") 
      If ary(0) = "Name" Then s2.Cells(K, 1) = ary(1) 
      If ary(0) = "License" Then s2.Cells(K, 2) = ary(1) 
      If ary(0) = "License Status" Then s2.Cells(K, 3) = ary(1) 
      If ary(0) = "City/State" Then s2.Cells(K, 4) = ary(1) 
      If ary(0) = "County" Then s2.Cells(K, 5) = ary(1) 
      If ary(0) = "Home Phone" Then s2.Cells(K, 6) = ary(1) 
      If ary(0) = "Work Phone" Then s2.Cells(K, 7) = ary(1) 
      If ary(0) = "Cell Phone" Then s2.Cells(K, 8) = ary(1) 
      If ary(0) = "Email Address" Then s2.Cells(K, 9) = ary(1) 
      If ary(0) = "Region" Then s2.Cells(K, 10) = ary(1) 
      If ary(0) = "Ever Been Disciplined?" Then s2.Cells(K, 11) = ary(1) 
      If ary(0) = "Note" Then s2.Cells(K, 12) = ary(1) 
     End If 
    Next I 
End Sub 

이것은 데이터를 가져 와서 각 새 행을 sheet2의 목록에서 다음 사람으로 다른 열로 구분하여 잘 작동합니다. 그러나 사물을 단순화하기 위해이 코드를 쉼표로 구분하여 라이센스 필드와 동일하게 하이픈으로 구분할 수 있습니까?

미리 감사드립니다.

Answer 1

확실하지. 원래 문자열을 배열로 분할 할 필요가 없습니다. Like과 와일드 카드 *을 사용하면됩니다.

Sub DataReOrganizer() 

    Dim s1, s2 As Worksheet 
    Dim Cook, i, K As Long 
    Dim v As String 
    Set s1 = Sheets("Sheet1") 
    Set s2 = Sheets("Sheet2") 
    Cook = s1.Cells(Rows.Count, "A").End(xlUp).Row 
    K = 2 
    For i = 1 To Cook 
     v = s1.Cells(i, "A").text 
     If v = "Contact Information" Then 
      K = K + 1 
     Else 
      If v Like "Name:*" Then 
       'YourRange = Split(Split(v, ":")(1), ",")(0) 'Last Name 
       s2.Cells(K, 1) = Split(v, ",")(1)    'First Name 
      End If 
      If v Like "License:*" Then s2.Cells(K, 2) = Split(v, "-")(1) 
      If v Like "License Status:*" Then s2.Cells(K, 3) = Split(v, ":")(1) 
      If v Like "City/State:*" Then s2.Cells(K, 4) = Split(v, ":")(1) 
      If v Like "County:*" Then s2.Cells(K, 5) = Split(v, ":")(1) 
      If v Like "Home Phone:*" Then s2.Cells(K, 6) = Split(v, ":")(1) 
      If v Like "Work Phone:*" Then s2.Cells(K, 7) = Split(v, ":")(1) 
      If v Like "Cell Phone:*" Then s2.Cells(K, 8) = Split(v, ":")(1) 
      If v Like "Email Address:*" Then s2.Cells(K, 9) = Split(v, ":")(1) 
      If v Like "Region:*" Then s2.Cells(K, 10) = Split(v, ":")(1) 
      If v Like "Ever Been Disciplined?:*" Then s2.Cells(K, 11) = Split(v, ":")(1) 
      If v Like "Note:*" Then s2.Cells(K, 12) = Split(v, ":")(1) 
     End If 
    Next i 

End Sub 

Split()을 사용할 때 몇 가지 옵션이 있습니다. 일반적으로, 그것은 여러분이했던 것처럼 배열에 분할을 추가하는 데 사용됩니다. 그러나 배열의 전체를 건너 뛰고 split의 끝에 (i)을 추가하여 단일 문자열을 반환 할 수 있습니다. 예를 들어, i = 0 인 경우 전체 문자열 을보다 먼저 첫 번째 구분 기호로 반환합니다. 마찬가지로 i = 1은 첫 번째 구분 기호 뒤의 전체 문자열을 반환하고 i = 2은 2 번째 이후의 모든 문자를 반환합니다.

Answer 2

쉼표가 없으므로 이름이 확실하지 않은 다른 분할을 할 수도 있지만 라이센스는 사용할 수 있습니다. @Sorceri에서 제안한대로 하이픈이 있는지 확인하십시오. 엄밀히 말하면 콜론도 똑같이해야합니다. 당신이 그것을 분할 할 한 이후, 첫 번째 이름과 마지막 이름에 대해 별도의 세포를 원하지만, 그런 경우 아래 'YourRange를 변경할 수있는 경우

If ary(0) = "License" Then 
    s2.Cells(K, 2) = Split(ary(1), "-")(0)   
    If InStr(ary(1), "-") > 0 Then 
     s2.Cells(K, 3) = Split(ary(1), "-")(1) 
    End If 
    End If