Mesmo assim 6 abas para fazer uma de cada vez...

E tao ruim???

Escrever uma macro pra isso vai demorar mais que o tempo de processamento do proprio excel

Bom dia gpclouro,

Esses valores repetidos estarão em uma coluna específica ou em qualquer lugar da planilha?
A remoção é da linha inteira ou somente da célula?
Caso seja da célula, ela deve ser deslocado para cima ou para a esquerda?
Caso tenha valor duplicado, qual vai ser o critério de prioridade? Qual deve permanecer e qual deve ser removido?

Qualquer coisa da o grito,
Abraço

Fala Bernardo, bom dia!
Seguinte, tenho uma planilha com 3 colunas:
código do produto, descrição do produto e código fiscal do produto. A origem foi um arquivo txt com 4 milhoes de linhas. Eu tenho uma macro que ao transportar para o excel, ele divide o arquivo em abas, pelo fato de ser tão extenso.
Ocorre que, preciso queria ter apenas uma linha para cada combinação de produto, ou seja: código do produto, descrição do produto e código fiscal do produto.
Existem vários casos em que essas informações se repetem em diversas linhas.
Estas informações estão nas três primeiras colunas, dividido em 6 abas da planilha.
A remoção será da linha inteira, deslocando para cima.
O critério de prioridade pode ser a remoção do primeiro valor repetido encontrado, assim sucessivamente!

Desde já agradeço pela atenção!
E, precisando de mais informações é só falar!!

Abração,

gpclouro, resumindo essa "combinação", apenas com a identificação do código do produto, caso seja localizado novamente já pode fazer a remoção ou existe a possibilidade de nesse arquivo ter o código repetido e as outras colunas terem informações diferentes?

Somente existem essas planilhas na pasta de trabalho ou existe alguma outra?
O nome dessas planilhas são fixos? Serão sempre 4?

Existe a possibilidade de ter o código de produto com informações diferentes nas outras colunas, por isso a necessidade de analisar as três informações.
Existe apenas estas planilhas na pasta de trabalho, e são 6 abas...

blz...

Cara... agarrei no serviço aqui de manhã...
Quando voltar do almoço eu começo a elaborar o código e se surgir alguma dúvida eu apareço aqui.

Qualquer coisa da o grito.
Abraço

Tá de boa Bernardo!!!! Sem pressa irmão!!! Brigadão mesmo pela ajuda!!

Cara, quase não arrumo tempo para mexer nisso hoje também... Vê se ajuda:

Option Explicit

Public Sub RemoverDuplicados()
Dim wb          As Workbook
Dim wsIndex     As Worksheet
Dim wsFound     As Worksheet
Dim StartTime   As Double
Dim EndTime     As Double
Dim Key1        As String
Dim Key2        As String
Dim Col1        As Integer
Dim Col2        As Integer
Dim Col3        As Integer
Dim LinTop      As Long
Dim UltLindex   As Long
Dim UltLfound   As Long
Dim Counter     As Long
Dim i           As Long
Dim j           As Long
Dim k           As Long
Dim l           As Long

    StartTime = Timer
    Application.ScreenUpdating = False
    Application.Calculation = xlCalculationManual
    
    Col1 = 1 'Número da primeira coluna comparadora
    Col2 = 2 'Número da segunda coluna comparadora
    Col3 = 3 'Número da terceira coluna comparadora
    LinTop = 2 'Número da primeira linha sem contar o cabeçalho
    Counter = 0 'Início da contagem
    
    Set wb = ThisWorkbook
    
    For i = 1 To wb.Worksheets.Count
        Set wsIndex = wb.Worksheets(i)
        UltLindex = wsIndex.Cells(Rows.Count, 1).End(xlUp).Row
        
        For j = LinTop To UltLindex
        Key1 = wsIndex.Cells(j, Col1).Value & wsIndex.Cells(j, Col2).Value & wsIndex.Cells(j, Col3).Value
            wsIndex.Cells(j, Col1).Value = "#@#Index#@#" & wsIndex.Cells(j, Col1).Value
            wsIndex.Cells(j, Col1).Calculate
            
            For k = i To wb.Worksheets.Count
                Set wsFound = wb.Worksheets(k)
                UltLfound = wsFound.Cells(Rows.Count, 1).End(xlUp).Row
                
                For l = UltLfound To LinTop Step -1
                Key2 = wsFound.Cells(l, Col1).Value & wsFound.Cells(l, Col2).Value & wsFound.Cells(l, Col3).Value
                
                    If Key1 = Key2 Then
                        wsFound.Cells(l, 1).EntireRow.Delete
                        Counter = Counter + 1
                    End If
                Next l
                
            Next k
        
        wsIndex.Cells(j, Col1).Value = Replace(wsIndex.Cells(j, Col1).Value, "#@#Index#@#", "")
        wsIndex.Cells(j, Col1).Calculate
        Next j
        
    Next i
    
    Set wsIndex = Nothing
    Set wsFound = Nothing
    Set wb = Nothing

    Application.ScreenUpdating = True
    Application.Calculation = xlCalculationAutomatic
    
    EndTime = Timer
    MsgBox "Processo concluído com sucesso!" & vbNewLine & _
           "Foram localizados " & Counter & " registros em multiplicidade." & vbNewLine & _
           "Tempo do processamento: " & EndTime - StartTime & " segundos."
    
End Sub

Qualquer coisa da o grito.
Abraço

Caraca mano!!!!! Tu é sinistro.... rs.... é exatamente isso!!!

Se eu precisar utilizar para um arquivo com mais colunas eu preciso mexer na macro ne?

Abração irmão!! Brigadão

Mais "colunas comparadoras" ?
Sim, terá que mexer no código.

Qualquer coisa da o grito.
Abraço