[[20190302180916]]　『特定の単語のセルだけを削除したい』（ブルー）　ページの最後に飛ぶ

『特定の単語のセルだけを削除したい』（ブルー）

いつもお世話になっております
たとえば
売上という単語があるセルを検索して　そのセルだけを削除して左方向にシフトしたいのですがどうマクロを書けばいいでしょうか
例
日付　売上　支店
を

日付　　支店にしたいです
よろしくおねがいします

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

 Sub test()
     Dim r As Range, x As Range, ff As String
     Set r = Cells.Find("売上", , , 2)
     If Not r Is Nothing Then
         Set x = r: ff = r.Address
         Do
             Set r = Cells.FindNext(r)
             Set x = Union(x, r)
         Loop Until r.Address = ff
     End If
     If Not x Is Nothing Then x.Delete xlShiftToLeft
 End Sub
（seiya） 2019/03/02(土) 18:38

ちなみにこれってすでにあるマクロの一部分に使う場合どう書いたらいいでしょうか
（ブルー） 2019/03/02(土) 21:39

 >あるマクロの一部分に使う場合
 一部がどういう意味なのか分からないので、答えは難しいけど、
 ふつうは、それを実行したい時点で呼び出すのでは？

 Sub Blah_Blah()
     'vba コード
     Call test  '<- test プロシージャを走らせる
     'vba コード
 End Sub

（seiya） 2019/03/02(土) 22:41

できましたがこれってたとえばb列だけを対象にとかってできますか
いろいろすいません
（ブルー） 2019/03/02(土) 23:07

 2ヶ所ある Cells.Find を Columns("b").Find に
 変更してください。
（seiya） 2019/03/03(日) 06:36

できましたありがとうございます
（ブルー） 2019/03/06(水) 20:00

コメント返信：

[ 一覧(最新更新順) ]

[[20190302180916]] 『特定の単語のセルだけを削除したい』（ブルー） ページの最後に飛ぶ

[[20190302180916]]　『特定の単語のセルだけを削除したい』（ブルー）　ページの最後に飛ぶ