Excel VBA UCaseで指定した文字列をすべて大文字に変換する方法

以下のようなシーンで利用されます。

・入力データやリストの文字列を大文字に統一する。

・大文字小文字の区別をなくして文字列比較を行う。

・フォーマットを統一することで見やすくする。

Option Explicit

Sub ConvertToUpperCase()
    Dim cell As Range
    Set cell = ThisWorkbook.Sheets("Sheet1").Range("A1")
    
    ' セルの内容を大文字に変換してセルに戻す
    cell.Value = UCase(cell.Value)
End Sub

ユーザーが入力した文字列を大文字に変換する例

Option Explicit

Sub GetUserInputAndConvert()
    Dim userInput As String
    userInput = InputBox("文字列を入力してください:")
    
    ' 入力された文字列を大文字に変換してメッセージボックスで表示
    MsgBox "大文字に変換された文字列: " & UCase(userInput)
End Sub

範囲内のすべてのセルの内容を大文字に変換する例

Option Explicit

Sub ConvertRangeToUpperCase()
    Dim rng As Range
    Dim cell As Range
    Set rng = ThisWorkbook.Sheets("Sheet1").Range("A1:A10")
    
    ' 範囲内の各セルの内容を大文字に変換
    For Each cell In rng
        cell.Value = UCase(cell.Value)
    Next cell
End Sub