置換するリストのシートを作成し、同じブック内のリスト以外のシートに対して
全て置換を行いたいのですがうまくいきません。
現状ではリストのシートも含めて置換してしまいます。
同じような質問をいくつか見つけて修正して使用しようと思っているのですがうまくいかなくて
ギブアップしてます。
https://oshiete.goo.ne.jp/qa/5445568.html
最終的にボタンを押したらリストにある内容で全てのシートに置換をかけたいのです。
よろしくお願いします。
No.1ベストアンサー
- 回答日時:
こんばんは!
↓の画像のような配置で、置換表を作成しておくとします。
尚、↓の画像のシート名は「リスト」とします。
標準モジュールです。
Sub Sample1()
Dim i As Long, k As Long, wS As Worksheet
With Worksheets("リスト")
For k = 1 To Worksheets.Count
If Worksheets(k).Name <> .Name Then
Set wS = Worksheets(k)
For i = 2 To .Cells(Rows.Count, "A").End(xlUp).Row
wS.Cells.Replace what:=.Cells(i, "A"), replacement:=.Cells(i, "B"), lookat:=xlPart
Next i
End If
Next k
End With
MsgBox "完了"
End Sub
>最終的にボタンを押したら・・・
とありますので、「リスト」シート上にコマンドボタンを配置するのであれば
コマンドボタンのコードを↓にしてください。
(標準モジュールはそのままにしておきます)
Private Sub CommandButton1_Click()
Call Sample1
End Sub
※ セル内部分置換としています。
セル全体が対象の場合は
>・・・lookat:=xlPart
を
>・・・lookat:=xlWhole
に変更してください。
こんな感じではどうでしょうか?m(_ _)m
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) EXCEL VBA 単語置き換え について質問です ブック名 ぶぶぶ シート名 ししし セル V3〜 3 2023/03/08 01:41
- Visual Basic(VBA) VBA 検索と入力 Excel ブック ぶぶぶ シート ししし 列V 検索対象の列です 最終行は、お 6 2023/05/17 01:40
- Excel(エクセル) 前の(左隣の)シートを連続参照するように、あとから変更したい 1 2023/02/22 00:51
- Visual Basic(VBA) 【ExcelVBA】動的にボタン、ボタン名を生成できますか? 7 2022/04/08 12:54
- Excel(エクセル) エクセルVLOOK関数について 3 2022/07/05 08:45
- Excel(エクセル) エクセルVBA Msgboxでの変数の活用 4 2023/07/23 08:33
- その他(パソコン・スマホ・電化製品) エクセル初心者です。 仕事でエクセルを使っていて、普段は素人でもできる簡単な関数を使ったことがある程 1 2022/05/25 11:17
- Excel(エクセル) EXCEL マクロで 同じフォルダ内の複数ファイルの複数行全体を選択して1つのファイルに集約 4 2022/09/27 18:41
- Excel(エクセル) VBA ふたつの同じ様式シートのセルをコピーしたい 2 2023/03/08 15:28
- Visual Basic(VBA) ワイルドカード「*」を使うとうまくいかないマクロの添削をお願いします 3 2022/03/26 09:39
このQ&Aを見た人はこんなQ&Aも見ています
-
性格の違いは生まれた順番で決まる?長男長女・中間子・末っ子・一人っ子の性格の傾向
同じ環境で生まれ育っても、生まれ順で性格は違うものなのだろうか。家庭教育研究家の田宮由美さんに教えてもらった。
-
エクセルで置換リストを別ブックにおいたマクロを作りたい
Excel(エクセル)
-
Excel:シート間参照し置換したい
Word(ワード)
-
エクセルで別シートから一括置換する方法
Excel(エクセル)
-
-
4
エクセル:マクロ「Application.CutCopyMode = False」って?
Excel(エクセル)
-
5
EXCEL VBA セルに既に入力されている文字に文字を追加する
Excel(エクセル)
-
6
excel VBAで、置換した結果を別のセルに出力
Visual Basic(VBA)
-
7
excelマクロ ボタンを押して文字を置換する方法
Excel(エクセル)
-
8
メッセージボックスのOKボタンをVBAでクリックさせたい
Visual Basic(VBA)
-
9
名前をつけて保存した後、元のファイルに戻るには
その他(コンピューター・テクノロジー)
-
10
Rangeメソッドは失敗しました。globalオブジェクトについて
Excel(エクセル)
-
11
作ったマクロを複数のシートで実行できるようにしたい。
Excel(エクセル)
-
12
別のシートから値を取得するとき
Visual Basic(VBA)
-
13
ExcelのVBAのマクロで他のシートの複数項目をクリアする方法
Visual Basic(VBA)
-
14
ExcelVBAを使って、値がある場合は作業を繰り返し実行するプログラムを作成したい。
Visual Basic(VBA)
-
15
EXCEL VBA 文中の書式ごと複写するには
Visual Basic(VBA)
-
16
Exel VBA 別ブックから該当データを検索し、必要なデータを取得する方法について
Visual Basic(VBA)
-
17
Excel マクロ:変数を複数使う場合
Excel(エクセル)
-
18
Excel にて条件付き書式の色にさらに上塗りをしたいです。
Excel(エクセル)
-
19
マクロ 特定のセル値のみクリアする
Visual Basic(VBA)
-
20
エクセル マクロ 特定の日付"以降を削除"
セキュリティソフト
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
多数の計算セルに一括で同一の...
-
エクセルで文字の入力がセルの...
-
エクセルのセルの中の,よりも前...
-
Excelの入力済みセルに一括で、...
-
Excelのmatch関数エラー原因が...
-
VBAでの日付の置換方法を教えて...
-
Excelの空文字セルの削除方法を...
-
Excel "~区"のみを削除したい
-
エクセルでセルを文字列設定し...
-
企業名簿で(株)や(有)を無視し...
-
エクセルの表ををメモ帳などに...
-
【エクセル】ピボットテーブル...
-
Excelからテキストへのコ...
-
別シートのリストから置換する方法
-
excelで可視セルのみ置換
-
エクセルの複数同時置換
-
エクセルのオートフィルタ
-
エクセルでスペースの記号を表...
-
エクセルの数字だけを削除したい
-
Excel 指定した範囲内に、特定...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
多数の計算セルに一括で同一の...
-
エクセルで文字の入力がセルの...
-
Excelのmatch関数エラー原因が...
-
Excelからテキストへのコ...
-
エクセルのセルの中の,よりも前...
-
excelで可視セルのみ置換
-
Excelの空文字セルの削除方法を...
-
置換機能を使わずに先頭に「'」...
-
Excelの入力済みセルに一括で、...
-
小数点を消す方法
-
Excelのシートにある1行...
-
エクセルでセル内の一部を一括...
-
【エクセル】ピボットテーブル...
-
エクセルの表ををメモ帳などに...
-
エクセルでセル内の一部分だけ...
-
Excelで電話番号などの-(ハイ...
-
Excelで、半角スペースをTABに...
-
一括でダブルクリックした状態...
-
エクセルの関数で、記号などを...
-
Excelのアポストロフィーの削除
おすすめ情報