Сравнение двух книг с записью разницы значений в третью книгу - VBA
Формулировка задачи:
Доброго времени суток. С VBA познакомился неделю назад, и поэтому следующая задача оказалась для меня трудноватой. Итак: существует файл 11112.xlsx , в котором находится , допустим, 4 столбца с заголовками и значениями, и существует файл 22222.xlsx , в котором так же 4 столбца, но заголовки со значениями расположены в другом порядке. К тому же неизвестно с какой ячейки начинается таблица. Нужно Сравнить 2 файла и вывести в итоговый файл.xlsx разницу между соответствующими ячейками и выделить цветом ячейки. Уже неделю голову ломаю, но так нечего в голову не приходит. Заранее благодарен. Приложу эти 2 файла как пример
Решение задачи: «Сравнение двух книг с записью разницы значений в третью книгу»
textual
Листинг программы
Sub Поиск()
Dim iskomoe As String
Dim c As Range
Dim a As Integer
iskomoe = Range("C23").Value
a = 2
On Error Resume Next
1 Cells(2, a).Select
'Поиск значения ряда
Set c = Range("F2:S2").Find(iskomoe, , , xlWhole)
If Not c Is Nothing Then c.Select
'ваши действия
Else
a = a + 1
GoTo 1
End If
End Sub