Excelマクロで

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

No.2 ベストアンサー 回答者： otto0001otto 回答日時： 2006/04/11 20:49

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

この回答へのお礼

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

お礼日時：2006/04/16 08:47

No.1 回答者： toshi_ho 回答日時： 2006/04/10 22:29

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

この回答へのお礼

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

お礼日時：2006/04/16 08:48