Сравнение двух книг с записью разницы значений в третью книгу - 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д