Excel VBA код в прописные все клетки

Question

Цель:
Цель состоит в том, чтобы получить результат с картинки ниже

Проблема:
Текущая ситуация ниже

Как следует Я делаю это, чтобы получить результат в цели с помощью кода VBA.

Answer 1

Попробуйте этот код

Sub sample() 
Range("B4:E7") = [index(upper(B4:E7),)] 
End Sub 

Answer 2

Dim rng As Range 
Dim cell As Range 

Set rng = Range("C4:F7") 

For Each cell In rng 
    cell.Value = UCase(cell) 
Next cell 

Answer 3

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

sub EverythingToUpperCase() 
    For Each Cell in ActiveSheet.UsedRange.Cells 
     Cell.Value = UCase(Cell.value) 
    Next 
End Sub 

Answer 4

короткие версии я видел:

С Target «(конец с снизу)

Target = UCase(Target) 'Ucase or Lcase 

    'Target = StrConv(Target, vbProperCase) '<< PROPER 

И .. Thee 1 Liner:

Selection.Value = UCase(Selection.Value) 'YES << 1 LINER UCASE (tested, worked), add a range