Спасибо большое!!! Все работает

Спасибо, попробую. Я не правильно в примере написал, разделитель /

Добрый день!  
У меня несколько номеров телефона в одной ячейке и к ним один счет. Нужно чтобы к лицевому счету подставился каждый номер. Пример в файле. Я воспользовался макросом, он работает, но в конце выдает Run-time error '9' Subscript out of range и выделяет    
ReDim c(1 To UBound(tmp) + 1, 1 To 3). Не могу понять в чем проблема. Помогите, пожалуйста  
У меня макрос записан:  
Sub tt()  
Dim iL As Long, cc As Range, tmp, i As Long  
iL = 1  
For Each cc In [A2:A1000000]
tmp = Split(cc, "/")  
ReDim c(1 To UBound(tmp) + 1, 1 To 3)  
For i = 0 To UBound(tmp)  
c(i + 1, 1) = tmp(i)  
c(i + 1, 2) = cc.Offset(, 1)  
c(i + 1, 3) = cc.Offset(, 2)  
Next  
 
Range("K" & iL).Resize(i, 3).Value = c 'выгружаем результат  
iL = iL + i  
 
Next  
End Sub  
Притом, что он задачу выполняет полность, В чем может быть проблкма?  
 
 
К сообщению прикреплен файл: post_383507.xlsx

Hugo  
Подскажите, пожалуйста.  
У меня похожая задача.Только у меня несколько номеров телефона и к ним один счет. Я воспользовался Вашим макросом, он работает, но в конце выдает Run-time error '9' Subscript out of range и выделяет    
ReDim c(1 To UBound(tmp) + 1, 1 To 3)  
У меня макрос записан:  
Sub tt()  
Dim iL As Long, cc As Range, tmp, i As Long  
iL = 1  
For Each cc In [A2:A1000000]
tmp = Split(cc, "/")  
ReDim c(1 To UBound(tmp) + 1, 1 To 3)  
For i = 0 To UBound(tmp)  
c(i + 1, 1) = tmp(i)  
c(i + 1, 2) = cc.Offset(, 1)  
c(i + 1, 3) = cc.Offset(, 2)  
Next  
 
Range("K" & iL).Resize(i, 3).Value = c 'выгружаем результат  
iL = iL + i  
 
Next  
End Sub  
Притом, что он задачу выполняет полность, В чем может быть проблкма?