Уважаемые форумчане, есть одни и те же данные но в разных форматах в двух разных файлах, и при объединении их и последующем удалении дубликатов, они как дубликаты не считаются, как можно сделать так, чтобы привести их в один заданный формат данных одного файла?
Уважаемые форумчане, есть одни и те же данные но в разных форматах в двух разных файлах, и при объединении их и последующем удалении дубликатов, они как дубликаты не считаются, как можно сделать так, чтобы привести их в один заданный формат данных одного файла?alicxxi6705
Sub u_700() Application.ScreenUpdating = True For Each u In ActiveSheet.UsedRange u.Value = Application.Trim(u) Next ActiveSheet.UsedRange.RemoveDuplicates Columns:=Array(1, 2), Header:=xlNo Application.ScreenUpdating = False End Sub
[/vba]
дело не в форматах, а пробелах [vba]
Код
Sub u_700() Application.ScreenUpdating = True For Each u In ActiveSheet.UsedRange u.Value = Application.Trim(u) Next ActiveSheet.UsedRange.RemoveDuplicates Columns:=Array(1, 2), Header:=xlNo Application.ScreenUpdating = False End Sub