Linhas | Tomás Vásquez – Blog
25 25UTC November 25UTC 2010 Tomás Vásquez
Recentemente, postei um artigo divulgando uma "artimanha" para efetuar a remoção de quebras de linha em células do Excel. Apesar de engenhosa e funcional, a solução fazia uso do Microsoft Word, o que não chega a ser um grande problema, já que os dois softwares são praticamente irmãos.
Mas, é possível fazer o mesmo, sem sair do Excel. Para isso, acione a caixa de diálogo Substituir (Ctrl+U), e no campo Localizar, mantenha a tecla Alt pressionada e digite 0010, soltando a tecla Alt em seguida. Vai aparecer um caractere estranho, mas sem pânico, pois ele é a representação da quebra de linha no Excel. Agora é só clicar em Substituir, ou Substituir tudo.
Simples, rápido, funcional!
http://www.pcreview.co.uk/forums/thread-1766687.php
ExcelLinhas
03 03UTC September 03UTC 2008 Tomás Vásquez	2 Comentários
A macro abaixo exclui na coluna selecionada as linhas que tiverem valores repetidos. Praticamente igual a função de filtro para registros exclusivos, só que em VBA. Copie o código e cole em um novo módulo VBA. Preenche em qualquer planilha uma lista com alguns valores repetidos. Clique Alt+F8 para ativar a macro e veja o resultado.
Public Sub ExcluirLinhasDuplicadas() 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