[[20210915170104]]　『範囲選択が上手くいきません』（レモ）　ページの最後に飛ぶ

『範囲選択が上手くいきません』（レモ）

はじめまして。宜しくお願い致します。

データ内にある特定の文字列を消去したいと考えています。
文字列"km"を""に置き換えることで対処したいと考えています。

コードは以下の通りです。
殆どソースコードから引用させていただいています。
(URLの提示が必要でしたらお教え頂ければ幸いです。)
そのままでは一番上しか更新できなかったので、
★マークの文を新たに追加しました。
今のところ、まだ一番上しか更新できていません。

'「標準」書式内の文字kmを削除します

    Dim rSelection  As Range    '// 選択セル範囲
    Dim r           As Range    '// １セル
    Dim sFind                   '// 検索文字列
    Dim sReplace                '// 置換文字列
    Dim f                       '// Formula値
    Dim v                       '// Value値

★ Range("Y4,Y59").Select

    sFind = "km"
    sReplace = ""

    Set rSelection = Selection

    '// 選択セル範囲を１セルずつループ
    For Each r In rSelection
        f = r.Formula
        v = r.Value

        '// セルが数式の場合
        If (Left(f, 1) = "=") And (f <> v) Then
            '// 数式を置換
            r.Formula = Replace(f, sFind, sReplace)
        '// セルが数式でない場合
        Else
            '// Value値を置換
            r.Value = Replace(v, sFind, sReplace)
        End If

    Next

初めてマクロを触っているのと、プログラミングの知識がないことで
不快に思われるような質問でしたら申し訳ありません。
ご教示いただけますと幸いです。
宜しくお願い致します。

＜使用 Excel：Excel2019、使用 OS：Windows10 ＞

申し訳ありません。自己解決しました。
Rangeの中の表記が間違っていて、正しくは(Y4:Y59)でした。
お騒がせ致しました。
（レモ） 2021/09/15(水) 17:26

コメント返信：

[ 一覧(最新更新順) ]

[[20210915170104]] 『範囲選択が上手くいきません』（レモ） ページの最後に飛ぶ

[[20210915170104]]　『範囲選択が上手くいきません』（レモ）　ページの最後に飛ぶ