[[20150628142047]] 『指定したセルの内容を一度に消す方法ないですか』(みやちゃん) ページの最後に飛ぶ

[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]

 

『指定したセルの内容を一度に消す方法ないですか』(みやちゃん)

例えばですが Aの1から5 とCの1から5の入力した文字を どこかのセルをクリックすることによって 指定したA1から5 とC1から5の文字を一回で消す方法は無いでしょうか  

  A B C D
1 あ  い
2
3 い  う
4
5

< 使用 Excel:Excel2007、使用 OS:Windows7 >


 VBAになりますがシートモジュール(シートタブを右クリックしてコードの表示を選ぶ)に以下を貼り付け。
 シート上で、消したい文字が入ったセルをダブルクリック。

 Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Dim r As Range
    Set r = Range("A1:A5,C1:C5")
    If Intersect(Target, r) Is Nothing Then Exit Sub
    Cancel = True
    r.Replace Target.Value, Empty, xlWhole
 End Sub

(β) 2015/06/28(日) 15:07


コメント返信:

[ 一覧(最新更新順) ]


YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki. Modified by kazu.