Visual Basic, .NET, ASP, VBScript
 

   
   
     

Форум - VBA

Страница: 1 |

 

  Вопрос: Поиск и сравнение в Excel Добавлено: 08.10.05 12:45  

Автор вопроса:  APS | ICQ: 234458121 
Всем привет!
Помогите чайнику...
Есть два листа в Excel. Данные размещены в двух колонках на обоих листах. Так вот, есть необходимость взять данные из первой колонки первого листа и найти их в первой колонке второго листа (данные не повторяются). Затем взять данные из второй колонки второго листа из найденного ряда и сравнить их с данными второй колонки первого листа.
Пробовал метод Find, но дальше не могу врубиться, как вычленить данные из соседней колонки.

Заранее спасибо!

Ответить

  Ответы Всего ответов: 2  

Номер ответа: 1
Автор ответа:
 -=Fenix=-



Вопросов: 33
Ответов: 81
 Профиль | | #1 Добавлено: 09.10.05 14:40
Dim a as string
Dim AC as Integer
Cells.Find(What:=a, After:=ActiveCell, LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False).Activate

Sheets("Лист";).Select

Cells.Find(What:="", After:=ActiveCell, LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False).Activate
AC = ActiveCell.Row

For i = 1 to AC
if Range("A" & i).formulaR1C1 = f then
msg box "Нашёл"
exit sub
end if


приблизительно так если списаок пополняется
переменная а - твои данные в первом листе
Лист1 - второй лист

Ответить

Номер ответа: 2
Автор ответа:
 APS



ICQ: 234458121 

Вопросов: 38
Ответов: 107
 Профиль | | #2 Добавлено: 09.10.05 22:36
Спасибо за помощь!
Буду завтра пробовать. Если что, отпишусь!

Ответить

Страница: 1 |

Поиск по форуму



© Copyright 2002-2011 VBNet.RU | Пишите нам