Existe uma maneira de substituir o texto em uma coluna com base em um valor em outra coluna usando o VBA?

Tenho uma macro do excel e gostaria de substituir o texto em uma coluna com um espaço em branco, dependendo do valor em outra coluna.

Se eu quiser verificar o valor na coluna A, em cada linha no meu arquivo de excel, e se ele contém um determinado valor, em branco a coluna B, pode fazer isso no código VBA?

Obrigado por sua ajuda!

Resposta

ALT + F11, para ir para o editor de vb, clique com o botão direito no ícone do lado esquerdo e, em seguida, insira um módulo para a pasta de trabalho, clique em módulo e a área à direita em branco, adicione o código abaixo

Sub blankCellInB()

triggerValue = "blank" ' se célula na coluna a tem esta Word, em branco a célula b ao lado dele

range2chk = "A1:A1000" ' intervalo para verificar se existe o valor

Para cada cl no intervalo (range2chk)

Se LCase(cl) = triggerValue, em seguida, cl.Offset (0, 1).Valor = ""

Próximo

End Sub

Depois de adicionar o código, tudo que você precisa fazer é adicionar/alterar a linha de 1º e 2º do código, o valor que atente e intervalo para verificar o valor

ALT + F8, clique o nome blankCellInB, clique em botão de opção, definir um atalho, dizer ctrl + Shift + A, clique o botão ok, em seguida, ctrl + shift + A para ativar a macro.

Entre em contato para mais informação