人力検索はてな
モバイル版を表示しています。PC版はこちら
i-mobile

指定列からデータを検索し、指定範囲のデータをクリアするマクロ

Sheet1のL列に指定した文字(XYZ)があった場合、該当行のA~I列のセルデータをクリアするマクロ作成をお願いいたします。お時間ある方アドバイスいただければ幸いです。

●質問者: tororosoba
●カテゴリ:コンピュータ
○ 状態 :終了
└ 回答数 : 1/1件

▽最新の回答へ

1 ● ardarim
●600ポイント ベストアンサー

簡単なものですが、こんな感じになります。

Sub ClearAtoI()

 Dim r As Long
 
 For r = 1 To ActiveSheet.Cells.SpecialCells(xlLastCell).Row
 If InStr(Cells(r, 12).Value, "XYZ") > 0 Then
 Range(Cells(r, 1), Cells(r, 9)).Clear
 End If
 Next r

End Sub

L列に文字が書かれたら自動的にマクロを作動させるようにすることもできます。
その場合は次のようなマクロになります。

Private Sub Worksheet_Change(ByVal Target As Range)

 Dim rng As Range
 Dim cl As Range

 Set rng = Application.Intersect(Target, Columns("L"))
 If Not rng Is Nothing Then
 For Each cl In rng
 If InStr(cl.Value, "XYZ") > 0 Then
 Range(Cells(cl.Row, 1), Cells(cl.Row, 9)).Clear
 End If
 Next cl
 End If
 Set rng = Nothing

End Sub

tororosobaさんのコメント
ardarimさん、 迅速なご回答ありがとうございました! 該当セルのデータがクリアされました。
関連質問

●質問をもっと探す●



0.人力検索はてなトップ
8.このページを友達に紹介
9.このページの先頭へ
対応機種一覧
お問い合わせ
ヘルプ/お知らせ
ログイン
無料ユーザー登録
はてなトップ