ネットが遅くてイライラしてない!?

VBAで下記実現可能であればどうやればいいかご教授願います

データ1
  A           B
1 払い戻し手数料佐藤さん 500円
2 払い戻し手数料田中さん 1000円
3 払い戻し手数料中尾さん 2000円

↓実行結果
  A       B
1 払い戻し手数料 500円
2 払い戻し手数料 1000円
3 払い戻し手数料 2000円


◆条件
A列に【払い戻し手数料】が含むセルをすべて
払い戻し手数料に置き換える。
※部分一致で検索をかけ、セル自体を【払い戻し手数料】として上書きで置換する

A 回答 (6件)

No.5です。



投稿後気づきました。
前回のコードでもなんとか動くと思いますが、厳密に言うとセル内全ての置換になりますので、

>lookat:=xlPart

>lookat:=xlWhole

とするのが正解ですね。

どうも失礼しました。m(_ _)m
    • good
    • 0

こんにちは!



セル内に「払戻手数料」という文字列が含まれているセルだけすべてを
「払戻手数料」にすればよい!というコトですかね?

Sub Sample1()
 Range("A:A").Replace what:="*払い戻し手数料*", replacement:="払い戻し手数料", lookat:=xlPart
End Sub

こんな感じではどうでしょうか?m(_ _)m
    • good
    • 1

Sub megu()



Dim r As Range

For Each r In Range("A1", Cells(Rows.Count, "A").End(xlUp))

If InStr(r.Value, "払い戻し手数料") > 0 Then r.Value = "払い戻し手数料"

Next

End Sub

これだけでいいの?
    • good
    • 0

オートフィルタで”払い戻し手数料”で絞り込みかけて、


一括で”払い戻し手数料”でコピペすればいいと思います。
    • good
    • 0
この回答へのお礼

ありがとうございます。できたらボタンひとつで実行させたいのですが・・・。

お礼日時:2020/08/20 13:50

全部「払い戻し手数料」にすれば良いだけ。


それとも未だなんか条件があるの?  「払い戻し手数料」を検索出来たら「払い戻し手数料」にしても良いし。
小学生でもできるプログラム。
    • good
    • 0
この回答へのお礼

説明不足で申し訳ありません。A列にはその他の項目もあるため例えばA列には以下のようなものもあります
A列
テレビ21型
ノートパソコン
テレビ24型

数あるA列の項目の中から払い戻し手数料の部分一致に該当するセルを検索して
払戻手数料に置換して項目をそろえたいと思いご相談させていただいております。

お礼日時:2020/08/20 13:30

LEFTで7個取るだけ

    • good
    • 0
この回答へのお礼

ありがとうございます!ただA1が【佐藤さん払い戻し手数料】や【佐々木さん払い戻し手数料】など文字順では特定できないケースがあるのですが
そうなるとどうしたらいいでしょうか?できれば部分一致で検索かけたいです。

お礼日時:2020/08/20 13:05

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!

このQ&Aを見た人はこんなQ&Aも見ています


このQ&Aを見た人がよく見るQ&A

人気Q&Aランキング