zhitya
Создатель
- Регистрация
- 4 Фев 2008
- Сообщения
- 22
- Реакции
- 8
- Автор темы
- #1
Добрый!
Есть простая задача, над которой я залип...
Есть лист с содержимым:
Нужно получить второй лист, в котором тоже самое, только значения столбца С разобраны по разделителю "/". Вот так:
Мой код:
Проблема заключается в том, что на втором листе значения разбиваются, но второе-третье из массива перезаписывается в одной строке, а мне нужны уникальные!
Помогите пжлста!
Есть простая задача, над которой я залип...
Есть лист с содержимым:
Нужно получить второй лист, в котором тоже самое, только значения столбца С разобраны по разделителю "/". Вот так:
Мой код:
Код:
Sub do_unical_c()
Dim i, j, c, t, nRows, subRows As Integer
Dim str As String, arr() As String
nRows = ActiveSheet.UsedRange.rows.Count
t = 1
For i = 1 To nRows
arr = split(Worksheets("Sheet1").Cells(i, 3).Value, "/") 'Разбиваем на подстроки по символу "/"
subRows = UBound(arr) 'Сколько в массиве элементов, минимум 0
For c = 0 To subRows 'Перебор массива с разобранной строкой
For j = 1 To 7 'Перебор столбцов
t = i + c
If j <> 3 Then
Worksheets("Sheet2").Cells(t, j).Value = Worksheets("Sheet1").Cells(i, j).Value
Else 'Если тот самый столбец, то...
Worksheets("Sheet2").Cells(t, j).Value = arr(c)
End If
Next j
Next c
Next i
End Sub
Проблема заключается в том, что на втором листе значения разбиваются, но второе-третье из массива перезаписывается в одной строке, а мне нужны уникальные!
Помогите пжлста!