teratail header banner
teratail header banner
質問するログイン新規登録

質問をすることでしか得られない、回答やアドバイスがある。

15分調べてもわからないことは、質問しよう!

新規登録して質問してみよう
ただいま回答率
85.30%
VBA

VBAはオブジェクト指向プログラミング言語のひとつで、マクロを作成によりExcelなどのOffice業務を自動化することができます。

Q&A

解決済

1回答

1440閲覧

rangeで指定した範囲だけreplaceメソッドを使って置換したい

hee

総合スコア15

VBA

VBAはオブジェクト指向プログラミング言語のひとつで、マクロを作成によりExcelなどのOffice業務を自動化することができます。

0グッド

0クリップ

投稿2023/03/01 03:18

編集2023/03/01 05:30

0

0

実現したいこと

  • D列の値だけreplaceメソッドを使って文字列を置換したい

前提

現在vbaの勉強をしております。
そこでreplaceメソッドの挙動を試していたのですが問題に直面しました。

やろうとしていることはD列の2行〜10行の文字列を置換するというものです。
ですが次のコードを実行すると、指定したRangeを超えて全てのセルが適用範囲になってしまいます。
(なぜか"A1: D15"の範囲に適用されています)
これが本来のreplaceメソッドの挙動なのでしょうか?そもそも範囲指定という概念がないのでしょうか?

理由や解決策、もしくは代替案をご教授いただけると幸いです。

発生している問題・エラーメッセージ

該当のソースコード

Sub 文字列の置換() Range("D2: D10").Replace what:="A", replacement:="B" End Sub

試したこと

column("4").Replace what:="A", replacement:="B"

Range("D: D").Replace what:="A", replacement:="B"
のように書き方を変えたりしましたが、特に変化はありませんでした。

ー追加
Dim myRange As Range
Set myRange = Range("D2:D10")

myRange.Select 'この時点では想定通りの範囲が選択されている

myRange.Replace what:="B", replacement:="C" 'こうすると全範囲が対象になってしまう

補足情報(FW/ツールのバージョンなど)

気になる質問をクリップする

クリップした質問は、後からいつでもMYページで確認できます。

またクリップした質問に回答があった際、通知やメールを受け取ることができます。

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

otn

2023/03/01 04:57

コードに問題は無さそうなので、D列の2行〜10行をセル関数で参照しているとか?
guest

回答1

0

自己解決

確証は持てていないのですが、以下の手順で解決しました。
・対象のシートを開く
・ctrl+Fで「検索と置換」を開く
・置換の検索場所をシートに変更(これがなぜかブックになってました)
・マクロの実行

これで想定していた挙動を得ることができました。
似たような質問がteratailにすでにあったので参考になりました。ありがとうございます。
回答してくださった方もありがとうございました。

投稿2023/03/01 05:48

hee

総合スコア15

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

あなたの回答

tips

太字

斜体

打ち消し線

見出し

引用テキストの挿入

コードの挿入

リンクの挿入

リストの挿入

番号リストの挿入

表の挿入

水平線の挿入

プレビュー

15分調べてもわからないことは
teratailで質問しよう!

ただいまの回答率
85.30%

質問をまとめることで
思考を整理して素早く解決

テンプレート機能で
簡単に質問をまとめる

質問する

関連した質問