on-line-teaching.com

[mars2409]

Помогите пожалуйста написать макрос следующего содержания: по указанному столбцу отсортировать значение ячеек - если значение ячейки пустое или =0, эту строку скрыть, если отлично от 0 данную строку пропустить и выполнять пока не встретится определенное значение например формула Заранее спасибо за помощь, Андрей mars2409@ua.fm

[Евгений]

Option Compare Text

Sub Sortirovka()
Dim t As String, tt As String, i As Integer

t = InputBox("Введите буквенный код столбца латиницей", "Сортировка")
i = InputBox("Введите номер начальной строки", "Сортировка")
tt = t & i

Do While Left(Range(tt).Formula, 1) <> "="
If Range(tt).Value = 0 Then
Range(tt).Select
Selection.EntireRow.Hidden = True
End If
i = i + 1
tt = t & i
Loop
End Sub

Так пойдет? Хотя надо бы еще проверку на ошибки ввода ввести, но чичас занят.