Guru do Excel e Power BI

Boa tarde
Tenho essa macro que deleta um valor informado e preciso que faça o contrario: deletar valores não informado

Sub DelValor()
    Application.ScreenUpdating = False
    Dim Rng As Range, Cell As Range
    CIni = Range("J3").Column
   CFim = Range("J3").Column
   Set Rng = Range(Range("J3:J21"), Range("J" & Rows.Count).End(xlUp))
    For Each Cell In Rng
        If Cell <> Range("G1").Value Then
          Range(Cells(Cell.Row, CIni), Cells(Cell.Row, CFim)).ClearContents
        End If
    Next Cell
    Application.ScreenUpdating = True
End Sub

mucascosta, a macro tá fazendo o q a versão original faz: excluir em j3:j21, o valor informado em G1. O que preciso é que esse valor de g1 permaneça em j3:j21 e todos os demais valores sejam excluídos

mucascostas, queira desconsiderar a mensagem anterior. Falha minha aqui na execução da macro. Grato pela ajuda

Código: Selecionar todos

Sub DelValorV2()
 Dim r As Range
  For Each r In [J3:J21]
   If [r] <> [G1] Then r.Value = ""
  Next r
End Sub

Guru do Excel e Power BI

Deletar valores diferente do informado

Deletar valores diferente do informado

Re: Deletar valores diferente do informado

Re: Deletar valores diferente do informado

Re: Deletar valores diferente do informado

Re: Deletar valores diferente do informado