Proponuję takie makro. Zwraca ono poszczególne wartości rozdzielone w komórkach położonych o 15 kolumn w prawo (zmienna myOffsetCol, którą można ustawić według własnych upodobań). Znakiem rozdzielającym jest spacja czyli " " (zmienna myDelimiter, którą można zmienić). Stworzyłem też funkcję, która działa w podobny sposób - zobacz następny post.
Sub SplitString()
Dim CellValue As String
Dim myDelimiter As String
Dim myArr As Variant
myOffsetCol as double
myOffsetCol = 15
myDelimiter = " "
CellValue = Selection.Value
myArr = Split(CellValue, myDelimiter, -1, vbTextCompare)
'Debug.Print myArr(0)
Selection.Offset(1, myOffsetCol).Resize(1, UBound(myArr)) = myArr
End Sub
Brak komentarzy:
Prześlij komentarz