os loucos

Sub exclui() 'macro exclui valores repetidos 'a planilha deve estar ordenada 'o excel 2007 já possui esse recurso ' Se o cabecalho estiver na A1 então segue, senao por favor arrumar Range("A2").Select Do While Application.ActiveCell <> "" If Application.ActiveCell = ActiveCell.Offset(-1, 0) Then Selection.EntireRow.Delete Else Application.ActiveCell.Offset(1, 0).Select End If Loop End Sub

ae mano tenta ai ------------------------------------------------------------------------------------------------------------------------------------- Dim area As Range, intervalo As Range ' o problema é que o intervalo fica fixo, portanto jogue dentro de uma variavel o intervalo desejado. ' por exemplo: Selection, Selection.End(xlToRight)) é igual a ctrl+shift seta pro lado, e a outra seta pra baixo Set area = Union(Range(Selection, Selection.End(xlToRight)), Range(Selection, Selection.End(xlDown))) area.Select ActiveWorkbook.Names.Add Name:="intervalo", RefersToR1C1:=area ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _ "intervalo").CreatePivotTable TableDestination:="", TableName:= _ "Tabela dinâmica1"