Excelマクロで

質問

A列に登録されているデータ(途中行でスペース有り)に対し、小文字で登録されているデータを全て全角に変換したいと思います。ループ処理の記述方法を教えて下さい。

回答No.2

otto0001otto · ベストアンサー

Sub Test()
Dim i As Integer
Dim j As Integer
j = EndRow
For i = 1 To j
Cells(i, 1) = StrConv((Cells(i, 1)), 4)
Next i
End Sub

Function EndRow() As Long
EndRow = Range("A65536").End(xlUp).Row
End Function

お礼

参考になりました。ありがとうございました。

回答No.1

toshi_ho

A1のみの処理をするなら以下の通り。
複数行を処理するなら、全体をループさせればＯＫです。
m = ""
For i = 1 To Len(Cells(1, 1))
If Asc(Mid(Cells(1, 1), i, 1)) >= 97 And Asc(Mid(Cells(1, 1), i, 1)) <= 122 Then
m = m & StrConv(Mid(Cells(1, 1), i, 1), 4)
Else
m = m & Mid(Cells(1, 1), i, 1)
End If
Next
Cells(1,1)=m

お礼

参考になりました。ありがとうございました。