Уважаемые знатоки екселя! нужно разложить столбик на строчки как в примере. Буду примного благодарен за помощь. [moder]О какой благодарности вы говорите, если в 4 своих предыдущих темах вы отписались только в первой?
Уважаемые знатоки екселя! нужно разложить столбик на строчки как в примере. Буду примного благодарен за помощь. [moder]О какой благодарности вы говорите, если в 4 своих предыдущих темах вы отписались только в первой?Goblinax
С помощью простой UDF (слово в строке по порядку) [vba]
Код
Public Function WordInString(SS As String, N As Integer) As String S = Trim(SS) S = Replace(S, " ", " ") & " " K = 0 LeftPos = 1 For i = 2 To Len(S) If Mid(S, i, 1) = " " Then K = K + 1 If K = N Then WordInString = Mid(S, LeftPos, i - LeftPos) Exit Function End If LeftPos = i + 1 End If Next i End Function
[/vba]
Данные в таблице дублируются N раз, где N = максимальное количество жильцов в квартире. В конце фильтр "непустые ячейки" в столбце ФИО_
Не оптимально, конечно, и не изящно, но уж как есть ...
С помощью простой UDF (слово в строке по порядку) [vba]
Код
Public Function WordInString(SS As String, N As Integer) As String S = Trim(SS) S = Replace(S, " ", " ") & " " K = 0 LeftPos = 1 For i = 2 To Len(S) If Mid(S, i, 1) = " " Then K = K + 1 If K = N Then WordInString = Mid(S, LeftPos, i - LeftPos) Exit Function End If LeftPos = i + 1 End If Next i End Function
[/vba]
Данные в таблице дублируются N раз, где N = максимальное количество жильцов в квартире. В конце фильтр "непустые ячейки" в столбце ФИО_
Не оптимально, конечно, и не изящно, но уж как есть ...abtextime
Всем спасибо! Сделал сам. Заменил символ10 (перенос строки) на знак доллара, затем текст ту коломнс по этому знаку, соединил вместе в большую таблицу и удалил пустые ячейки. победа
Всем спасибо! Сделал сам. Заменил символ10 (перенос строки) на знак доллара, затем текст ту коломнс по этому знаку, соединил вместе в большую таблицу и удалил пустые ячейки. победаGoblinax
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
