Форум программистов «Весельчак У»
  *
Добро пожаловать, Гость. Пожалуйста, войдите или зарегистрируйтесь.
Вам не пришло письмо с кодом активации?

  • Рекомендуем проверить настройки временной зоны в вашем профиле (страница "Внешний вид форума", пункт "Часовой пояс:").
  • У нас больше нет рассылок. Если вам приходят письма от наших бывших рассылок mail.ru и subscribe.ru, то знайте, что это не мы рассылаем.
   Начало  
Наши сайты
Помощь Поиск Календарь Почта Войти Регистрация  
 
Страниц: [1]   Вниз
  Печать  
Автор Тема: Help! Перебрать и сравнить ячейки двух столбцов  (Прочитано 13310 раз)
0 Пользователей и 1 Гость смотрят эту тему.
ddv1
Гость
« : 01-03-2010 07:06 » 

Гуру, помогите, пожалуйста Улыбаюсь
Мне надо чтобы ячейки проверялись на равенство значений и, если они равны, то только тогда переносится значение из третьей ячейки второй книги в первую.
Помогите, пожалуйста, очень надо сравнить большой массив, а я в VBA никогда не программировал.
Смотрел хелп, но там ничего нет:((  
Код:
Public Sub Compare()
    Dim i As Integer
    Dim j As Integer
    Dim wb As Excel.Workbook
    
     Set wb = Excel.Workbooks("Книга1.xls")        'получаем экземпляр книги с которой нужно сравнивать

    'проверить 100 строк
    For i = 1 To 100
            If ThisWorkbook.Worksheets("Лист1").Cells(i, 2) <> wb.Worksheets("Лист1").Cells(j, 1) Then
                ' в столбец С пишем значение из столбца В книги 1
                j = j + 1
                Else
                ThisWorkbook.Worksheets("Лист1").Cells(i, 5) = wb.Worksheets("Лист1").Cells(i, 2)
            End If
    Next i
End Sub

« Последнее редактирование: 02-03-2010 09:06 от Sel » Записан
ddv1
Гость
« Ответ #1 : 01-03-2010 09:04 » 

Извините что плохо изложил:(

Книга111 ячейка графы B ищет соответствующую в Книге1 по графе А и если находит,
то пишет в графу Е Книга111 числовой код из графыB Книги1.
Помогите пожалуйста. Очень нужно а я не программист
Записан
HandKot
Молодой специалист

ru
Offline Offline

« Ответ #2 : 02-03-2010 05:55 » 

1. Значения надо сравнивать по строкам? (в одной и в другой ниге сравнивать ячейки одной строки)
2. Использовать формулу ВПР не пробовали? (знание VBA в этом случае не надо)

выложите пример данных, для лучшего понимания проблемы
Записан

I Have Nine Lives You Have One Only
THINK!
ddv1
Гость
« Ответ #3 : 10-03-2010 11:51 » 

Большое спасибо. Проблема решена:)
Записан
anton13
Участник

ru
Offline Offline

« Ответ #4 : 11-04-2010 08:51 » new

HandKot

Но я бы чисто по привычке сделал это через VBA. А сделать можно просто цикл в цикле.
« Последнее редактирование: 11-04-2010 09:20 от Алексей1153++ » Записан
Страниц: [1]   Вверх
  Печать  
 

Powered by SMF 1.1.21 | SMF © 2015, Simple Machines