Клавиатурный ярлык для изменения регистра текста в ячейках Excel 2010?

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

Sub makeUPPER()
  ActiveCell = UCase(ActiveCell)
 End Sub

 Sub makeLOWER()
  ActiveCell = LCase(ActiveCell)
 End Sub

Я использовал следующую технику для преобразования колонки текста в заглавный.

1. Подведите курсор к пустой колонке.
2. В пустой ячейке в той же строке, что и первая ячейка, которую вы хотите конвертировать, наберите =upper(A3), если A3 - первая ячейка, которую вы хотите конвертировать.
3. В ранее пустой ячейке теперь должен быть показан верхний регистр, эквивалентный первой ячейке текста.
4. Скопируйте эту ячейку вниз по столбцу на ту же высоту, что и весь текст.
5. Теперь у вас должен быть столбец, эквивалентный вашему тексту, но все в верхнем регистре.
6. Выделите все ячейки заглавного текста и выберите Копировать.
7. Щелкните левой кнопкой мыши первую ячейку исходного текста (не в верхнем регистре), которая выделит ячейку.
8. Щелкните правой кнопкой мыши.
9. Выберите Вставить специальные
10. В окне списка выберите радиокнопку “Значения” и нажмите OK.
11. Теперь у вас будет 2 колонки текста в верхнем регистре.
12. Удалите колонку, содержащую формулы =upper().

Тот же принцип работает и для Свойств, и для других функций работы с текстом.

Если вы установите отличный ASAP Utilities Excel addin (бесплатный для личного пользования)…. http://www.asap-utilities.com/download-asap-utilities.php

это имеет встроенный UPPER CASE и нижний регистр (а также миллион других), которым вы можете назначить горячие клавиши (см. их вебсайт для более подробной информации).

Скопируйте текст, который вы хотите изменить регистр для вставки в слово, выделите его и нажмите shift + f3 до тех пор, пока он не будет полностью вставлен в нужный регистр, а также вырежьте и пропустите его назад.

Это лучше всего работает для меня, так как это работает с несколькими ячейками:

Sub Uppercase()
    For Each Cell In Selection
        If Not Cell.HasFormula Then
            Cell.Value = UCase(Cell.Value)
        End If
    Next Cell
End Sub