Sub 文字変換()

    Dim M As Variant
    Dim B, S
    Dim strHM As String
    Dim strHm2 As String
    
    '英文大文字を小文字にする。
 
    B = Range("B3")
    S = LCase(B)
    Range("C3").Value = S
    
    'カタカナ全角を半角にする。
   
    strHM = Range("B4")
    strHm2 = Application.WorksheetFunction.Asc(strHM)
    Range("C4").Value = strHm2
    
    '文字の置換
    
    Km = "BT"
    Hm = "ボルト"
    Range("B6").Replace what:=Km, replacement:=Hm, _
         lookat:=xlPart, searchOrder:=xlByColumns, MatchCase:=True, matchbyte:=True
    
    '列内全部の文字一括置換
    
    Km2 = "BT"
    Hm2 = "ボルト"
    Columns("D").Replace what:=Km2, replacement:=Hm2, _
          lookat:=xlPart, searchOrder:=xlByColumns, MatchCase:=True, matchbyte:=True
          
End Sub