セルだけでなく、図形などに書かれた文字も。多分できてるはず。カナはやらない。 Option Explicit 'ブック内の全角文字を半角に変換する Sub main() Dim s As Worksheet For Each s In ThisWorkbook.Sheets exec_sheet s Next End Sub Sub exec_sheet(s As …