[[20141115100137]]　『特定の文字がある場合文字の一定範囲を削除するマ』（noro）　ページの最後に飛ぶ

『特定の文字がある場合文字の一定範囲を削除するマクロ』（noro）

いつもお世話になっています。
A列に音楽タイトルが100行くらいあって、タイトルによって末尾に「～アニメ◎◎主題歌」のように書かれているものがあります。ファイル名にするため長くなるこの部分を一括して削除したいのですがそのマクロでのやり方を教えていただければありがたいです。

A列、「～」のうしろに「アニメ」「ゲーム」「劇場」「映画」の文字が含まれている場合、「～」からうしろの文字を削除
※～がないもの、～があってもキーワードがない場合は無視（A列のまま）

関数ならできるのですが、その式をつくる列を新たにつくる必要があるのと、Ａ列を引用している関数式がたくさんあるためＡ列上で直したいです。

よろしくお願いします。

＜使用 Excel：Excel2013、使用 OS：Windows7 ＞

 Like演算子
 を調べてみてください。
（カリーニン） 2014/11/15(土) 10:33

マクロでなくてごめんなさい。３回の置換操作がお手軽では？

 ～アニメ*
 ～劇場*
 ～映画*

（マナ） 2014/11/15(土) 10:48

マナさんありがとうございます。
フィルがたくさんあって処理しなくてはならないので置換だとけっこうめんどうなんです。
（noro） 2014/11/15(土) 15:21

マクロの記録とれば、ヒントが得られると思うのですが。

http://www.moug.net/tech/exvba/0050117.html

（マナ） 2014/11/15(土) 15:44

マナさんのいわれるとおりに自動記録で作成した次のマクロでなんとかうまくゆきました。
ありがとうございました。
Sub Macro1()

    Range("A1").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Replace What:="～アニメ*", Replacement:="", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
       Selection.Replace What:="～劇場*", Replacement:="", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
       Selection.Replace What:="～TV*", Replacement:="", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
       Selection.Replace What:="～映画*", Replacement:="", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
End Sub

（noro） 2014/11/15(土) 19:49

上で引用したサイトを参考に、記録マクロを修正すると

 Sub Macro2()
    With Columns("A")
       .Replace What:="～アニメ*", Replacement:="", LookAt:=xlPart, MatchCase:=False
       .Replace What:="～劇場*", Replacement:=""
       .Replace What:="～TV*", Replacement:=""
       .Replace What:="～映画*", Replacement:=""
    End With
 End Sub

（マナ） 2014/11/15(土) 20:08

ありがとうございました。
（noro） 2014/11/22(土) 15:12

コメント返信：

[ 一覧(最新更新順) ]

[[20141115100137]] 『特定の文字がある場合文字の一定範囲を削除するマ』（noro） ページの最後に飛ぶ

[[20141115100137]]　『特定の文字がある場合文字の一定範囲を削除するマ』（noro）　ページの最後に飛ぶ