Ir ao conteúdo
  • Cadastre-se

Ajuda em MACRO no excel... Não ta saindo o script...


Posts recomendados

Fala galera.

To com uma dúvida sobre os scripts do excel...

Eu tenho uma macro que apaga todas as celulas que estão repetidas no documento.

 
Sub Repetidos()
Dim nIni As Integer
nIni = 1
For i = nIni To Plan1.UsedRange.Rows.Count
For j = i + 1 To Plan1.UsedRange.Rows.Count
If Range("A" & i).Value = Range("A" & j).Value Then
Rows(j).ClearContents
End If
Next
Next
End Sub

Ela funciona que é uma beleza, so que eu precisava também de uma macro que apagasse da coluna "A" tudo que tivesse escrito na coluna "B"

Alguém conhece como fazer este script???

Link para o post
Compartilhar em outros sites
  • 3 semanas depois...

Sub Apagar()

For I = 4 To 1000

If Cells(I, 1) = "" Then Exit For

On Error Resume Next

X = Application.WorksheetFunction.Match(Cells(I, 1), Range("B4:B1000"), 1)

If X = "" Then GoTo Fim:

X = X + 3

Cells(X, 2).Select

Selection.Delete Shift:=xlUp

X = ""

Fim:

Next I

End Sub

I=4 - coloquei as informaçoes começando na linha 4

Application.worksheetFunction.Match - acha o valor correspondente da celula da coluna a na coluna b

X=X+3 - como coloquei na coluna 4 tenho que somar mais três para chegar a linha correta

Link para o post
Compartilhar em outros sites

Crie uma conta ou entre para comentar

Você precisa ser um usuário para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar agora

Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas comunidades sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×
×
  • Criar novo...

Aprenda a ler resistores e capacitores

EBOOK GRÁTIS!

CLIQUE AQUI E BAIXE AGORA MESMO!