Добрый день, прошу помощи "допилить" макрос приведенный в примере. Суть вот в чем, берем в массив с листа диапазон С2:С5, в ячейках значения разделены "/", надо выгрузить на лист начиная с этих же ячеек но уже с разделением по столбцам, типа как возможности екселя данные\разделит\. Пробую сам сделать, но у меня получается что разделяет по строкам, не пойму в чем проблема и как ее решить, в примере пять строчек, а в реальном файле будет до 1000 строк и значения в ячейках будут содержать до десятка разделителей "/"
Добрый день, прошу помощи "допилить" макрос приведенный в примере. Суть вот в чем, берем в массив с листа диапазон С2:С5, в ячейках значения разделены "/", надо выгрузить на лист начиная с этих же ячеек но уже с разделением по столбцам, типа как возможности екселя данные\разделит\. Пробую сам сделать, но у меня получается что разделяет по строкам, не пойму в чем проблема и как ее решить, в примере пять строчек, а в реальном файле будет до 1000 строк и значения в ячейках будут содержать до десятка разделителей "/"mss
Sub разложить() Dim arr With Sheets("Лист1") rw = .Cells(.Rows.Count, 3).End(xlUp).Row For k = 2 To rw arr = Split(Cells(k, 3), "/") For i = 0 To UBound(arr) .Cells(k, i + 4) = arr(i) Next i Next k End With End Sub
[/vba]
Здравствуйте. Если правильно поняла [vba]
Код
Sub разложить() Dim arr With Sheets("Лист1") rw = .Cells(.Rows.Count, 3).End(xlUp).Row For k = 2 To rw arr = Split(Cells(k, 3), "/") For i = 0 To UBound(arr) .Cells(k, i + 4) = arr(i) Next i Next k End With End Sub