Добрый день!
У меня несколько номеров телефона в одной ячейке и к ним один счет. Нужно чтобы к лицевому счету подставился каждый номер. Пример в файле. Я воспользовался макросом, он работает, но в конце выдает 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
У меня несколько номеров телефона в одной ячейке и к ним один счет. Нужно чтобы к лицевому счету подставился каждый номер. Пример в файле. Я воспользовался макросом, он работает, но в конце выдает 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
