Este fórum está sendo desativado

[Angra]

Boa tarde
Nessa plan, preciso que a macro delete qualquer valor diferente de um numeral em um intervalo informado. grato

[osvaldomp]

Código: Selecionar todos

Sub LimpaCélulasNãoNuméricas()
 Dim c As Range
  For Each c In Range("F4:Y23")
   If Not IsNumeric(c.Value) Then c.Value = ""
  Next c
End Sub

[Angra]

Osvaldomp, gratíssimo pela solução. Simples e eficiente.