【エクセルVBA】大文字か小文字にそろえるマクロ

大文字と小文字の商品コードで読みづらいなあ。

こんにちは！シバマメです。
商品名とかを集計するときに、
手打ちだと、大文字と小文字が混ざっていて
読みずらいことがあります。
沢山の商品コードに見えて、
実は、３つしかないとか。
そんなときに便利なマクロを紹介します。
列を指定して、
みだし行以外の文字を、大文字か小文字にそろえます。
スッキリして見やすくなりますね。

使い方

使い方

1

下記のコードを個人用マクロブックに保存しましょう。個人用マクロブック作成方法

2

対象のエクセル表を開いた状態でマクロを実行します。 F5 or ▶ボタンで実行

3

実行すると、大文字or小文字に揃います。

Sub mojiHenkan()

   ' 入力
        Dim iKey As Long
        iKey = InputBox("何列の文字を変換しますか？")
        
   ' 入力2
        Dim selectMoji As Long
        selectMoji = InputBox("大文字にする場合は 1　小文字にする場合は 2 を入力")
   
    ' 最終行列取得
        Dim maxRow As Long
        Dim maxCol As Long
        maxRow = Cells(Rows.Count, 1).End(xlUp).Row
        maxCol = Cells(1, Columns.Count).End(xlToLeft).Column
       
    ' 処理
    Dim i As Long
    Dim Moji As String
    Dim Moji2 As String
       
    For i = 2 To maxRow
        
        Moji = Cells(i, iKey).Value
        Moji2 = StrConv(Moji, selectMoji)
        Cells(i, iKey).Value = Moji2
       
   Next i
 
       
End Sub