将列中的文本拆分为两个单独的列

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

下面的代码假定您要处理的数据是在你的活动工作表，并且希望将数据分割你的当前工作表，并将其放入列K.

我如果你想使用一个循环可以包括循环内的TXT /位置变量和使用I/J，作为偏移量数据放置会使用，而不是一个循环

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