luistoodohar...
Membro Junior
Registrado
72 Mensagens
26 Curtidas
Olá, no Excel, por enquanto, só há como deletar dados duplicados em colunas.
Luís |
Maneiríssimo!|OI
|
|
Certo|Mi mi fá sol... |
| "
A corda sempre arrebenta do lado mais fraco."
Blog:
luisfavarocom.blogspot.com.br |
esseebomblog648.blogspot.com.br
PC Samsung 275E4E, Windows 8.1 64 bits, CPU AMD E1-1500 1480 MHz, 4 GB de RAM, HD ST500LM012 HN-M5 SATA, placa de vídeo AMD Radeon HD 7310 Graphics | Use o fórum! MP só coisas urgentes.
Basole
Geek
Registrado
945 Mensagens
596 Curtidas
luistoodohar...
Membro Junior
Registrado
72 Mensagens
26 Curtidas
[code=vb]
Option Explicit
Sub teste()
Dim rng As Range, x As Long
With ThisWorkbook.ActiveSheet
For x = 2 To .Cells(Rows.Count, 1).End(xlUp).Row
Set rng = .Range(.Cells(x, "A"), .Cells(x, "D"))
If Ver_Repetidos(rng) = True Then
MsgBox "linha " & x & " tem repetidos"
End If
Next x
End With
End Sub
Function Ver_Repetidos(rng As Range) As Boolean
Dim i As Long, dic As Variant, v As Variant
Set dic = CreateObject("Scripting.Dictionary")
i = 1
For Each v In rng
If v <> "" Then
v = VBA.Trim(v)
If dic.exists(v) Then Ver_Repetidos = True: Exit Function Else dic.Add v, i
i = i + 1
End If
Next v
End Function
[/code]
Só que [code=vb]Exit Function[/code] para a execução do código.
Luís |
Maneiríssimo!|OI
|
|
Certo|Mi mi fá sol... |
| "
A corda sempre arrebenta do lado mais fraco."
Blog:
luisfavarocom.blogspot.com.br |
esseebomblog648.blogspot.com.br
PC Samsung 275E4E, Windows 8.1 64 bits, CPU AMD E1-1500 1480 MHz, 4 GB de RAM, HD ST500LM012 HN-M5 SATA, placa de vídeo AMD Radeon HD 7310 Graphics | Use o fórum! MP só coisas urgentes.