Excel - буквы большие и маленькие

Весь MS Office, программирование на Visual Basic for Applications и MS VB

Модератор: Naeel Maqsudov

Ответить
alekscooper
Сообщения: 3
Зарегистрирован: 12 апр 2007, 23:08

Всем привет!
Друзья, нужна ваша помощь. Помогите решить следующую проблему, пожалуйста! Очень нужно!!

Итак, в Excel в столбце в каждой ячейке есть текст на русском. Первая буква в ячейке - большая. В каждой ячейке эту первую букву надо заменить ну букву маленькую. Других букв трогать не надо. Такое вот одно действие на ячейку. Но мне приходится делать это вручную и, боюсь, придется делать это несколько десятков тысяч раз . Помогите пожалуйста это автоматизировать. Не знаю, макрос, наверное, какой? А может это из меню как-то можно сделать?
Зараннее огромное спасибо!!!!
Аватара пользователя
Aent
Сообщения: 1129
Зарегистрирован: 01 окт 2006, 14:52
Откуда: Saratov,Russia
Контактная информация:

Если в ячейке A1 исходные данные, для получения нужного значения воспользуйтесь формулой
=СТРОЧН(ПСТР(a1;1;1)) & ПРАВСИМВ(a1;ДЛСТР(a1)-1)
Распространите эту формулу на колонку и всё.
alekscooper
Сообщения: 3
Зарегистрирован: 12 апр 2007, 23:08

Спасибо за отклик!!

Скажите, а где писать эту формулу? И как размножить ее на весь столбец?

Извините, чувствую себя как с другой планеты.
Diment
Сообщения: 138
Зарегистрирован: 04 сен 2006, 11:39
Откуда: Кисловодск

если все на самом деле "так запущено", возьми скопируй эту формулу прямо с этой страницы, и встравь в строку формул соседнего с исходными данными столбца. Обрати внимание что бы вставленая формула ссылалась именно на нужный столбец и значение в той же строке. Ну а потом растягиваешь формулу маркером заполнения или копируешь ячейку с формулой, выделяешь весь столбец или только нужную область под формулой и вставляешь. Все.
Хыиуду
Сообщения: 2442
Зарегистрирован: 06 мар 2005, 21:03
Откуда: Москва
Контактная информация:

Размножить на столбец - выделить участок, начиная с нужной ячейки с формулой, нажать Ctrl-D, а чтобы размножить на строку - то же самое, и Ctrl-R
Искусство программирования - заставить компьютер делать все то, что вам делать лень.
Для "спасибо" есть кнопка "Спасибо" в виде звездочки внизу под ником автора поста.
alekscooper
Сообщения: 3
Зарегистрирован: 12 апр 2007, 23:08

Ребят, всем огромное спасибо!!! Правда очень ценю - ваши советы очень помогли!!!! Всего вам самого лучшего без всяких багов! :) )))
keshayoo
Сообщения: 1
Зарегистрирован: 18 сен 2013, 09:11

Ребята помогите пожалуйста, есть exel файл. Как в exel 2007 сделать в столбце "C" чтобы все слова были с маленькой буквы кроме первого.
Например было :меня ЗОВУТ ВОВА 1983 вова,
а стало : Меня зовут вова 1983 вова

во вложении файл который нужно изменить, но я хочу сам понять как это делать
Аватара пользователя
Naeel Maqsudov
Сообщения: 2570
Зарегистрирован: 20 фев 2004, 19:17
Откуда: Moscow, Russia
Контактная информация:

Ответ был в этой же теме чуть раньше http://forum.developing.ru/showthread.p ... #post36701
pashulka
Сообщения: 831
Зарегистрирован: 24 ноя 2004, 03:46
Контактная информация:

Наиль, Ответ конечно же есть, токмо его необходимо немного изменить, например, на :

Код: Выделить всё

=ПРОПИСН(ПСТР(A1;1;1)) & СТРОЧН(ПРАВСИМВ(A1;ДЛСТР(A1)-1))
Хотя я бы замутил что-то вроде этого :

Код: Выделить всё

=ЗАМЕНИТЬ(СТРОЧН(A1);1;1;ПРОПИСН(ЛЕВСИМВ(A1)))
SAS888
Сообщения: 156
Зарегистрирован: 16 янв 2008, 08:28

На сколько я понял, автору вопроса требуется на месте поправить существующие в ячейках значения. Конечно, можно вставлять на свободное место листа предлагаемые формулы, копировать полученные значения в исходное место, затем очищать этот вспомогательный диапазон от временных формул. Но, по-моему, вместо этого лучше использовать макрос. Например, такой (для выделенного диапазона):

Код: Выделить всё

Sub qq()
    Dim x As Range: Application.ScreenUpdating = False
    For Each x In Selection
        x = UCase(Left$(x, 1)) & LCase(Mid$(x, 2))
    Next
End Sub
Ответить