No.4ベストアンサー
- 回答日時:
merlionXXです。
こっちの方が2度置換えしないだけスマートかな。
Sub test03()
Dim x As Variant
Dim i As Integer
x = Split("千代田区、中央区、港区、新宿区、文京区、台東区、墨田区、江東区、品川区、目黒区、大田区、世田谷区、渋谷区、中野区、杉並区、豊島区、北区、荒川区、板橋区、練馬区、足立区、葛飾区、江戸川区", "、")
For i = LBound(x) To UBound(x)
ActiveSheet.UsedRange.Replace What:=x(i), Replacement:=IIf(InStr("千代田区、中央区、港区", x(i)) > 0, "東京2", "東京"), LookAt:=xlPart
Next
End Sub
ご回答いただきありがとうございました。
自分のしたいこともよく説明もできないでいたのに…
完璧でした。
本当にありがとうございます。
No.3
- 回答日時:
> 千代田区と中央区、港区を東京2とすることは可能でしょうか。
merlionXXです。スマートじゃないけど以下のように2通りの置換えをするのが簡単かな。
Sub test02()
Dim x As Variant, y As Variant
Dim i As Integer, n As Integer
With ActiveSheet.UsedRange
x = Split("新宿区、文京区、台東区、墨田区、江東区、品川区、目黒区、大田区、世田谷区、渋谷区、中野区、杉並区、豊島区、北区、荒川区、板橋区、練馬区、足立区、葛飾区、江戸川区", "、")
For i = LBound(x) To UBound(x)
.Replace What:=x(i), Replacement:="東京", LookAt:=xlPart
Next i
y = Split("千代田区、中央区、港区", "、")
For n = LBound(y) To UBound(y)
.Replace What:=y(n), Replacement:="東京2", LookAt:=xlPart
Next n
End With
End Sub
No.2
- 回答日時:
東京23区名をすべて置き換えるマクロを書いてみました。
Sub test01()
Dim x As Variant
Dim i As Integer
x = Split("千代田区、中央区、港区、新宿区、文京区、台東区、墨田区、江東区、品川区、目黒区、大田区、世田谷区、渋谷区、中野区、杉並区、豊島区、北区、荒川区、板橋区、練馬区、足立区、葛飾区、江戸川区", "、")
For i = LBound(x) To UBound(x)
ActiveSheet.UsedRange.Replace What:=x(i), Replacement:="東京", LookAt:=xlPart
Next
End Sub
この回答への補足
ありがとうございます。エクセルを使えるとこんなことが出来るんですね。感動しました。
たとえば千代田区と中央区、港区を東京2とすることは可能でしょうか。
一度にご質問すればよかったのですが…何度もお手数をおかけします。よろしくお願いいたします。
No.1
- 回答日時:
んー・・マクロを記述するのもいいですが、手間を考えてみると普通に【置換】した方が早そうです
マクロで記述するにも「豊島区」「練馬区」「北区」「東京」と入力する必要がありますから
それならば、そのまま一つずつ置換で「すべて置換」を行ったほうが早いかな・・・と思います
マクロ(VBA)の知識も必要ありませんし、不要なマクロコードを残すこともありません
データを追加するたびに繰り返し実行する必要があるのであれば
「新しいマクロの記録」で操作手順をマクロとして記録することができます
置換を行う手順をこの「新しいマクロの記録」でマクロとして記録することで繰り返し実行することが可能になります
Excelのヘルプなどを参考に試してみてください
ご回答いただきありがとうございます。
一度その方法を試みたのですが、実際には東京23区だけでなく関東一円の地域を変換しなければいけないので手間がかかりすぎて断念しました。
マクロを使う方法をご教授いただいていますのでそちらを試してみます。
また、わからないことがありましたらこちらにご相談させていただこうと思いますのでよろしくお願いいたします。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) VBAでエクセルをtxtに変換するとエクセルでカンマを含む文字数字がtxtでは「""」付にならないよ 1 2022/08/27 12:17
- Visual Basic(VBA) 特定の文字を簡単な操作で半角スペースに変換するか削除したい 2 2022/11/01 10:35
- フリーソフト フォルダ、ファイル名の一括変換について 3 2023/03/16 09:23
- Visual Basic(VBA) Excel VBA 教えてください。 VBA初心者です。 詳しい方がいましたら教えてください。 下記 3 2023/04/25 11:22
- Word(ワード) ワードで,特定の文字だけ,字体を一括変換する方法は? 1 2023/04/26 10:11
- Excel(エクセル) メモ帳からエクセルにセル区切りで表示させたいんです 7 2023/02/25 22:04
- Excel(エクセル) エクセル、画像ファイル名の書かれたセル(複数個所)に画像を一括で表示させる方法 1 2023/04/19 00:19
- Excel(エクセル) VBA 文字列変換と指定した列にある日時データから時間を削除する方法について 2 2022/04/14 15:23
- Excel(エクセル) フォルダ階層が深いファイルの拡張子の一括変換 2 2022/12/23 18:40
- Excel(エクセル) 【Excel】住所に郵便番号を付記する方法 3 2022/05/07 17:15
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
振込用紙の東京MTとは
-
転勤で札幌に住んで二年ですが...
-
○至急○方言について:「金魚が...
-
「より」と「から」の使い分け...
-
大阪の人は東京弁(標準語)に...
-
東日本の人は「ひっつく」とい...
-
「なんで」と「なにで」の使い分け
-
「○○県は○○市~」にある"は"とは?
-
職場の人に住んでる場所を細か...
-
特定の文字列があったらその行...
-
標準語の人ってほんとに語尾に...
-
東京で東京ジョーズのようなお店
-
東京のつゆはどうしてあんなに...
-
飾っていた御札が落ちてしまい...
-
「しっちゃかめっちゃか」と「...
-
未成年でも買える電マで最強な...
-
最近ここら辺という言葉が標準...
-
「坂」の発音
-
文章の中で「もしくは」「また...
-
紛失したiPhoneが戻ってきまし...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
転勤で札幌に住んで二年ですが...
-
振込用紙の東京MTとは
-
「なんで」と「なにで」の使い分け
-
最近ここら辺という言葉が標準...
-
「しっちゃかめっちゃか」と「...
-
出身地とは
-
♪カステラ一番,電話は二番♪,...
-
「より」と「から」の使い分け...
-
「○○県は○○市~」にある"は"とは?
-
飾っていた御札が落ちてしまい...
-
特定の文字列があったらその行...
-
3month と 3months ってどっち...
-
標準語の人ってほんとに語尾に...
-
東日本の人は「ひっつく」とい...
-
東京で東京ジョーズのようなお店
-
大阪の人は東京弁(標準語)に...
-
あなたの嫌いな東京弁は?
-
東京都の都庁所在地は新宿区?...
-
未成年でも買える電マで最強な...
-
紛失したiPhoneが戻ってきまし...
おすすめ情報