excel - すべてのセルを大文字にする Excel VBA コード

Question

目標:
目標は、下の図から結果を得ることです。

問題：
現在の状況は以下のとおりです

VBAコードを使用して目標の結果を得るにはどうすればよいですか。

Answer 1

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 2

このコードを試してください

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

Answer 3

私が見た最短バージョン:

With Target '(末尾で終了)

    Target = UCase(Target)    'Ucase  or  Lcase

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

そして..あなた1ライナー?:

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