Выделение повторяющихся значений в разных столбцах более чем двух книг

[YustasRighno]

Уважаемые программисты, очень прошу помощи.
Имеется порядка 58 файлов excel с инвентарными номерами (ячейки разного типа: числовые, текстовые...) техники в разных подразделениях.
Данные находятся в разных столбцах на листе 1 каждого из файлов.
Файлы имеют имена типа 1.xls, 2.xls и т.д.
Необходимо выявить повторяющиеся номера: выделить любым цветом, либо вынести в отдельную таблицу. Главное, знать какие дублируются в различных файлах.
Задачу усложняет тот факт, что в инвентарных номерах у кого-то присутствует первый "0", у кого-то нет, либо вместо цифры "0" поставили букву "О" в начале, либо пере "0" поставили "№", либо после инв.номера поставили "."
Номера в себе содержат "4143020".

Как вариант решения:
вынести все номера на один отдельный лист, а дальше я бы разобрался сортировкой, выделением и условным форматированием.

[Hugo121]

Как вариант -
поиском по листу определить столбцы (ну или брать по одному, пока не закончатся)
взять данные в массив
циклом по массиву в каждом значении заменить о,О,o,O на 0
убить №, точки,скобки, может ещё что...
TRIM()ом убить лишние пробелы
split() в массив
"числа" преобразовать в числа
всё это дело собирать в словарь, в item каждому можно класть что угодно - имя файла, или данные по конкретному номеру, и всё это в коллекцию
В финише всех из словаря, у кого коллекция более двух элементов - вывести в итоговый документ. Ну или перебрать опять всё заново и "выделить любым цветом".

[YustasRighno]

Сообщение от Hugo121

Как вариант -
поиском по листу определить столбцы (ну или брать по одному, пока не закончатся)
взять данные в массив
циклом по массиву в каждом значении заменить о,О,o,O на 0
убить №, точки,скобки, может ещё что...
TRIM()ом убить лишние пробелы
split() в массив
"числа" преобразовать в числа
всё это дело собирать в словарь, в item каждому можно класть что угодно - имя файла, или данные по конкретному номеру, и всё это в коллекцию
В финише всех из словаря, у кого коллекция более двух элементов - вывести в итоговый документ. Ну или перебрать опять всё заново и "выделить любым цветом".

большое спасибо за ответ, но я не умею писать программный код
подскажите, пожалуйста, как это сделать, или какие вещи изучить?

[Hugo121]

Изучать нужно открытие файлов, поиск по диапазону, массивы, замены, trim(), split(), преобразование типов, словари, коллекции...
Вообще тут писать кода нужно довольно много, и хоть ничего особо сложного нет, но гемора хватает. Лично я писать не возьмусь - нет ни времени, ни желания. Да и детали многие неясны...
Но думаю на фрилансе кто-нибудь возмётся. А может и тут забесплатно...

[Aleksandr H.]

Просматривать один какой-то столбец или весь лист?
Только по всему листе искать совпадения или даже совпадения номер в файле 1 с номерами в файлах 2..58?

убить №, точки,скобки, может ещё что...
TRIM()ом убить лишние пробелы

А если в этом варианте в переменную добавлять только символы "0".."9" из записи номера

[Hugo121]

Сообщение от Aleksandr H.

А если в этом варианте в переменную добавлять только символы "0".."9" из записи номера

Если в номерах всегда только цифры - то можно и так. Можно regexp привлечь. Но заменять все варианты "о" на 0 всёж думаю нужно. И тогда уж и "i" на единицы

[YustasRighno]

Сообщение от Aleksandr H.

Просматривать один какой-то столбец или весь лист?
Только по всему листе искать совпадения или даже совпадения номер в файле 1 с номерами в файлах 2..58?

А если в этом варианте в переменную добавлять только символы "0".."9" из записи номера

в инв.номере могут еще встречаться русские/латинские буквы (от А до М)

Просматривать можно только столбцы С, E, G, I, K, совпадение инв.номеров по всем 58 файлам в этих столбцах первых листов.

[IgorGO]

все файлы складываете в одну папку, в ту же папку положите файл InvNum, любым способом выполните процедуру Start

[YustasRighno]

Сообщение от IgorGO

все файлы складываете в одну папку, в ту же папку положите файл InvNum, любым способом выполните процедуру Start

Огромное спасибо! Проверил дома на 3-х файлах - всё идеально!
На работе сегодня запустил со всеми 44-мя (почистил не нужные файлы...) - вышла ошибка при открытии примерно 30го файла (скрин во вложении)
Скрин дебаггера прилагаю.

[IgorGO]

замените текст процедуры Sub AddIN2Diction

Sub AddIN2Diction()
  Dim wb As Workbook, r As Long, er As Long, rg As Range, adr As String, id As String
  For Each wb In Workbooks
    With wb.Worksheets(1)
      Set rg = .Cells(1)
      Set rg = .Cells.Find("Инвентарный номер", rg, xlValues, xlPart)
      If Not rg Is Nothing Then
        adr = rg.Address
        Do While True
          For r = rg.Row + 1 To .Cells(.Rows.Count, 1).End(xlUp).Offset(1, rg.Column - 1).End(xlUp).Row
            id = TrimId(CStr(.Cells(r, rg.Column)))
            If id <> "" Then
              If Not DIN.exists(id) Then
                DIN.Add id, "<<" & wb.Name & ">> " & Cells(r, rg.Column).Address(False, False)
              End If
            End If
          Next
          Set rg = .Cells.Find("Инвентарный номер", rg, xlValues, xlPart)
          If rg Is Nothing Then Exit Do
          If rg.Address = adr Then Exit Do
        Loop
      End If
    End With
  Next
End Sub

и присмотритесь к подписи...