Сравнение двух книг с записью разницы значений в третью книгу - VBA

Узнай цену своей работы

Формулировка задачи:

Доброго времени суток. С VBA познакомился неделю назад, и поэтому следующая задача оказалась для меня трудноватой. Итак: существует файл 11112.xlsx , в котором находится , допустим, 4 столбца с заголовками и значениями, и существует файл 22222.xlsx , в котором так же 4 столбца, но заголовки со значениями расположены в другом порядке. К тому же неизвестно с какой ячейки начинается таблица. Нужно Сравнить 2 файла и вывести в итоговый файл.xlsx разницу между соответствующими ячейками и выделить цветом ячейки. Уже неделю голову ломаю, но так нечего в голову не приходит. Заранее благодарен. Приложу эти 2 файла как пример

Решение задачи: «Сравнение двух книг с записью разницы значений в третью книгу»

textual
Листинг программы
  1. Sub Поиск()
  2. Dim iskomoe As String
  3. Dim c As Range
  4. Dim a As Integer
  5. iskomoe = Range("C23").Value
  6.    a = 2
  7. On Error Resume Next
  8. 1     Cells(2, a).Select
  9. 'Поиск значения ряда
  10. Set c = Range("F2:S2").Find(iskomoe, , , xlWhole)
  11. If Not c Is Nothing Then c.Select
  12. 'ваши действия
  13.     Else
  14.   a = a + 1
  15.   GoTo 1
  16. End If
  17. End Sub

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


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

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

13   голосов , оценка 3.769 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Бесплатно
Оформите заказ и авторы начнут откликаться уже через 10 минут
Похожие ответы