[[20040217140300]]　『[株式会社××]の株式会社をなくしたい』（hisa）　ページの最後に飛ぶ

『[株式会社××]の株式会社をなくしたい』（hisa）

有限会社や株式会社を削除した状態で他のセルに表示させたいのですが、
いい方法ありませんか？

自動記録マクロだと以下の要領になるようですが。

Sub Macro1()'

    Columns("A:A").Select
    Selection.Copy
    Columns("D:D").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Selection.Replace What:="株式会社", Replacement:="", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False
    Selection.Replace What:="有限会社", Replacement:="", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False
    Columns("D:D").Select
    Selection.NumberFormatLocal = "@"
End Sub

(通りすがり)

 単に置き換えで検索を株式会社、置き換え後の文字列空欄とかじゃだめですか？(nana7)

 関数を使うのでしたら（アットホーム）
     A              B
 1 株式会社天昇	=SUBSTITUTE(SUBSTITUTE(A1,"株式会社",""),"有限会社","")

返事遅くなりました。

できましたどうもありがとうございます。(HISA)

 ↓に回答するつもりが間違ってこちらに書き込んでしましました。(間違って書き込んだ部分は削除済みです)

http://www.excel.studio-kazu.jp/kw/20141007222451.html
（カリーニン） 2014/10/08(水) 00:00

コメント返信：

[ 一覧(最新更新順) ]

[[20040217140300]] 『[株式会社××]の株式会社をなくしたい』（hisa） ページの最後に飛ぶ

[[20040217140300]]　『[株式会社××]の株式会社をなくしたい』（hisa）　ページの最後に飛ぶ