Blog Archive

About Me

A minha foto
JRod - PORTUGAL
Microsoft [MVP] - Excel (10º ano consecutivo)
Ver o meu perfil completo
Com tecnologia do Blogger.

Seguidores

Estatisticas

Free Blog Counter

eXTReMe Tracker
2004-10-30
Assumindo que os valores repetidos que queremos apagar na coluna A têm como referência o conteúdo da célula B1 (por ex. 100), pode criar-se uma macro ( atribuida a um botão de comando) que percorra o número de células da coluna A que pretendemos (por ex. da A1 à A100) e apague o conteúdo daquelas que possuam o valor 100:

Private Sub CommandButton1_Click()
Dim myRng As Range
Dim cell As Range
Dim inf As String

Set myRng = Range("A1:A100")

For Each cell in MyRng
If cell.Value = Range("B1") Then
cell.Value = ""
End If
Next
End Sub