locked
Fórmulas ou ordenar? RRS feed

  • Pergunta

  • olá. preciso de ajuda....~

     

    estou com uma tabela em excel e bastante grande.

     

    Tenho esta tabela:

     

    Coluna A      Coluna B     Coluna C     Coluna D

    184               1245            184             1245

    184               1245            185             1372

    184               1245

    185               1372

    185               1372

     

     

    e pretendia criar uma fórmula ou ordenar de forma a criar automaticamente a seguinte tabela:

     

    Coluna A      Coluna B     Coluna C     Coluna D

    184               1245            184             1245

    185               1372            185             1372

     

    elimnando ou ocultando todas as linhas em duplicado das colunas A e B.

     

    Obrigado

    Paulo

    quarta-feira, 1 de outubro de 2008 21:10

Todas as Respostas

  • Olá..

     

    Tente o seguinte código

     

    Code Snippet

    Sub Botão1_Clique()
    Dim Col As Integer
    Dim r As Long
    Dim C As Range
    Dim N As Long
    Dim V As Variant
    Dim Rng As Range

    On Error GoTo EndMacro
    Application.ScreenUpdating = False
    Application.Calculation = xlCalculationManual

    Col = ActiveCell.Column

    If Selection.Rows.Count > 1 Then
    Set Rng = Selection
    Else
    Set Rng = ActiveSheet.UsedRange.Rows
    End If

    N = 0
    For r = Rng.Rows.Count To 1 Step -1
    V = Rng.Cells(r, 1).Value
    If Application.WorksheetFunction.CountIf(Rng.Columns(1), V) > 1 Then
    Rng.Rows(r).EntireRow.Delete
    N = N + 1
    End If
    Next r

    EndMacro:

    Application.ScreenUpdating = True
    Application.Calculation = xlCalculationAutomatic

    End Sub

     

     

     

    ai você terá que selecionar as colunas que você deseja excluir os valore

    Por exemplo se você quiser excluir os valores repetidos da coluna a,, selecione toda a coluna a

     

    Um abraço.. espero que tenha ajudado

    quinta-feira, 2 de outubro de 2008 15:37