Здравствуйте. Может кто подскажет. Есть таблица с данными. В первом столбце указаны название компаний, во втором номера телефонов, их несколько, разделены между собой запятой с пробелом. Нужно разделить эти номера телефонов в отдельную строку, но чтобы название этой компании дублировалось к каждому разделенному номеру.
Sub mrshkei()
Dim arr, arr2, arr3, i As Long, n As Long, lr As Long
lr = Cells(Rows.Count, 1).End(xlUp).Row
arr = Range("A2:B" & lr)
ReDim arr3(1 To lr * 20, 1 To 2): k = 1
For i = LBound(arr) To UBound(arr)
arr2 = Split(arr(i, 2), " ")
For n = LBound(arr2) To UBound(arr2)
arr3(k, 1) = arr(i, 1)
arr3(k, 2) = CStr(arr2(n))
k = k + 1
Next n
Next i
Range("C1").Resize(UBound(arr3), 2).NumberFormat = "@"
Range("C1").Resize(UBound(arr3), 2) = arr3
End Sub