Вы внимательно читали сообщение №6? Откройте его и идите по порядку от -- к -- и все у Вас получится без дат. Предварительно используйте формулу предложенную Еленой в сообщении №15 и совет Копировать/вставить как значения. А формула из Сообщения№2 тоже не подходит?
Вы внимательно читали сообщение №6? Откройте его и идите по порядку от -- к -- и все у Вас получится без дат. Предварительно используйте формулу предложенную Еленой в сообщении №15 и совет Копировать/вставить как значения. А формула из Сообщения№2 тоже не подходит?gling
ЯД-41001506838083
Сообщение отредактировал gling - Суббота, 30.01.2016, 21:08
imperators, добрый вечер, протестируйте макросы,кнопка test убирает точку,test1 меняет на ;
[vba]
Код
Sub test() Dim t$, i&, j&, x For j = 3 To 7 t = Range("B" & j): x = Split(t, ",") With CreateObject("VBScript.RegExp") For i = 0 To UBound(x): .Pattern = "\.$" If .test(x(i)) Then x(i) = .Replace(x(i), "") Range("C3").Offset(j - 3, i) = x(i) Next End With Next
[/vba] End Sub
imperators, добрый вечер, протестируйте макросы,кнопка test убирает точку,test1 меняет на ;
[vba]
Код
Sub test() Dim t$, i&, j&, x For j = 3 To 7 t = Range("B" & j): x = Split(t, ",") With CreateObject("VBScript.RegExp") For i = 0 To UBound(x): .Pattern = "\.$" If .test(x(i)) Then x(i) = .Replace(x(i), "") Range("C3").Offset(j - 3, i) = x(i) Next End With Next
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
