- ベストアンサー
※ ChatGPTを利用し、要約された質問です（原文：VBA 文字の置き換え）
VBA文字の置き換えによるセル内容の変更方法
このQ&Aのポイント
- VBAを使用してセルの文字を置き換える方法について質問があります。現在のコードでは、置き換えを行うと元々入力されていた文字が消えてしまいます。そこで、セルの一部の文字だけを置き換える方法を知りたいです。
- 具体的には、あいう完⇒えお完⇒かきく完という文字列をあいう完⇒えお完⇒かきく中に変更したいです。現在のコードでは、最後の置き換えで全体の文字列が消えてしまいます。
- 私は次のようなコードを使用しています。 Private Sub CommandButton4_Click() Dim txt As String Dim buf As String Dim buf2 As String txt = ActiveCell nStart = InStrRev(ActiveCell, '⇒') nLen = Len(ActiveCell.Text) - nStart buf = Replace(ActiveCell.Characters(Start:=nStart + 1, Length:=nLen).Text, '完', '中') ActiveCell = buf End Sub このコードを改良して、セルの一部の文字だけを置き換える方法を教えていただけますか？
- yyrd0421
- お礼率50% (86/170)
- Excel（エクセル）
- 回答数1
- ありがとう数2
- みんなの回答 （1）
- 専門家の回答
質問者が選んだベストアンサー
ActiveCell = buf を ActiveCell = ActiveCell.Characters(Start:=1, Length:=nStart).Text & buf にすればいいんじゃないのかなあ？
お礼
ありがとうございます。 このような書き方をするんですね。 また一つ勉強になりました。 ありがとうございました。