![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?e8efa67)
表題のとおりですが、過去の質問では良い回答が
見当たりませんでした。
・やりたいこと
”A”->”001”
”B”->”002”
”C”->”003”
”D”->”004”
のようにテキストの置換候補があり(置換、置換対象のテキストは全角、半角さまざまです)、
それをExcelのワークシートに適用したいです。
やり方はどういうやり方でも良いです。ただ置換リストは追加、変更する必要があります。
VBAのreplaceを利用した置換マクロを作成すればよいのでしょうか。
当方、Word用の簡単なVBAマクロの作成経験はありますが、
Excelでは利用したことがありません。
ある程度具体的に御教授いただけると助かります。
よろしくお願いします。
No.1ベストアンサー
- 回答日時:
ExcelもWordと同じくマクロ記録を録る事ができますから、
実際に「置換」作業をやってみてください。
Sub Macro1()
'
' Macro1 Macro
' マクロ記録日 : 2012/7/9 ユーザー名 : end-u
'
'
Cells.Replace What:="A", Replacement:="'001", LookAt:=xlWhole, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Cells.Replace What:="B", Replacement:="'002", LookAt:=xlWhole, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
End Sub
こんな感じのが録れます。
[検索と置換]ダイアログの[オプション]で、必要に応じて
「セル内容が完全に同一..」などのオプションを設定して下さい。
構文の詳細は[Replaceメソッド]のヘルプを参照して下さい。
#置換後文字が 『0』から始まるなら"'001"のように先頭にプリフィックスをつけるのを忘れずに。
>ただ置換リストは追加、変更する必要があります。
この場合、作業用シートに「置換前」「置換後」の文字を入力して、それをLoop処理する、など考えられます。
例えば「Sheet1」のA1以降に「置換前」、B1以降に「置換後」の文字があるとすれば以下の感じ。
Sub test()
Dim i As Long
With Worksheets("Sheet1").Cells
For i = 1 To .Item(.Rows.Count, 1).End(xlUp).Row
MsgBox "What " & .Item(i, 1).Value & vbLf & _
"Replacement " & .Item(i, 2).Value
Next
End With
End Sub
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) Excel VBA 教えてください。 VBA初心者です。 詳しい方がいましたら教えてください。 下記 3 2023/04/25 11:22
- Visual Basic(VBA) 特定の文字を簡単な操作で半角スペースに変換するか削除したい 2 2022/11/01 10:35
- Visual Basic(VBA) EXCEL VBA 単語置き換え について質問です ブック名 ぶぶぶ シート名 ししし セル V3〜 3 2023/03/08 01:41
- その他(Microsoft Office) WordやExcelで英数字のみ半角または全角にしたい 6 2022/08/03 08:18
- Visual Basic(VBA) Excel VBA メール作成について 本文の中にExcel でコピーした図を上下に2つ 貼り付けを 2 2023/06/14 01:48
- Visual Basic(VBA) EXCEL VBAで教えてください。 1 2022/12/22 04:20
- Visual Basic(VBA) エクセルのマクロについて教えてください。 4 2023/07/03 09:11
- Excel(エクセル) Excelの複数置換はSUBSTITUTEを重ねるしかない? 9 2022/05/08 11:25
- Visual Basic(VBA) VBA 検索と入力 Excel ブック ぶぶぶ シート ししし 列V 検索対象の列です 最終行は、お 6 2023/05/17 01:40
- Visual Basic(VBA) エクセルのマクロについて教えてください。 7 2023/07/04 09:18
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
VBA 置換文字がみつからない時
-
複数のパワーポイントファイル...
-
csvデータ ダブルクォーテ...
-
ハングルを日本語に置換
-
スペースで区切られた氏名から...
-
C言語でテキストファイルの内容...
-
VBA(Excel)でファイル内の文字...
-
PerlでUTF-8のファイルの文字列...
-
EXCEL警告「置換対象のデータが...
-
フォントの色を保持したままセ...
-
【Excel VBA】文字列の置換作業...
-
秀丸のマクロのキー操作保存機...
-
ダブルコーテーション 、"を二...
-
【DreamWeaver】置換後に出てく...
-
秀丸マクロで列ごとに一括置換...
-
秀丸マクロで、あらかじめ選択...
-
VBAでの文字列置換
-
正規表現、置換について
-
Eclipse 改行後のタブ
-
PowerShellでテキストの空白行...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
VBA 置換文字がみつからない時
-
csvデータ ダブルクォーテ...
-
スペースで区切られた氏名から...
-
各項目がダブルクォーテーショ...
-
正規表現で、特定の文字列を含...
-
csvデータのダブルクォーテーシ...
-
C言語でテキストファイルの内容...
-
ハングルを日本語に置換
-
C#で空白行を削除する方法
-
xmlファイル内の文字列置換
-
Eclipse 改行後のタブ
-
PowerShellでテキストの空白行...
-
正規表現 特定の文字列を含む行...
-
○文字目に文字挿入
-
EXCEL警告「置換対象のデータが...
-
テキストファイル中の文字列の置換
-
秀丸マクロで、あらかじめ選択...
-
複数のパワーポイントファイル...
-
\\(円)記号を置換したい
-
秀丸で数字だけの行を削除したい
おすすめ情報