|
▼超初心者 さん:
>
>> For Each セル In [A1:CZ1500]
> If セル.Interior.Pattern = 10 Then
>> If セル.Value Like "*OK*" Then
>> セル.ClearComments
>> セル.ClearContents
>> ElseIf セル.Value Like "*NG*" Then
>> セル.ClearComments
>> セル.ClearContents
>> ElseIf セル.Value Like "*保留*" Then
>> セル.ClearComments
>> セル.ClearContents
>> ElseIf セル.Value Like "*割愛*" Then
>> セル.ClearComments
>> セル.ClearContents
>> End If
> End If
>> Next
>
>こんな感じでいかがでしょう。
早速のアドバイスありがとうございます!
上記構文を取り入れて動作チェックしてみました。
エラーはでないのですが、
網掛けセルを含むすべての指定文字&コメントが削除されなくなりました><
これを元に試行錯誤してみます。
また、良い方法やアドバイスありましたらお願いいたします。
|
|