Hello to everyone.
I use this code to split text in to separate colums
<tbody>
</tbody>
Sub SplitTextColumn()
Dim i As Long
Dim vA As Variant
For i = 1 To Range("A1").Rows.Count
vA = Split(Range("A1").Resize(1).Offset(i - 1), " ")
Range("B2").Resize(1, UBound(vA) + 1) = vA
Next
End Sub
I want to know which is vba modification to split the text from Cell A1 into separate rows?
Thank's a lot
I use this code to split text in to separate colums
Row/column | A | B | C | D | E | F | G |
1 | Split text in rows | ||||||
2 | Split | text | in | rows | |||
3 | |||||||
4 |
<tbody>
</tbody>
Sub SplitTextColumn()
Dim i As Long
Dim vA As Variant
For i = 1 To Range("A1").Rows.Count
vA = Split(Range("A1").Resize(1).Offset(i - 1), " ")
Range("B2").Resize(1, UBound(vA) + 1) = vA
Next
End Sub
I want to know which is vba modification to split the text from Cell A1 into separate rows?
Thank's a lot