エクセルマクロFor Eachを1回で処理したい

質問

エクセル2013です。
以下のようなマクロを作成しました。
For Each が2回、回る為、処理時間が長いです。
For Each を１かいで済ませたくif文をandでつなげば
といろいろ試しましたが、うまくできません。
For Each を１回で済ませるにはどうすればいいでしょうか？
よろしくお願いします。

Sub 出荷済削除()

Dim 対象セル As Range
Dim 対象色 As Long
Dim 対象色2 As Long
Dim 最終行
Dim 最終列

最終列 = Cells(8, Columns.Count).End(xlToLeft).Column '8行目の最終列を取得
最終行 = Cells(Rows.Count, 1).End(xlUp).Row 'A列の最終行を取得

Application.ScreenUpdating = False '画面切替停止

対象色 = Range("B8").Interior.Color 'セルB8の色を基準色とする
For Each 対象セル In Range(Cells(10, 17), Cells(最終行, 最終列))
If 対象セル.Interior.Color = 対象色 Then 対象セル.ClearContents '基準色と同じ色のセルの値をクリアする
Next 対象セル

対象色2 = Range("A8").Interior.Color 'セルB8の色を基準色とする
For Each 対象セル In Range(Cells(10, 17), Cells(最終行, 最終列))
If 対象セル.Interior.Color = 対象色2 Then 対象セル.ClearContents '基準色と同じ色のセルの値をクリアする
Next 対象セル

Application.ScreenUpdating = True '画面切替停止解除

End Sub

回答No.1

keithin · ベストアンサー

Sub 出荷済削除()

Dim 対象セル As Range
Dim 対象色 As Long
Dim 対象色2 As Long
Dim 最終行
Dim 最終列

最終列 = Cells(8, Columns.Count).End(xlToLeft).Column '8行目の最終列を取得
最終行 = Cells(Rows.Count, 1).End(xlUp).Row 'A列の最終行を取得

Application.ScreenUpdating = False '画面切替停止

対象色 = Range("B8").Interior.Color 'セルB8の色を基準色とする
対象色2 = Range("A8").Interior.Color 'セルA8の色を基準色とする

For Each 対象セル In Range(Cells(10, 17), Cells(最終行, 最終列))
If 対象セル.Interior.Color = 対象色 or 対象セル.Interior.Color = 対象色2 Then 対象セル.ClearContents '基準色「1または2と同じ」色のセルの値をクリアする
Next 対象セル

Application.ScreenUpdating = True '画面切替停止解除

End Sub

お礼

申しあわけありません。
確かにorでした。
ありがとうございます。

回答No.3

K Kazz（@JazzCorp）

Option Explicit

Sub 出荷済削除()
Dim 対象セル As Range
Dim 対象色 As Long
Dim 対象色2 As Long
Dim 最終行 As Long
Dim 最終列 As Long
Application.ScreenUpdating = False '画面切替停止

'For Each 対象セル In Range(Cells(10, 17), Cells(最終行, 最終列))
' If 対象セル.Interior.Color = 対象色 Then
'対象セル.ClearContents '基準色と同じ色のセルの値をクリアする
'endif
'Next 対象セル

最終列 = Cells(8, Columns.Count).End(xlToLeft).Column '8行目の最終列を取得
最終行 = Cells(Rows.Count, 1).End(xlUp).Row 'A列の最終行を取得
対象色 = Range("B8").Interior.Color 'セルB8の色を基準色とする
対象色2 = Range("A8").Interior.Color 'セルB8の色を基準色とする
For Each 対象セル In Range(Cells(10, 17), Cells(最終行, 最終列))
Debug.Print 対象セル.Row, 対象セル.Column, 対象セル.Interior.Color, 対象色, 対象色2
If (対象セル.Interior.Color = 対象色) Or (対象セル.Interior.Color = 対象色2) Then
対象セル.ClearContents '基準色と同じ色のセルの値をクリアする
End If
Next 対象セル

Application.ScreenUpdating = True '画面切替停止解除
End Sub

お礼

If (対象セル.Interior.Color = 対象色) Or (対象セル.Interior.Color = 対象色2) Then
対象セル.ClearContents

前の方の回答では（　　）でくくられていませんが
それでも動作しました。
（　　）でくくる、くくらないが
いまいちわかっておりません。
ありがとうございました。

回答No.2

kkkkkm

and ではなくて　or ではないでしょうか。

対象色 = Range("B8").Interior.Color 'セルB8の色を基準色とする
対象色2 = Range("A8").Interior.Color 'セルB8の色を基準色とする

For Each 対象セル In Range(Cells(10, 17), Cells(最終行, 最終列))
If 対象セル.Interior.Color = 対象色 or 対象セル.Interior.Color = 対象色2 Then 対象セル.ClearContents '基準色と同じ色のセルの値をクリアする
Next 対象セル

お礼

申しあわけありません。
確かにorでした。
ありがとうございます。