как сравнить и скопировать ячейки в excel из разных книг?

[cybereug]

Необходимо сравнить ячейки столбца (допустим столбец 1) в excel из одной книги (книга 1) с другой (книга 2) и при совпадении значений скопировать из книги 2 в книгу 1 рядом стоящую ячейку в строке. Заранее спасибо!

[HandKot]

посмотри здесь

http://sql.ru/forum/actualthread.aspx?tid=309919

[cybereug]

Спасибо за ссылку. Но там обсуждаются проблемные вопросы, а моя ситуация простая, просто я начинающий програмист и незнаю как это сделать. Если кто поможет буду очень благодарен!

[Falsehood]

в excel функция есть СУММАЕСЛИ() или СУММЕСЛИ(). не подойдет?

[RomCom]

На VBA примерно так:

Код:

Dim wbk As Workbook
 Set wbk = Application.ActiveWorkbook
 For i = 1 To 100 '100 - диапазон сравнения 
 If wbk.Sheets("книга1").Cells(i, 1) <> wbk.Sheets("книга2").Cells(i, 1) Then
  wbk.Sheets("книга1").Cells(i, 2) = wbk.Sheets("книга2").Cells(i, 2)
 End If
 Next

[cybereug]

выводит invalid procedure name

[PooH]

ну а как ты свою процедуру назвал ?

[cybereug]

я бы назвал если бы знал как надо  если можно напишите код целиком

[PooH]

обычно Мастер сам создает начало и конец процедуры у тебя только имя спрашивает, вот например полный код:

Код:

Sub my_proc()
Dim wbk As Workbook
 Set wbk = Application.ActiveWorkbook
 For i = 1 To 100 '100 - диапазон сравнения 
 If wbk.Sheets("книга1").Cells(i, 1) <> wbk.Sheets("книга2").Cells(i, 1) Then
  wbk.Sheets("книга1").Cells(i, 2) = wbk.Sheets("книга2").Cells(i, 2)
 End If
 Next
End Sub

[HandKot]

PooH
у вас сравниваются листы, а надо книги

[HandKot]

на подобие вышеизложенных кодов от Pooh

Код:

Public Sub Compare()
    Dim i As Integer
    Dim wb As Excel.Workbook
    
    Set wb = Excel.Workbooks("Книга1")      'получаем экземпляр книги с которой нужно сравнивать
    
    'проверить 100 строк
    For i = 1 To 100
            If ThisWorkbook.Worksheets("Лист1").Cells(i, 1) <> wb.Worksheets("Лист1").Cells(i, 1) Then
                ' в столбец С пишем значение из столбца В книги 1
                ThisWorkbook.Worksheets("Лист1").Cells(i, 3) = wb.Worksheets("Лист1").Cells(i, 2)
            End If
    Next i
End Sub

Условия:
1) Книги должны быть открыты

ЗЫЖ имена и диаползон подправите сами

[cybereug]

большое спасибо, заработало!

[cybereug]

Почему то ячейки содержащие html код не копируются, или копируются по частям (часть ячейки), с чем эти это может быть связано?

ячейка может иметь такой вид:
-------
<table border=0">    <tbody>        <tr>            <td>Заголовок</td>            <td>описание</td>        </tr>        <tr>            <td valign="middle" colspan="2" height="5"><img height="1" src="http://www.***.ru/pics/common/tree_line.gif" width="100%" alt="" /></td>        </tr>        <tr>            <td>текст</td>            <td>txt
------

[SAS888]

Попробуй так:

For i=1 To 100
   Comp = StrComp(Workbooks(Книга1.xls).Sheets(Лист1).Cells(i, 1), Workbooks(Книга2.xls).Sheets(Лист1).Cells(i, 1), vbTextCompare)
        If Comp = 0 Then Workbooks(Книга2.xls).Sheets(Лист1).Cells(i, 1) Copy Workbooks(Книга1.xls).Sheets(Лист1).Cells(i, 2)
Next i
Необходимо, чтобы обе книги были открыты.
Но можно сравнивать и копировать  не открывая Книгу2 (если нужно могу подсказать).