Sub ToLowerHankaku(COL) 'COL 列の1行目から700行目まで、 ' 全角数字や全角アルファベットを半角になおし ' 大文字アルファベットを小文字になおします Dim i As Integer For i = 1 To 700 Cells(i, COL).Value = LCase(Cells(i, COL).Value) Cells(i, COL).Value = StrConv(Cells(i, COL).Value, vbNarrow) Next i end1: End Sub Sub main() ToLowerHankaku (7) End Sub