열의 텍스트를 두 개의 별도 열로 나눕니다.

Question

위치의 텍스트를 "-"을 기준으로 두 개의 별도 열로 나누는 데 문제가 있습니다. 코드는 각 행을 반복하고 셀 값을 분할해야합니다.

코드 :

'Split Location into 2 Columns 
    txt = Sheet4.Cells(i, 10).Value 
    Location = Split(txt, "-") 

    For i = 2 To LastRow2 
     For j = 0 To UBound(Location) 
      Cells(1, j + 1).Value = Location(j) 
     Next j 
    Next i 

샘플 시트 :

Answer 1

아래 코드는 가정이 조작 할 데이터가 활성 시트에 그리고 당신은

I K.을 현재 시트의 데이터를 분할 열에 배치 할 당신이 I/데이터 배치에 대한 오프셋 (offset)로 J를 루프 내부의 TXT/위치 변수를 포함하고 사용할 수있는 루프를 사용하려면 대신 루프

Range("J2:J" & LastRow2).TextToColumns Destination:=Range("J2"), _ 
             OtherChar:="-", _ 
             FieldInfo:=Array(Array(1, 1), Array(2, 1)) 

의 TextToColumns을 사용

For i = 2 To LastRow2 
    'Split Location into 2 Columns 
    txt = Cells(i, 10).Value 
    Location = Split(txt, "-") 

    For j = 0 To UBound(Location) 
     Cells(i, 10 + j).Value = Location(j) 
    Next j 
Next i 

Answer 2

나는 문제가 당신이 루프 밖에서 넣어 Sheet4.Cells(i, 10).Value 생각합니다. 이 같은 시도 :

For i = 2 To LastRow2 
    'Split Location into 2 Columns 
    txt = Sheet4.Cells(i, 10).Value 
    Location = Split(txt, "-") 

    For j = 0 To UBound(Location) 
     Cells(1, j + 1).Value = Location(j) 
    Next j 
Next i