Macro do Excel para encontrar células que contenham "

Question

Sou relativamente novo na programação Excel VBA e estou tendo problemas para gerar uma macro. Meus dados são mais ou menos assim. Na coluna A intitulada "N", tenho contagens decrescentes em várias linhas. Se uma contagem estiver entre 1 e 6, tenho o valor "<6" nessa célula. Caso contrário, a contagem será mostrada. Na coluna B intitulada "%" tenho a porcentagem dessa linha em relação ao total. Este padrão se repete um número variável de vezes até o final da tabela.

O que espero conseguir é que cada vez que o valor "<6" for encontrado, altere o valor na célula diretamente à direita para "S" (indicando que a porcentagem foi suprimida).

Answer 1

Aqui está o pedaço de código que você precisa. Você deve tentar integrá-lo a qualquer código que tenha por conta própria.

Dim rng As Range, cell As Range
Set rng = Intersect(Range("A:A"), UsedRange)
If rng Is Nothing Then Exit Sub
For Each cell In rng.Cells
    If cell.Value = "<6" Then cell.Offset(0, 1).Value = "S"
Next