Excel VBA duplicados deletar base dados coluna B

Planilha Excel VBA Shapes 27 carrega imagem dir se x ou y

Planilha Excel VBA duplicados deletar base dados coluna B

Este Macro do Aplicativo MS Excel VBA(Visual Basic Application), deleta duplicados com base quantidade de dados
digitados na coluna (B) de determinada folha de Planilha.
‘//==================’

‘Escola saberexcel VBA Estudos®
Sub sbx_duplicados_deletar()
Dim tDados, sDados(), j&, k&, N&, x
tDados = Range(Cells(1, 1), Cells(WorksheetFunction.Max(Cells(Rows.Count, 1).End(xlUp).Row, Cells(Rows.Count, 2).End(xlUp).Row), 2)).Value
N = 1
ReDim sDados(1 To 2, 1 To N)
sDados(1, N) = tDados(1, 1)
sDados(2, N) = tDados(1, 2)

For j = 2 To UBound(tDados, 1)
x = tDados(j, 1) & “#” & tDados(j, 2)
For k = 1 To N
If sDados(1, k) & “#” & sDados(2, k) = x Then Exit For
Next k

If k > N Then
N = k
ReDim Preserve sDados(1 To 2, 1 To N)
sDados(1, N) = tDados(j, 1)
sDados(2, N) = tDados(j, 2)

End If
Next j
Range(Cells(1, 1), Cells(WorksheetFunction.Max(Cells(Rows.Count, 1).End(xlUp).Row, Cells(Rows.Count, 2).End(xlUp).Row), 2)).ClearContents
Cells(1, 1).Resize(UBound(sDados, 2), 2) = WorksheetFunction.Transpose(sDados)
Cells(1, 1).Resize(UBound(sDados, 2), 2).Font.ColorIndex = 1
MsgBox “Duplicados deletados….”, vbInformation, “Escola Saberexcel VBA Estudos®”
End Sub
‘//==================’
Sub sbx_mensagem()
MsgBox (“clique na vassourinha ao lado…rs”), vbInformation, “Escola Saberexcel VBA Estudos®”
End Sub
‘//==================’
Sub sbx_copiar_teste()
[a].Copy [b]
MsgBox (“Dados copiados com sucesso para realização do Teste”), vbInformation, “Escola Saberexcel VBA Estudos®”
End Sub

‘//==================’
Para preencher ou deletar a célula com determinado valor para praticarmos com nosso macro acima.
Sub sbx_inserir_numero()
If [b3].Value = 0 Then
[b3].Value = 3
Else
[b3].Value = “”
End If
End Sub

‘//==================’
Sub sbx_msgbx()
MsgBox “Deletar da determinada da coluna(B) para baixo”, vbInformation, “Escola Saberexcel VBA Estudos®”
End Sub
‘//==================’