うーん、質問内容としては、初歩的な内容も含まれていますから、そのレベルだと、おそらく、元のコード自体も修正したりできないのではないかと思います。できるだけ、自分で調べて解決できる部分は、してほしいものです。
1. Trim 関数とReplace関数で出来るような気がします。
a = " 123 "
a = Replace(a, Space(1), Space(1), , , 1) 'TextCompare モードで、半角スペースに置換
a = Replace(a, vbTab, Space(1), , , 1)
b = Trim(a)
2.
a = "12 345" 'すでに半角空白にしてあることが前提
Do
i = Len(a)
a = Replace(a, Space(2), Space(1))
j = Len(a)
Loop While i > j
3.初級レベル
a = "ABcDeF"
b = StrConv(a, vbLowerCase) '小文字, 大文字は、vbUpperCase
4.3に準じます。初級レベルにつき割愛
全角数字があれば、半角数字に置換する
vbNarrow
5.
a = "宮崎県宮崎市日出町"
If Not a Like "*[!一-龠]*" Then
a = Replace(a, "県", "県 ") '後ろに全角空白
a = Replace(a, "市", "市 ")
End If
b = a
6.初級レベル
a= Replace(a,"-","－") 'デフォルト・BinaryCompareモード
7.初級レベル
a = Replace(a,"郵便番号", "")
a = Replace(a,"〒", "")
8.
"東京都""沖縄県""大阪府""北海道""福岡県"以外の文字があった場合該当する文字以外を削除
質問の意味がよく理解できません。
例えば、「都内千代田区」「府内船場」
というようなことでしょうか。ただ、9番と論理矛盾、もしくは、兼ねているように思います。都内・府内という特定の単語を削除するというのは可能でも、不特定の単語を削除は文字の切れ目がありませんから、掲示板上で簡易に公開する方法はないと思います。
9.
Const PREFECT_LIST = "北海道,青森県,岩手県,秋田県,宮城県,山形県,福島県,新潟県,富山県,石川県,福井県, 長野県,茨城県, 栃木県, 群馬県, 埼玉県,千葉県, 神奈川県, 山梨県, 東京都,岐阜県,静岡県,愛知県,三重県," & _
"滋賀県,京都府,兵庫県,奈良県,和歌山県,大阪府,鳥取県,島根県,岡山県,広島県,山口県,徳島県,香川県,愛媛県,高知県, 福岡県, 佐賀県, 長崎県, 熊本県, 大分県, 宮崎県, 鹿児島県,沖縄県"
Prefects = Split(PREFECT_LIST, ",")
'
a = "千代田区丸の内"
For Each c In Prefects
If Not a Like c & "*" Then
flg = True
Exit For
End If
Next c
If flg Then
b = "都道府県名エラー!" & a
End If
