Digamos que temos dados constantes na coluna D , como:
enósexecutamosestamacroVBA:
Subdural()DimrngAsRange,rAsRangeSetrng=Columns("D").Cells.SpecialCells(2)
For Each r In rng
r.Value = "D" & r.Value
Next r
End Sub
o resultado:
OusodeSpecialCells
evitaainclusãodo"D" nas células vazias.