проверка чисел в разных файлах

[Magnetic Air]

Есть два файла, в них столбцы с не уникальными числами (могут повторяться) под названием "Сумма". Но разница в том, что одном файле числа идут списком (т.е. в одной ячейке одно число), а в другом формулой, вида =А+В+... (например = 500,00+300,00). Если все числа в одном файле совпадают со всеми числами в другом, то все правильно, если нет, то msgBox с несовпадениями.
Подскажите какой командой вытаскивать числа из формулы, и как уже проверенные числа исключать (чтобы повторно не проверялись)?

[Magnetic Air]

аппп ппппппп пппп

[vikttur]

Девки у Вас дорогущие

Как связать Статьи с дихлофосом и огурцами? Что делать, если в разных статьях встретятся одинаковые числа?

[Magnetic Air]

Остряки... Поэтому и спрашиваю, как взаимоисключить числа после проверки по ходу процедуры

[Magnetic Air]

т.е. макрос берет из файла 1 первую цифру, далее ищет в файле 2 равную, найдя он их взаимоисключает (какбе удаляет) next
берет из файла 1 вторую цифру, далее ищет в файле 2 равную если не находит то говорит сообщением next
и т.д.

[Hugo121]

Может быть так - сперва пройтись по всем формулам одного списка (вероятно, "Сумма" и "Оплачено" нужно анализировать раздельно) и с помощью RegExp извлечь числа в словарь, помещая в Item количество повторов.
Потом пройтись так же по формулам второго диапазона, сверяя с словарём и уменьшая Item. В процессе если Item уже 0 или в словаре нет - значит пары нет. В конце анализируем словарь - если есть с Item>0, значит тоже нет пары.
Мне реализовать затруднительно, ибо хромаю в RegExp.

Хотя... можно без RegExp - просто тупо убить "=", заменить "+" на пробел и Split его...

Вроде этого, потренировался на "остатках":

Sub tt()
Dim cc As Range, temp$, x

With CreateObject("Scripting.Dictionary")

For Each cc In [e9:e21]
temp = cc.Formula
temp = Replace(temp, "=", "")
temp = Replace(temp, "+", " ")
temp = Application.Trim(temp)
For Each x In Split(temp)
 If Not .Exists(x) Then
 .Item(x) = 1
 Else
 .Item(x) = .Item(x) + 1
 End If
Next
Next

On Error Resume Next
Range("E30").Resize(.Count) = Application.Transpose(.keys)
Range("F30").Resize(.Count) = Application.Transpose(.items)
On Error GoTo 0

End With
End Sub

Отключение ошибок на случай пустого диапазона.

[Magnetic Air]

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

"Сумма" и "Оплачено" нужно анализировать раздельно

так точно, но на самом деле Вы тут столько страшных слов наговорили... А можно занести в массив данные с одного файла (столбец "Сумма") и в другой массив данные с другого (столбец "Сумма"), а потом производить манипуляции уже непосредственно с ними. Выкидывая из памяти проверенные данные.

[Hugo121]

Такой набросок - запускать из модуля остатков, проверяет конкретные диапазоны:

Option Explicit

Sub tt()
Dim cc As Range, oDict As Object, temp$, x
Dim a, i As Long, kk

Set oDict = CreateObject("Scripting.Dictionary")

For Each cc In [e9:e21]
temp = cc.Formula
temp = Replace(temp, "=", "")
temp = Replace(temp, "+", " ")
temp = Application.Trim(temp)
For Each x In Split(temp)
 If Not oDict.Exists(x) Then
 oDict.Item(x) = 1
 Else
 oDict.Item(x) = oDict.Item(x) + 1
 End If
Next
Next

With GetObject("C:\temp\Primer_1\журнал.xls")
For Each cc In .Sheets(1).[h5:h37]
    If Len(cc) Then
        If oDict.Exists(CStr(cc.Value)) Then
           If --(oDict.Item(CStr(cc.Value))) > 0 Then
           oDict.Item(CStr(cc.Value)) = oDict.Item(CStr(cc.Value)) - 1
           Else
           MsgBox CStr(cc.Value) & " из журнала " & cc.Address & " нет пары!"
           End If
        Else
        MsgBox CStr(cc.Value) & " из журнала " & cc.Address & " нет пары!"
        End If
    End If
Next
'.Close 0
End With

For Each kk In oDict.keys
If --(oDict.Item(kk)) > 0 Then MsgBox "Лишнее в остатках: " & kk
Next

End Sub

Занести в массив можно, но это с формулами нужно делать всё равно перебором, смысла нет.
Я перебором заношу в словарь.
А второй диапозон можно и в массив, но тогда не покажешь адрес несовпадения - поэтому в этой версии тоже перебор с листа. Ну на Ваших данных разницы по скорости нет.
Пока продолжать некогда - посмотрите пока, может какие замечания будут.
Если файл журнал.xls будет закрыт - раскомментируйте строку '.Close 0, иначе он может стать скрытым

[Hugo121]

Проверьте - рассчитано на конкретные диапазоны. Если они динамические - нужно доделывать.
Поставил тупо два похожих кода последовательно.
Запускать по Alt+F8 макрос Analiz.
В этой версии - если файл журнал.xls будет при запуске кода открыт, то он закроется без сохранения изменений.
P.S. есть недоработка - при запуске должен быть активным лист остатки.xls. Это легко исправить в итоговой версии, если возьмёте такое решение.

[Magnetic Air]

Hugo121
спасибо, буду разбираться