Доброго всем здравия! Подскажите пожалуйста! Какими методами, способами или формулами и т.п можно сделать автоматическое разделение столбца A2:A11 на левую и правую его части? Значения в столбце A2:A11могут меняться. Возможно ли такое вообще осуществить? При решении данной задачи в ручном режиме, я захожу на вкладку "Данные", выбираю "Текст по столбцам" и применяю разделение. Не устраивает ручной режим тем, что после сохранения и применения изменений и при повторном открытии данного документа, функция разделения не работает. Приходиться снова вручную каждый раз исправлять. Документ прилагается.
Доброго всем здравия! Подскажите пожалуйста! Какими методами, способами или формулами и т.п можно сделать автоматическое разделение столбца A2:A11 на левую и правую его части? Значения в столбце A2:A11могут меняться. Возможно ли такое вообще осуществить? При решении данной задачи в ручном режиме, я захожу на вкладку "Данные", выбираю "Текст по столбцам" и применяю разделение. Не устраивает ручной режим тем, что после сохранения и применения изменений и при повторном открытии данного документа, функция разделения не работает. Приходиться снова вручную каждый раз исправлять. Документ прилагается.Кузьмич
Не устраивает ручной режим тем, что после сохранения и применения изменений и при повторном открытии данного документа, функция разделения не работает.
Не понял ни грамма. Формулами еще можно. Для левого:
Не устраивает ручной режим тем, что после сохранения и применения изменений и при повторном открытии данного документа, функция разделения не работает.
Не понял ни грамма. Формулами еще можно. Для левого:
ShAM, благодарю! Формула хорошо работает с двухзначными числами до 99. Можно подправить до трехзначных? Я задал значения выше 100 и мне выдает только двухзначное число.
ShAM, благодарю! Формула хорошо работает с двухзначными числами до 99. Можно подправить до трехзначных? Я задал значения выше 100 и мне выдает только двухзначное число.Кузьмич
Могу предложить UDF, ей вообще все равно сколько разрядов у числа [vba]
Код
Function GetPart(ByVal S As String, aPart As Integer, Optional Delim As String = ":") As Integer Dim arr arr = Split(Application.WorksheetFunction.Trim(Replace(S, Delim, " "))) GetPart = Val(arr(aPart - 1)) End Function
[/vba]
Могу предложить UDF, ей вообще все равно сколько разрядов у числа [vba]
Код
Function GetPart(ByVal S As String, aPart As Integer, Optional Delim As String = ":") As Integer Dim arr arr = Split(Application.WorksheetFunction.Trim(Replace(S, Delim, " "))) GetPart = Val(arr(aPart - 1)) End Function
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
