макрос на скрытие строк

Автор NooBasTiK, 15.07.2012, 19:53

« назад - далее »

NooBasTiK

Не знаю VBA поэтому прошу помощи в решении задачи:
Есть большая таблица в которой необходимо скрыть строки по критерию. Критерием является столбец в котором стоит знак *. Т.е. если есть знак звездочка то скрывать не надо, а если просто пусто то надо. Просматривать столбец необходимо до последней ячейки в которой вносились данные а не по всему столбцу до 65000 строки. Спасибо за внимание! Столбец можно использовать любой я сам потом поправлю на свой.

Шпец Докапыч

Знания недостаточно, необходимо применение. Желания недостаточно, необходимо действие. (с) Брюс Ли

NooBasTiK

Это всё хорошо, но диапазон? Можно доработать код так что бы диапазон определялся сам, т.е. до последней ячейки с данными.

Шпец Докапыч

Это запросто:
'Set DinDiap = [E2:E12] 'здесь уже не указывается диапазон
  LR = Range("E" & Rows.Count).End(xlUp).Row + 1
  Set DinDiap = Range("E2:E" & LR) 'здесь определяется диапазон
  SR = DinDiap.Row: fl = -2
Знания недостаточно, необходимо применение. Желания недостаточно, необходимо действие. (с) Брюс Ли

exceleved

Попробуйтеcolumns("E").specialcells(xlcelltypeblanks).entirerow.hidden=true

NooBasTiK

Цитата: Шпец Докапыч от 16.07.2012, 11:58
Это запросто:
'Set DinDiap = [E2:E12] 'здесь уже не указывается диапазон
  LR = Range("E" & Rows.Count).End(xlUp).Row + 1
  Set DinDiap = Range("E2:E" & LR) 'здесь определяется диапазон
  SR = DinDiap.Row: fl = -2

Сделал по другому
Dim lLastRow As Long
    lLastRow = Cells(Rows.Count, 5).End(xlUp).Row
    Set DinDiap = Range("E2:E" & lLastRow)

Спасибо!