День добрый. помогите новичку. В книге Ексель - находятся несколько ячеек с разными числами. Рядом - таблички, где в ячейки I4, L4, O4 - представлены числа -по которым должен осуществляться поиск.
Как макросом - определить координаты ячеек с числами (представленными в I4, L4, O4) и выписать эти координаты в соответствующие таблицы?
День добрый. помогите новичку. В книге Ексель - находятся несколько ячеек с разными числами. Рядом - таблички, где в ячейки I4, L4, O4 - представлены числа -по которым должен осуществляться поиск.
Как макросом - определить координаты ячеек с числами (представленными в I4, L4, O4) и выписать эти координаты в соответствующие таблицы?Werwolfik
With Range("A:H") For Each v In Array("I4", "L4", "O4") Set r = .Find(Range(v).Value, LookIn:=xlValues, lookat:=xlWhole) If Not r Is Nothing Then adr = r.Address Do Cells(Rows.Count, Range(v).Column).End(xlUp)(2, 1).Resize(, 2).Value = _ Array(r.Left, r.Top) Set r = .FindNext(r) Loop While r.Address <> adr End If Next v End With End Sub
[/vba]
Werwolfik, привет попробуйте так [vba]
Код
Sub ertert() Dim v, adr$, r As Range
With Range("A:H") For Each v In Array("I4", "L4", "O4") Set r = .Find(Range(v).Value, LookIn:=xlValues, lookat:=xlWhole) If Not r Is Nothing Then adr = r.Address Do Cells(Rows.Count, Range(v).Column).End(xlUp)(2, 1).Resize(, 2).Value = _ Array(r.Left, r.Top) Set r = .FindNext(r) Loop While r.Address <> adr End If Next v End With End Sub
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
