Копирование части текста из той же ячейки

Question

У меня возникла проблема при загрузке файла, содержащего различную информацию, которая должна храниться в разных ячейках, но все записано в одной ячейке.

Например A: 9 содержит:

2016.03.16,"8982266507","QLGJG","AHGLG","OKK","IK","ODEADKIK","DK57200028982561607","485979,12","65164,94","485979,12","65164,94","485979,12","65164,94","","","","","","", 

Я хотел бы иметь макрос, который копирует определенные части этой строки, например, последняя часть "65164,94" и приклеить, чтобы клеток А: 10.

Спасибо заранее

Answer 1

А также ответ Себ, вы можете использовать функцию разделения. Итак:

Sub splitting_string() 
Dim arr1 As Variant, var1 As String 
var1 = Range("A9") 

arr1 = Split(var1, ",") 

For i = 0 To UBound(arr1) 
    Cells(10 + i, 1) = arr1(i) 
Next i 
End Sub 

Это отделит длинную строку в A9 на более мелкие, разделив их каждый раз есть запятая, размещая их в нижеприведенных клеток.