Выбранные слова с заглавной буквы

Страница 1 из 1 1
Модератор форума: китин, _Boroda_, DrMini

Выбранные слова с заглавной буквы (Формулы/Formulas)

vdahome

Дата: Среда, 24.04.2019, 12:19 | Сообщение № 1

Группа: Пользователи

Ранг: Прохожий

Сообщений: 6

Репутация: 0 ±

Замечаний: 0% ±

Excel 2016

Рябят, подскажите чайнику как сделать автозамену слов в столбце на слова с ЗАГЛАВНЫМИ БУКВАМИ.

Объясню проблему. Есть столбец с словами для заголовка по рекламе. Например "Ремонт кофемашин saeco!" и т.д. Мне необходимо сделать слово "saeco" заглавными буквами, типа так "SAECO". Список огромный и это занимает очень много времени. Может есть какой нибудь способ, например автозамена из какой нибудь базы, словаря или еще что нибудь. Подскажите пожалуйста, а то задолбался уже.

Ответить

китин

Дата: Среда, 24.04.2019, 12:31 | Сообщение № 2

Группа: Модераторы

Ранг: Экселист

Сообщений: 7034

Репутация: 1079 ±

Замечаний: 0% ±

Excel 2007;2010;2016

Что бы подсказать надо видеть. Приложите файл пример с различными вариантами написания ваших заголовков

Не судите очень строго:я пытаюсь научиться
ЯД 41001877306852

Ответить

vdahome

Дата: Среда, 24.04.2019, 12:43 | Сообщение № 3

Группа: Пользователи

Ранг: Прохожий

Сообщений: 6

Репутация: 0 ±

Замечаний: 0% ±

Excel 2016

ну как то так

К сообщению приложен файл: 23525.xlsx (8.6 Kb)

Ответить

vdahome

Дата: Среда, 24.04.2019, 12:44 | Сообщение № 4

Группа: Пользователи

Ранг: Прохожий

Сообщений: 6

Репутация: 0 ±

Замечаний: 0% ±

Excel 2016

ну как то так

К сообщению приложен файл: 6661675.xlsx (8.6 Kb)

Ответить

bmv98rus

Дата: Среда, 24.04.2019, 12:57 | Сообщение № 5

Группа: Друзья

Ранг: Участник клуба

Сообщений: 4147

Репутация: 772 ±

Замечаний: 0% ±

Excel 2013/2016

https://yandex.ru/search....27&lr=2
https://www.excel-vba.ru/chto-umeet-excel/massovaya-zamena-slov/

~~Замечательный~~ Временно просто медведь ~~, процентов на 20~~.

Ответить

_Boroda_

Дата: Среда, 24.04.2019, 13:08 | Сообщение № 6

Группа: Админы

Ранг: Местный житель

Сообщений: 16895

Репутация: 6613 ±

Замечаний: ±

2003; 2007; 2010; 2013 RUS

А такой там скорее всего нет

Код

=ЕСЛИОШИБКА(ПРОСМОТР("яяя";ЗАМЕНИТЬ(A2;ПОИСК(F$1:F$3;A2);ДЛСТР(F$1:F$3);F$1:F$3));A2)

К сообщению приложен файл: 6661675_1.xlsx (9.1 Kb)

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995

Ответить

bmv98rus

Дата: Среда, 24.04.2019, 13:55 | Сообщение № 7

Группа: Друзья

Ранг: Участник клуба

Сообщений: 4147

Репутация: 772 ±

Замечаний: 0% ±

Excel 2013/2016

Цитата _Boroda_, 24.04.2019 в 13:08, в сообщении № 6 ()

А такой там скорее всего нет

такой нет, но ведь и работает с ограничениями оно. :-(

~~Замечательный~~ Временно просто медведь ~~, процентов на 20~~.

Ответить

sboy

Дата: Среда, 24.04.2019, 13:58 | Сообщение № 8

Группа: Друзья

Ранг: Участник клуба

Сообщений: 2566

Репутация: 724 ±

Замечаний: 0% ±

Excel 2010

вариант с заменой всей латиницы на UPPER
[vba]

Код

Function vdahome(t As String) As String
vdahome = t
    With CreateObject("VBScript.RegExp")
        .Pattern = "[a-z]+"
        If .test(t) Then
            vdahome = .Replace(t, UCase(.Execute(t)(0)))
        End If
    End With
End Function

[/vba]