ここから本文です

マクロ初心者です。

lad********さん

2018/2/1316:00:24

マクロ初心者です。

下記のマクロですが、

Sub 指定文字一括削除()
Dim rng As Range, R As Range
With ActiveSheet
For Each rng In .Range("b3:D7").SpecialCells(xlCellTypeConstants)
Do
Set R = .Range("A8:AB505").Find(What:=rng.Value, LookAt:=xlPart)
If Not R Is Nothing Then
R.EntireRow.Delete
Else
Exit Do
End If
Loop
Next rng
End With
End Sub

Range("b3:D7").を別のシート「除外条件入力シート」というシートのb3:b100から参照したいのですがどのように変更すれば宜しいでしょうか?

御回答の程、宜しく御願い致します。

閲覧数:
43
回答数:
1

違反報告

ベストアンサーに選ばれた回答

msk********さん

2018/2/1317:56:45

こんな感じです。

For Each rng In .Range("b3:D7").SpecialCells(xlCellTypeConstants)

For Each Rng In Sheets("除外条件入力シート").Range _
("B3:B100").SpecialCells(xlCellTypeConstants)

この質問につけられたタグ

みんなで作る知恵袋 悩みや疑問、なんでも気軽にきいちゃおう!

Q&Aをキーワードで検索:

Yahoo! JAPANは、回答に記載された内容の信ぴょう性、正確性を保証しておりません。
お客様自身の責任と判断で、ご利用ください。
本文はここまでです このページの先頭へ

「追加する」ボタンを押してください。

閉じる

※知恵コレクションに追加された質問は選択されたID/ニックネームのMy知恵袋で確認できます。

不適切な投稿でないことを報告しました。

閉じる