Como limpar todas as células que contiverem vírgula ?

Question

Preciso deixar em branco todas as células da coluna "O" que tiverem "," mas não consegui usar um Contains... Alguma dica ?

---

Tec. Virtual - Micro Computadores. Grandes Idéias!

Answer 1

Segue...

Sub Limpar()

Range("o:o").Select

Selection.Delete

End Sub

---

zinho

Answer 2

Sub limparVirgula()
Dim r As Range
For Each r In Range("O:O")
  If InStr(r.Value, 1, ",") Then
    r.Value = ""
  End If
Next
End Sub

---

Caio Vitullo

Answer 3

Selecione a Coluna O, depois Ctrl+L (localizar), em Lo calizar: digite *,* depois clique em Sub stituir e não digite nada em Su bstituir por:

Mais abaixo acione Substituir t udo