Blog Archive
-
▼
2004
(73)
-
▼
dezembro
(33)
- HAPPY NEW YEAR!!!!
- VBE: Exemplo de código - Receita Líquida versus Re...
- Fórmula com utilização de Array
- Formatar uma célula como fracção
- Formatar texto numa célula
- Este Blog EXCELer mencionado noutros Blogs
- Natal 2004
- VBE: Utilização da Função Transpose() com Arrays
- VBE: Apagar só Valores
- Encontrar e Apagar valores duplicados
- Excel: A Função SUM()
- Excel: Fórmula que utiliza várias Funções
- VBE: Exemplo de apresentação de um link
- Encontrar valores duplicados em células
- Excel: Shortcuts (IV)
- Excel: Shortcuts (III)
- Excel: Shortcuts (II)
- Excel: Shortcuts (I)
- Exemplo de Função definida pelo Utilizador II
- VBE: Exemplo de Função definida pelo Utilizador
- VBE: Função para conversão de numeração decimal pa...
- VBE: Limitar o comprimento de uma String
- VBE: Utilização de formulário para ver valores neg...
- VBE: Utilização da Função de Folha de Cálculo SUM()
- VBE: Decrementar programaticamente
- VBE: Utilização do método ONTIME e das Funções NOW...
- Quantos dias tem o mês (II)
- Formatação de Números (Imagem)
- VBE: Formatação de Números (Código)
- Exemplo da Função CONTAR.VAZIO()
- Fórmula com o operador aritmético de percentagem "%"
- VBE: A Função Array()
- VBE:Exemplo de macro que utiliza o indicador RANDO...
-
▼
dezembro
(33)
About Me
Com tecnologia do Blogger.
Seguidores
Estatisticas
2004-12-19
6:59 da tarde | 
Publicada por
JRod - PORTUGAL
Em 16 deste mês, coloquei um post onde mostrei um exemplo
de uma fórmula para detectar valores duplicados em células.
Apresento agora um procedimento em VBE que apaga as linhas
onde se encontram os valores duplicados:
Sub RemoveDuplicates()
Worksheets("Sheet1").Range("A2").Sort key1:=Worksheets("Sheet1").Range("A1")
Set currentCell = Worksheets("Sheet1").Range("A1")
Do While Not IsEmpty(currentCell)
Set nextCell = currentCell.Offset(1, 0)
If nextCell.Value = currentCell.Value Then
currentCell.EntireRow.Delete
End If
Set currentCell = nextCell
Loop
End Sub
