Primeiramente eu filtro o conteúdo de uma coluna da tabela para obter tudo o que não contém /
.
ActiveSheet.Range("A1").AutoFilter Field:=3, Criteria1:="<>*/*"
Com esse resultado, gostaria de substituir o conteúdo das células pelo próprio conteúdo dela concatenado com a string /SUP
. Para isso uso o Selection.Replace
:
Selection.Replace What:="???", Replacement:="???/SUP", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Mas não está funcionando...
O resultado esperado seria:
cellCOM/ --- replace --- cellCOM/
cellSEM --- replace --- cellSEM/SUP
Como posso pegar o conteúdo da célula na hora de fazer essa substituição??
Teria uma forma diferente ou melhor de se fazer isso??
Selection
, na verdade é sempre bom evitar o uso deSelect
. Mas após o filtro você precisa utilizar as células visíveis para utilizar a funçãoreplace
Range.SpecialCells(xlCellTypeVisible)
), caso possua trata os dados, caso contrário sai da condicional ou fornece uma mensagem de aviso.