Сравнение столбцов разных книг

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Сравнение столбцов разных книг (Макросы/Sub)

Klara

Дата: Понедельник, 04.08.2014, 09:12 | Сообщение № 1

Группа: Пользователи

Ранг: Новичок

Сообщений: 24

Репутация: 0 ±

Замечаний: 0% ±

Excel 2010

Ребята, помогите, сравниваю два столбца G в разных книгах....честно, код взяла где-то...а он выдаёт ошибку в первых же строчках, что не так?

[vba]

Код

Dim ACell As Range
Dim BCell As Range

For Each ACell In Workbooks("DSA1.xls").Worksheets("Лист1"). _
Range("G2", Cells(Rows.Count, 7).End(xlUp))

      For Each BCell In Workbooks("DSA2.xls").Worksheets("Лист1"). _
      Range("G2", Cells(Rows.Count, 7).End(xlUp))

           If BCell.Value = ACell.Value Then
           Else: Workbooks("Свод").Worksheets("30.07.2014").Range("J3") = s_ + s1_
           End If

      Next
Next

[/vba]

Сообщение отредактировал Klara - Понедельник, 04.08.2014, 09:13

Ответить

Саня

Дата: Понедельник, 04.08.2014, 09:41 | Сообщение № 2

Группа: Друзья

Ранг: Ветеран

Сообщений: 1068

Репутация: 560 ±

Замечаний: 0% ±

XL 2016

[vba]

Код

For Each ACell In Workbooks("DSA1.xls").Worksheets("Лист1"). _
Range("G2", Workbooks("DSA1.xls").Worksheets("Лист1").Cells(Workbooks("DSA1.xls").Worksheets("Лист1").Rows.Count, 7).End(xlUp))

     For Each BCell In Workbooks("DSA2.xls").Worksheets("Лист1"). _
     Range("G2", Workbooks("DSA2.xls").Worksheets("Лист1").Cells(Workbooks("DSA2.xls").Worksheets("Лист1").Rows.Count, 7).End(xlUp))

         If BCell.Value = ACell.Value Then
         Else: Workbooks("Свод").Worksheets("30.07.2014").Range("J3") = s_ + s1_
         End If

     Next
Next

[/vba]