Sub アルファベット英字の大文字と小文字を変換する() 文字列 = Range("B1") 'AaBbCc Range("B2") = UCase(文字列) 'AABBCC Range("B3") = LCase(文字列) 'aabbcc End Sub