Sub 特定列で文字を置換()
‘
‘　 L列で「検索文字」で検索して、「置換文字」で置き換え
Columns(“L:L”).Select
Selection.Replace What:=”検索文字”, Replacement:=”置換文字”, LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, MatchByte:=False

End Sub