いつもお世話になります。
OSは、Win10 エクセルは。2016 です。
指定の文字を置き換えるだけなら下記の構文でいいのですが、
何かの不都合で元に戻したい必要性があります。
この場合どのように下記の構文を変更すればいいかご指導いただけませんか。
宜しくお願いいたします。
参考
Sub 置換()
Range("J13:AN32").Select
With Selection
.Replace What:="n", Replacement:="日", LookAt:=xlWhole
.Replace What:="h", Replacement:="早"
.Replace What:="o", Replacement:="遅"
.Replace What:="y", Replacement:="夜"
.Replace What:="k", Replacement:="公"
.Replace What:="u", Replacement:="有"
.Replace What:="p", Replacement:="パ"
.Replace What:="q", Replacement:="休"
.Replace What:="s", Replacement:="宿"
.Replace What:="t", Replacement:="退"
.Replace What:="a", Replacement:=""
Range("A3").Select
End With
End Sub
No.1ベストアンサー
- 回答日時:
こんにちは
変換がxlWholeなので、ある程度は可逆と言えそうですが、最後の「a→""」だけはなんとも言えないですね。
これを無視しても良ければ、使用なさっている条件によっては(例えば)「n→日」を「日→n」ような逆変換をしてあげれば可能になるかも知れません。
とは言え、上記の処理は完全ではありません。
元データが「n」、「日」の場合、変換すると両方とも「日」の結果になりますが、上記の逆変換では「日」は必ず「n」になってしまうからです。
そのような場合でも、確実に元に戻したいのであれば、変更前のJ13:AN32のセル値をそのままどこかに記録しておくのが一番です。
記録用のシート(非表示など)を作成しておいて、(例えば)30行ずつ順に記録して行っても良いですし、同じシートの最終列近辺を(非表示にして)利用するのでも良いかも知れません。
元に戻す際には、『記録の最終版をコピペして、最後の記録範囲を削除する』といった処理を行えば宜しいかと。
早速のご指導を有難うございます。
補足欄にも記入しましたが、
ご指摘の、
最後の「a→""」 作成時の苦労を思いだしました。
何故かと申し上げますと あるセルの値を修正したい時、 a を入力してコマンドボタンを押せば
空白になり再度新しい値を入れれば修正することができます。
私なりのやり方かもです。
ご迷惑かけました。
このことにきずかずかなりの時間を費やしました。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・【お題】絵本のタイトル
- ・【大喜利】世界最古のコンビニについて知ってる事を教えてください【投稿~10/10(木)】
- ・メモのコツを教えてください!
- ・CDの保有枚数を教えてください
- ・ホテルを選ぶとき、これだけは譲れない条件TOP3は?
- ・家・車以外で、人生で一番奮発した買い物
- ・人生最悪の忘れ物
- ・【コナン30周年】嘘でしょ!?と思った○○周年を教えて【ハルヒ20周年】
- ・ハマっている「お菓子」を教えて!
- ・最近、いつ泣きましたか?
- ・夏が終わったと感じる瞬間って、どんな時?
- ・10秒目をつむったら…
- ・人生のプチ美学を教えてください!!
- ・あなたの習慣について教えてください!!
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・都道府県穴埋めゲーム
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
緯度、経度の 10進法と 60進法...
-
家電製品の電力周波数を変える機械
-
3のつく数字と3の倍数のみを表...
-
C/C++→JAVAに変換するツール
-
c++でmatからvectorへの変換の...
-
Mac 乗数の入力方法
-
画像ファイル変換(Tiff→PDF)
-
C++からCへのソース変換について
-
エクセルのvbaで検索ボタンを作る
-
16進数を10進数文字列に変換する
-
C#でのpngからbmpへの変換について
-
はしごの高をマックで表示する...
-
色の変換
-
文字コードの変換プログラム
-
ASP.NET変換後のHTMLを見る方法
-
VC++2005で、CString型に16進...
-
MATLAB/simulinkでのD/A変換の仕方
-
マンセル⇔XYZ,RGB変換式或いは...
-
vb.netの型変換について
-
php
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
緯度、経度の 10進法と 60進法...
-
家電製品の電力周波数を変える機械
-
Mac 乗数の入力方法
-
分を時間に変換するプログラム
-
C++からCへのソース変換について
-
3のつく数字と3の倍数のみを表...
-
PHPで、日本語からアルファベッ...
-
なぜ通信には16進数文字列が使...
-
【EXCEL】カナ、ひらがなを英字...
-
エクセルVBAの自動変換機能?
-
VB6からVB2010への変換について
-
C/C++→JAVAに変換するツール
-
StrConvの使い方について教えて...
-
c++でmatからvectorへの変換の...
-
VB6で10進数を32進数に変換する...
-
10進数をBCDに変換する方法
-
UTF8→ShiftJISに変換したいです!
-
C#でのpngからbmpへの変換について
-
VB.NETをJavaに変換するツール...
-
マンセル⇔XYZ,RGB変換式或いは...
おすすめ情報
元にもどすとは
Range("J13:AN32").Select に
入力された文字すべてが対象です。
この場合空白セルもありますが。
例えば
早 となっていたら h にです。
早速のご指導を有難うございます。
ご指摘の、
最後の「a→""」 作成時の苦労を思いだしました。
何故かと申し上げますと あるセルの値を修正したい時、 a を入力してコマンドボタンを押せば
空白になり再度新しい値を入れれば修正することができます。
私なりのやり方かもです。
ご迷惑かけました。
このことにきずかずかなりの時間を費やしました。