置換するリストのシートを作成し、同じブック内のリスト以外のシートに対して
全て置換を行いたいのですがうまくいきません。
現状ではリストのシートも含めて置換してしまいます。
同じような質問をいくつか見つけて修正して使用しようと思っているのですがうまくいかなくて
ギブアップしてます。
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 VBAで、置換した結果を別のセルに出力
Visual Basic(VBA)
-
-
4
エクセルで別シートから一括置換する方法
Excel(エクセル)
-
5
【Excel関数】特定の文字を別表のリストの文字に変換したい
Excel(エクセル)
-
6
エクセル:マクロ「Application.CutCopyMode = False」って?
Excel(エクセル)
-
7
名前をつけて保存した後、元のファイルに戻るには
その他(コンピューター・テクノロジー)
-
8
excelマクロ ボタンを押して文字を置換する方法
Excel(エクセル)
-
9
VBAを使って検索したセルをコピーして別の場所に貼り付ける。
Visual Basic(VBA)
-
10
別のシートから値を取得するとき
Visual Basic(VBA)
-
11
作ったマクロを複数のシートで実行できるようにしたい。
Excel(エクセル)
-
12
ExcelVBAを使って、値がある場合は作業を繰り返し実行するプログラムを作成したい。
Visual Basic(VBA)
-
13
エクセルVBA ブックを閉じる前に確認メッセージを表示したい
Excel(エクセル)
-
14
Excel マクロ:変数を複数使う場合
Excel(エクセル)
-
15
EXCEL VBA セルに既に入力されている文字に文字を追加する
Excel(エクセル)
-
16
ExcelのVBAのマクロで他のシートの複数項目をクリアする方法
Visual Basic(VBA)
-
17
メッセージボックスのOKボタンをVBAでクリックさせたい
Visual Basic(VBA)
-
18
EXCEL VBA 文中の書式ごと複写するには
Visual Basic(VBA)
-
19
EXCELのVBAでRange(A1:C4")を変数にする方法を教え"
Visual Basic(VBA)
-
20
Exel VBA 別ブックから該当データを検索し、必要なデータを取得する方法について
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルで文字の入力がセルの...
-
多数の計算セルに一括で同一の...
-
【エクセル】ピボットテーブル...
-
エクセルでセル内の一部分だけ...
-
Excelのmatch関数エラー原因が...
-
Excelからテキストへのコ...
-
Excelの空文字セルの削除方法を...
-
Excelの入力済みセルに一括で、...
-
エクセルのセルの中の,よりも前...
-
excelで可視セルのみ置換
-
Excelで、半角スペースをTABに...
-
置換機能を使わずに先頭に「'」...
-
企業名簿で(株)や(有)を無視し...
-
Excelのアポストロフィーの削除
-
Excelで特定の文字の前だけに空...
-
エクセル マクロで転記したら...
-
別シートのリストから置換する方法
-
エクセルでセルを文字列設定し...
-
EXCELで"Tab"を"@"に置換したい
-
VBAでの日付の置換方法を教えて...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
多数の計算セルに一括で同一の...
-
エクセルで文字の入力がセルの...
-
エクセルのセルの中の,よりも前...
-
Excelからテキストへのコ...
-
excelで可視セルのみ置換
-
Excelの入力済みセルに一括で、...
-
Excelのmatch関数エラー原因が...
-
Excelで、半角スペースをTABに...
-
Excelの空文字セルの削除方法を...
-
【エクセル】ピボットテーブル...
-
置換機能を使わずに先頭に「'」...
-
企業名簿で(株)や(有)を無視し...
-
小数点を消す方法
-
エクセルの表ををメモ帳などに...
-
エクセルでセル内の一部分だけ...
-
Excelのシートにある1行...
-
エクセルでセル内の一部を一括...
-
Excelで特定の文字の前だけに空...
-
エクセルの関数で、記号などを...
-
別シートのリストから置換する方法
おすすめ情報