добавить значение, если цикл не отображает значение в пределах диапазона

Question

Со следующим кодом я прохожу через диапазон около 200 ячеек [Диапазон («R» & i)], чтобы проверить значение Temp_Sheet.Range («B2») находится в пределах диапазона. Этот код ниже отлично работает.

Вот проблема: если цикл завершен и не находит значение в пределах диапазона, мне нужно значение B2 добавлено в следующую пустую строку. Как мне это сделать? Заранее спасибо за помощь. Могу ли я добавить форматирование в цикле, которое вызовет другую функцию sub/function, если значение не найдено?

For i = 6 To ColarLastRow 
     If ChangeSheet.Range("R" & i).Value = Temp_Sheet.Range("B2") Then 
     ChangeSheet.Range("G" & i) = Sum_Range 
     ChangeSheet.Range("G" & i).Interior.Color = RGB(0, 100, 0) 
     Else: End If 
Next i 

Answer 1

Похоже, уже есть некоторые хорошие ответы, но это то, что я придумал ....

Dim ChangeSheet As Worksheet 
Dim Temp_Sheet As Worksheet 
Dim ValueFound As Boolean 
Set ChangeSheet = Sheets("ChangeSheet") 
Set Temp_Sheet = Sheets("Temp_Sheet") 
ColarLastRow = ChangeSheet.Cells(Rows.Count, 18).End(xlUp).Row 
ValueFound = False 

For i = 6 To ColarLastRow 
     If ChangeSheet.Range("R" & i).Value = Temp_Sheet.Range("B2") Then 
     ChangeSheet.Range("G" & i) = Sum_Range 
     ChangeSheet.Range("G" & i).Interior.Color = RGB(0, 100, 0) 
     ValueFound = True 
     Else: End If 
Next i 

If ValueFound = False Then 
    ChangeSheet.Range("R" & ColarLastRow + 1).Value = Temp_Sheet.Range("B2").Value 
End If 

Answer 2

Вам нужно установить некоторый флаг внутри цикла:

Dim AddNew As Boolean 
AddNew = True 

For i = 6 To ColarLastRow 
     If ChangeSheet.Range("R" & i).Value = Temp_Sheet.Range("B2") Then 
     ChangeSheet.Range("G" & i) = Sum_Range 
     ChangeSheet.Range("G" & i).Interior.Color = RGB(0, 100, 0) 
     AddNew = False 
     Else: End If 
Next i 

If AddNew Then 
    'place your code here 
End If 

Answer 3

Dim counter as Integer 
counter = 0 
For i = 6 To ColarLastRow 
     If ChangeSheet.Range("R" & i).Value = Temp_Sheet.Range("B2") Then 
     ChangeSheet.Range("G" & i) = Sum_Range 
     ChangeSheet.Range("G" & i).Interior.Color = RGB(0, 100, 0) 
     Counter = counter + 1 
     Else: End If 
Next i 
If counter = 0 then 
ChangeSheet.Range("R" & ChangeSheet.Range("R" & ChangeSheet.Rows.Count).End(xlUp).Offset(1,0) = Temp_Sheet.Range("B2") 
End If 

Answer 4

dim Rng as Range 
Set rng = ChangeSheet.Range("R6:R" & ColarLastRow).Find _ 
       (What:=Temp_Sheet.Range("B2"), LookIn:=xlValues) 
'set LookIn:=xlValues, xlFormulas, as appropriate 
'set MatchCase:=True or False, as appropriate 
If Rng is Nothing then 
    ChangeSheet.Range("R" & ColarLastRow+1).Value = 'something 
    'set color here 
Else 
    ChangeSheet.Range("G" & rng.row) = Sum_Range 
End if 

Использование .find будет намного быстрее, чем циклически. Если вам нужно найти несколько вхождений, то после Set Rng = добавить следующее:

Set rng = ChangeSheet.Range("R6:R" & ColarLastRow).Find _ 
       (What:=Temp_Sheet.Range("B2"), LookIn:=xlValues) 
While Not Rng is Nothing 
    'do your stuff here 
    Set rng = ChangeSheet.Range("R" & Rng.Row & ":R" & ColarLastRow).Find _ 
       (What:=Temp_Sheet.Range("B2"), LookIn:=xlValues) 
Wend