Encontre duplicatas, atualize o banco de dados com valor mínimo no Excel
`Sub Update_data () Dim Bk1 As Workbook Dim Bk2 As Workbook Dim Rng1 As Range Workbooks("Book1").Activate 'indicate wb name1 here Set Bk1 = ActiveWorkbook Workbooks("Book2").Activate 'indicate wb name2 here Set Bk2 = ActiveWorkbook Bk1.Activate Set Rng1 = Range(Cells(1, 1), Cells(Cells(Rows.Count, 1).End(xlUp).Row, 2)) Rng1.Copy Cells(1, 26).PasteSpecial Paste:=xlPasteValues Cells(1, 26).AutoFilter ActiveWorkbook.ActiveSheet.AutoFilter.Sort.SortFields.Add Key:=Rng1.Offset(0, …