質問: mystring next i end sub -----------
回答: こんにちは! >a5からa10に入った小文字(半角英数)を・・・ 範囲がa5~a10と決まっているのであれば sub sample1() dim i as long for i = 5 to 10 cells(i, "a") = ucase(cells(i, "a")) next i end sub とか sub sample2() dim c as range for each c in range("a5:a10") c = ucase(c) next c end sub くらいで大丈夫だと思います。m(_ _)m