Приватний ключ не Microsoft Excel - Як

Приватний ключ не Microsoft Excel

Немає Excel, вока quiser трансформатор мав колону em chave primária (os dados не підібрано повторно), або в плані ALT + F11, клік в 2 разів не має меню і не буде переглядатися:

Приватна робоча таблиця_заміни (націленість ByVal як діапазон)
Зменшити значення As Range (діапазон)
Встановити targ = [F3: F55625]
'o o range of a coluna desejada
Встановити targ = Intersect (targ, target)
Якщо targ Ніщо, то вийдіть з Sub

Для кожної чел У targ.Cells
Якщо cel <> "" Тоді
Встановити rg = Стовпці (cel.Column) .Find (чел, LookIn: = xlValues, після: = cel)
Якщо rg.Address <> cel.Address Тоді
Application.EnableEvents = False
cel = ""
cel.Select
Application.EnableEvents = True
MsgBox "Entrada duplicada!" & Cel.valu
End If
End If
Далі
End Sub