Выделите ячейки с числовым значением

Question

Я просто хочу выделить ячейку с номером. Этот макрос также выделяет ячейку с текстом.

Sub high() 
    Dim ws As Worksheet 
    Dim yourrange As Range 

    Set ws = ActiveSheet 

    For Each yourrange In ws.Cells.SpecialCells(xlCellTypeConstants) 
     yourrange.Interior.Color = 65535 
    Next yourrange 
End Sub 

Answer 1

Есть два варианта для вас: с VBA и без WBA:

1) Использование VBA

без использования цикла, благодаря @Siddharth Бегство :)

Sub high() 
    Dim ws As Worksheet 
    Dim rng As Range 

    Set ws = ActiveSheet 

    On Error Resume Next 
    Set rng = ws.Cells.SpecialCells(xlCellTypeConstants, xlNumbers) 
    On Error GoTo 0 

    If Not rng Is Nothing Then rng.Interior.Color = 65535 
End Sub 

Использование петли:

Sub high() 
    Dim ws As Worksheet 
    Dim yourrange As Range 
    Dim rng As Range 

    Set ws = ActiveSheet 

    On Error Resume Next 
    Set rng = ws.Cells.SpecialCells(xlCellTypeConstants) 
    On Error GoTo 0 

    If Not rng Is Nothing Then 
     For Each yourrange In rng 
      If IsNumeric(yourrange) Then yourrange.Interior.Color = 65535 
     Next yourrange 
    End If 
End Sub 

2) Без VBA, (спасибо @pnuts):

Перейти к "Найти & Выбрать" меню пункт на ленте и выберите "GoTo Special ..":

выбрать "константы" и выберите только "Номера" и нажмите "OK".

Теперь первенствует выделены все номерные клетки:

Следующий шаг, чтобы заполнить их с желаемым цветом:

Done :)