Добрый вечер! Имеются три столбца со словами. Например: Добавление символа в строке Необходимо автоматически в каждом столбце к словам подставить символы, чтобы было так:
1. "Добавление символа в строке" 2. !Добавление !символа !в !строке 3. "!Добавление !символа !в !строке" - в принципе если сделать первые два пункта с третьим будет уже понятно.
И еще, как потом получившиеся слова преобразовать, чтобы копировать и вставить в заключительную таблицу и в "строке формул" были слова ( например !Добавление !символа !в !строке ), а не формула. Подскажите пожалуйста! Заранее спасибо!
Добрый вечер! Имеются три столбца со словами. Например: Добавление символа в строке Необходимо автоматически в каждом столбце к словам подставить символы, чтобы было так:
1. "Добавление символа в строке" 2. !Добавление !символа !в !строке 3. "!Добавление !символа !в !строке" - в принципе если сделать первые два пункта с третьим будет уже понятно.
И еще, как потом получившиеся слова преобразовать, чтобы копировать и вставить в заключительную таблицу и в "строке формул" были слова ( например !Добавление !символа !в !строке ), а не формула. Подскажите пожалуйста! Заранее спасибо!ILEA
ILEA, добрый день,вариант макроса,кнопки test и повтор
[vba]
Код
Sub test() Dim x, i&: x=Range("A1:A" & Range("A" & Rows.Count).End(xlUp).Row) With CreateObject("VBScript.RegExp"):: .IgnoreCase = True: .Global = True: .Pattern = "[а-яё]+" For i = 1 To UBound(x) x(i, 1) = .Replace(x(i, 1), "!$&") Next End With Range("A1").Resize(UBound(x), UBound(x, 2)).Value = x End Sub
[/vba]
ILEA, добрый день,вариант макроса,кнопки test и повтор
[vba]
Код
Sub test() Dim x, i&: x=Range("A1:A" & Range("A" & Rows.Count).End(xlUp).Row) With CreateObject("VBScript.RegExp"):: .IgnoreCase = True: .Global = True: .Pattern = "[а-яё]+" For i = 1 To UBound(x) x(i, 1) = .Replace(x(i, 1), "!$&") Next End With Range("A1").Resize(UBound(x), UBound(x, 2)).Value = x End Sub
buchlotnik, Спасибо большое, а какая нужна формула чтобы в ковычки возвести? "Добавление символа в строке" Данная формула только восклицательные знаки ставит. P.S. Извини, совсем зеленый пока)
buchlotnik, Спасибо большое, а какая нужна формула чтобы в ковычки возвести? "Добавление символа в строке" Данная формула только восклицательные знаки ставит. P.S. Извини, совсем зеленый пока)ILEA
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
