VBA: как выделить, когда содержит текст

Question

Я получаю следующую ошибку

Ошибка времени выполнения «13»:

Несоответствие типов

с кодом ниже. Помогите пожалуйста.

Sub test()
   ' With Range("A1:C10")
       ' .Value = ""true""
    ' End With
    If Range("h1:h10").Value = "TRUE" Then
       Cells("h, 1").Interior.Color = vbRed    
   End If
End Sub

Answer 1

Если вы хотите проверить, содержит ли весь диапазон хотя бы одну ячейку с текстом, то вы можете использовать:

   if WorksheetFunction.CountA(Range("h1:h10")) = 0  then   
       Cells("h, 1").Interior.Color = vbRed   
   End If

Но если вы хотите проверить каждую ячейку и раскрасить ее, если в ней есть текст, вы можете выполнить цикл по диапазону следующим образом:

For i = 1 To 10
    With Cells(i, 1)
        If .Value <> "" Then .Interior.Color = vbRed
    End With
Next i