нужна именно программа

[Denis-]

пример, сохраняется статистика на флешку в формате Excel на одном компьютере,а проверяется флешка со статистикай на другом пк и в другом офисе. каким образом вычислить какие цыфры были поменянные в статистике?

[kuklp]

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

[Hugo121]

Пароли, шифрование для чего придумывали?

[The_Prist]

Denis-, а почему в этой теме обсуждение не продолжаете? Или надо 100 тем создать для одного вопроса?

[Bape}l{ka]

я так понимаю, факт изменения данных уже свершился и превентивные меры принимать поздно, поэтому нужен макрос.

если нужно вычислить только какие конкретно изменения были внесены, то есть макрос сравнения..
но кто и когда только по журналу

[Bape}l{ka]

сравнение диапазонов (надо ввести начальные данные - отмечено синим)
только если данные для сравнения на одном листе находятся! иначе уточнять надо...

Sub compare()
Dim FirstRow As Integer, MaxRow As Long, FirstCol As Long, MaxCol As Long, FirstCol2 As Long

FirstRow = номер_строки_откуда_начинаются_данные
MaxRow = номер_строки_где_заканчиваются_данные
FirstCol = номер_столбца_первого_диапазона_для_сравнения
MaxCol = номер_столбца_где_заканчиваются_данные
FirstCol2 = номер_столбца_второго_диапазона_для_сравнения

    Application.ScreenUpdating = False
    RaznicaCol = 0
    RaznicaCol = FirstCol - FirstCol2  

    For Roww = FirstRow To MaxRow
        For Colm = FirstCol To MaxCol
                If Cells(Roww, Colm).Value <> Cells(Roww, Colm - RaznicaCol).Value Then
                        With Cells(Roww, Colm)
                            .Interior.ColorIndex = vbred   'красим ячейки в 1-м диапазоне
                        End With
                        Cells(Roww, Colm - RaznicaCol).Interior.ColorIndex = 37    'красим ячейки во 2-м диапазоне
                End If
        Next Colm
     Next Roww
     
    Application.ScreenUpdating = True
End sub