Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Определить Range таблицы, расположенной между двумя другими.
 
#1
01.03.2017 22:43:40
Здравствуйте. Помогите пожалуйста с решением следующего вопроса средствами VBA. На листе имеется три таблицы, как определить начало и конец второй таблицы, расположенной между первой и третьей. Колонки известны, необходимо определить первую и последнюю строки. End(xlUp).Row, естественно, выдает последнюю ячейку самой нижней таблицы. Надеюсь, пример поможет понять что требуется. Заранее спасибо.
 
 
 
#2
01.03.2017 23:11:32
Между таблицами всегда строка одна?
Кому решение нужно - тот пример и рисует.
 
 
 
#3
01.03.2017 23:14:45
Нет, не всегда. Постоянными можно считать заголовки всех таблиц.
Изменено: VSerg - 01.03.2017 23:16:37
 
 
 
#4
01.03.2017 23:15:49
Код
    MsgBox ([a:c].Find("Table 2", , xlFormulas, 2).CurrentRegion.Address)
Я сам - дурнее всякого примера! ...
 
 
 
#5
01.03.2017 23:17:48
Код
Sub TableRange()
Dim Cl As Range
    Set Cl = Worksheets("Sheet1").Columns("A:C").Find("Table 2", LookIn:=xlValues)
    MsgBox Cl.CurrentRegion.Address
End Sub
Согласие есть продукт при полном непротивлении сторон
 
 
 
#6
01.03.2017 23:20:19
Цитата
определить первую и последнюю строки
Код
Sub Table()
Dim FRow As Long
Dim ERow As Long
  FRow = Columns("A:C").Find("Table 2", , xlValues, xlWhole).Row
  ERow = Range("A" & FRow).End(xlDown).Row
End Sub
 
 
 
#7
01.03.2017 23:23:14
Огромное спасибо, оба решения работают прекрасно. Если не затруднит, не могли бы вы объяснить, как это работает ? Начало диапазона я понимаю, ищется по имени. Но как определяется его правый нижний угол ?
 
 
 
#8
01.03.2017 23:24:28
CurrentRegion -> press F1
Согласие есть продукт при полном непротивлении сторон
 
 
 
#9
01.03.2017 23:32:45
Еще раз позвольте поблагодарить всех ответивших. Спасибо вам, решено.
 
 
 
#10
02.03.2017 11:49:50
Здравствуйте еще раз. Подскажите пожалуйста, как можно скопировать ячейки, определенные с помощью CurrentRegion.Address ?
Если использовать решение от Kuzmich, то делаю так:
Код
Set rng = Worksheets("Report").Range("A" & FRow & ":I" & ERow)
rng3.Copy
но на попытку
Код
Set Cl = Worksheets("Sheet1").Columns("A:C").Find("Table 2", LookIn:=xlValues)
Cl.CurrentRegion.Address.Copy
Excel выдает ошибку. Информация в MSDN по CurrentRegion достаточно скудная, нашел свойство Select, но с ним тоже не работает.
Заранее спасибо.
 
 
 
#11
02.03.2017 12:32:59
Код
Cl.CurrentRegion.Copy
Согласие есть продукт при полном непротивлении сторон
 
 
 
#12
02.03.2017 13:53:55
Sanja, большое спасибо.
 
 
 
Страницы: 1
Наверх