[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]
『特定の文字がある場合文字の一定範囲を削除するマクロ』(noro)
いつもお世話になっています。
A列に音楽タイトルが100行くらいあって、タイトルによって末尾に「〜アニメ◎◎主題歌」のように書かれているものがあります。ファイル名にするため長くなるこの部分を一括して削除したいのですがそのマクロでのやり方を教えていただければありがたいです。
A列、「〜」のうしろに「アニメ」「ゲーム」「劇場」「映画」の文字が含まれている場合、「〜」からうしろの文字を削除
※〜がないもの、〜があってもキーワードがない場合は無視(A列のまま)
関数ならできるのですが、その式をつくる列を新たにつくる必要があるのと、A列を引用している関数式がたくさんあるためA列上で直したいです。
よろしくお願いします。
< 使用 Excel:Excel2013、使用 OS:Windows7 >
Like演算子 を調べてみてください。 (カリーニン) 2014/11/15(土) 10:33
〜アニメ* 〜劇場* 〜映画*
(マナ) 2014/11/15(土) 10:48
http://www.moug.net/tech/exvba/0050117.html
(マナ) 2014/11/15(土) 15:44
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
[ 一覧(最新更新順) ]
YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki.
Modified by kazu.