|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
15.01.2015, 17:32 | #1 |
Пользователь
Регистрация: 15.01.2015
Сообщений: 20
|
Поиск одинаковых значений на разных листах
Доброго времени суток, я столкнулся с проблемой написании кода, который будет сравнивать два столбца с данными на разных листах(номер столбца, указывает пользователь, вернее его букву), и вот что у меня получилось, вернее не получилось
Private Sub CommandButton1_Click() Dim lLastRowA As Long Dim lLastRowC As Long Dim i As Long Dim rFind As Excel.Range lLastRowA = Лист1.Cells(Rows.Count, TextBox1.Text).End(xlUp).Row lLastRowC = Лист3.Cells(Rows.Count, "C").End(xlUp).Row + 1 Application.ScreenUpdating = False For i = 2 To lLastRowA Step 1 //и вот тут у меня начинается ошибка, с указанием столбца второго листа, т.е. с чем будет сравниваться Set rFind = Columns(Лист1.TextBox2.Text).Find(W hat:=Cells(i, TextBox1.Text).Text, LookIn:=xlValues, _ LookAt:=xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, _ MatchCase:=False, SearchFormat:=False) If Not rFind Is Nothing Then Cells(lLastRowC, "C").Value = Cells(i, "A").Value lLastRowC = lLastRowC + 1 End If Next i MsgBox "Работа программы завершена!", vbInformation Application.ScreenUpdating = True End Sub |
15.01.2015, 17:49 | #2 |
Новичок
СтарожилДжуниор
Регистрация: 05.02.2008
Сообщений: 9,487
|
а так:
... Set rFind = worksheets(2).Columns(Лист1... ...
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете
|
Опции темы | Поиск в этой теме |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Поиск одинаковых ячеек в нескольких листах. | R-oksana | Microsoft Office Excel | 5 | 11.12.2016 00:36 |
Удаление одинаковых строк на разных листах | Nanashi | Microsoft Office Excel | 3 | 29.09.2014 16:45 |
Поиск совпадений на разных листах и столбцах | Sash414 | Microsoft Office Excel | 2 | 30.11.2011 22:17 |
Суммирование значений в ячейках на разных листах с помощю кода | jerko | Microsoft Office Excel | 14 | 07.10.2010 09:15 |
Поиск и удаление совпадающих строк в разных листах | hybrid84 | Microsoft Office Excel | 11 | 24.07.2009 05:13 |