crotoff
Advanced Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
2AndVGri
Спасибо, дружищще!!! Получилось!
Поэкспериментировал, и вот этот вариант у меня сработал:
Dim i As Integer, splitResult() As String
splitResult = VBA.Split(ActiveCell.Value, vbLf)
For i = LBound(splitResult) + 1 To UBound(splitResult) + 1
Worksheets("2").Cells(i, 1) = splitResult(i - 1)
Next i
и ещё одну фишку придумал чтобы сформировать список для Сводной таблицы:
Sub M1()
Columns("C:C").Copy
Columns("H:H").Select
ActiveSheet.Paste
Selection.TextToColumns Destination:=Range("H1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
:=Chr(10), FieldInfo:=Array(1, 1), TrailingMinusNumbers:=True
End Sub
ЗЫ. Интересно - нельзя ли добиться такого же результата посредством одних лишь формул, ну там текстовых, индексных функций? Потому что структура таблиц разная встречается, и придёцца заранее предусмотреть все варианты. Это было бы ваще cool. |
Всего записей: 961 | Зарегистр. 17-04-2007 | Отправлено: 09:07 18-04-2007 | Исправлено: crotoff, 13:25 18-04-2007 |
|
