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