[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]
『小文字を大文字に一括変換』(たまえ)
a1c225533 ⇒ A1C225533というふうにデータを変換させることができますか?
データ数は100件ほどありますが、一括で変換できますか?
標準モジュールの例です(あきお) Sub TEST1() Cells.Replace What:="a", Replacement:="A" Cells.Replace What:="b", Replacement:="B" Cells.Replace What:="c", Replacement:="C" Cells.Replace What:="d", Replacement:="D" Cells.Replace What:="e", Replacement:="E" Cells.Replace What:="f", Replacement:="F" Cells.Replace What:="g", Replacement:="G" Cells.Replace What:="h", Replacement:="H" Cells.Replace What:="i", Replacement:="I" Cells.Replace What:="j", Replacement:="J" Cells.Replace What:="k", Replacement:="K" Cells.Replace What:="l", Replacement:="L" Cells.Replace What:="m", Replacement:="M" Cells.Replace What:="n", Replacement:="N" Cells.Replace What:="o", Replacement:="O" Cells.Replace What:="p", Replacement:="P" Cells.Replace What:="q", Replacement:="Q" Cells.Replace What:="r", Replacement:="R" Cells.Replace What:="s", Replacement:="S" Cells.Replace What:="t", Replacement:="T" Cells.Replace What:="u", Replacement:="U" Cells.Replace What:="v", Replacement:="V" Cells.Replace What:="w", Replacement:="W" Cells.Replace What:="x", Replacement:="X" Cells.Replace What:="y", Replacement:="Y" Cells.Replace What:="z", Replacement:="Z" End Sub または Sub TEST2() c_l = Asc("a") c_u = Asc("A") For I = 1 To 26 #訂正><; Cells.Replace What:=Chr(c_l), Replacement:=Chr(c_u) c_l = c_l + 1 c_u = c_u + 1 Next I End Sub
A B 1 a1c225533 A1C225533
B1=UPPER(A1) ★関数で別のセルで大文字にして、値の貼り付けをします (Maron)
全角かと思ってしまいました(あきお) 半角のままなら、上の私のヤツは、忘れてください。 解決しちゃってるけど、標準モジュールの例です Sub TEST3() mae = Asc("a") sa = Asc("a") - Asc("A") For I = 1 To 26 Cells.Replace What:=Chr(mae), Replacement:=Chr(mae - sa) mae = mae + 1 Next I End Sub
[ 一覧(最新更新順) ]
YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki.
Modified by kazu.