Сравнение двух книг с записью разницы значений в третью книгу - 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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

13   голосов , оценка 3.769 из 5
Похожие ответы