Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

20972 / 76738

←次へ　｜　前へ→


	【61174】Re:正規表現による文字の置換

Abyss - 09/4/14(火) 15:33 -


	引用なし

	パスワード

>これを1度でやる方法などはあるのでしょうか

正規表現Pattern設定としてはないです。
しかし、ご提示のコードだったら、For Loopを
使い、視覚的にも分かりやすくは可能でしょう。

Dim oReg As Object
Dim r As Range
Dim LP As Long, Endcol As Long
Dim e, v
Dim i As Long

Endcol = Cells(1, Columns.Count).End(xlToLeft).Column
Rows(2).Clear

Set oReg = CreateObject("VBScript.RegExp")

oReg.Global = True

v = VBA.Array("その他", "北海道地方", "関東", "北陸", _
　　　　　　　　"中部", "近畿", "中国/四国", "九州", "沖縄")

For Each e In Array("^(?:青森|岩手|宮城|秋田|山形)県|^不明", _
　　　　　　　　　　"^北海道", _
　　　　　　　　　　"^(?:茨城|栃木|群馬|埼玉|千葉|神奈川)県|^東京都", _
　　　　　　　　　　"^(?:新潟|富山|石川|福井)県", _
　　　　　　　　　　"^(?:山梨|長野|岐阜|静岡|愛知)県", _
　　　　　　　　　　"^(?:三重|滋賀|兵庫|奈良|和歌山)県|^(?:京都|大阪)府", _
　　　　　　　　　　"^(?:鳥取|島根|岡山|広島|山口|徳島|香川|愛媛|高知)県", _
　　　　　　　　　　"^(?:福岡|佐賀|長崎|熊本|大分|宮崎|鹿児)県", _
　　　　　　　　　　"^沖縄県")
　　　　　　　　　　
　　oReg.Pattern = CStr(e)
　　　　　　　　　　
　　For LP = 1 To Endcol
　　　　If oReg.Test(Cells(1, LP)) Then Cells(2, LP).Value = CStr(v(i))
　　Next
　　i = i + 1
　　
Next

Set oReg = Nothing

0 hits

▼

【61145】正規表現による文字の置換 HAM 09/4/11(土) 17:01