Скрыть пустые строки на листе

@ulugbek tulakov · Регистрация: 21.04.2021

Author24 — интернет-сервис помощи студентам

Добрый день. Можете помоч скрит пустых строк с формулой или макросом в 1-листе.

@Narimanych · 28.02.2023, 14:21

ulugbek tulakov,

https://uz.healthy-food-near-m... -in-excel/

@ulugbek tulakov · 28.02.2023, 14:30 **[ТС]**

Тут все вруную. Я попробоваль много вариантов но не получилос там в файле есть макрос Удалить_пустых_строк() но он удаляеть пустых строк везде. Мне надо чтоб он работаль в диапазоне строк 62:90 и 110:139. Не удалил а скриль строк в этом диапазоне.

@MikeVol · 28.02.2023, 15:18

ulugbek tulakov, Здравствуйте. Пробуйте:

Visual Basic

    Dim rng As Range
    Dim i As Long
    Set rng = Range("62:90")
 
    For i = rng.Rows.Count To 1 Step -1
 
        If WorksheetFunction.CountA(rng.Rows(i)) = 0 Then
            rng.Rows(i).Hidden = True
        End If
 
    Next i

На форуме полно тем с таким же вопросом. Поиск рулит.

P.S. Забыл сказать что остальные строки (110:139) по аналогии сделайте сами.

@Jack Famous · 28.02.2023, 15:37

Ещё вариант по мотивам выше)))

Visual Basic

Sub t()
Dim x, r&
    For Each x In Array("62-90", "110-139")
        x = Split(x, "-")
 
        For r = x(0) To x(1)
            If Not Rows(r).Hidden Then
                If WorksheetFunction.CountA(Rows(r)) = 0 Then Rows(r).Hidden = True
            End If
        Next r
    Next x
End Sub

MikeVol, это не удаление и можно сверху идти, как обычно

@ulugbek tulakov · 28.02.2023, 16:05 **[ТС]**

Jack Famous, Спасибо. Но не работает вы прбовали в моём файле. Там в строках есть формули по этому можеть не работать? Если из-за формул не работаеть как быть.

@Jack Famous · 28.02.2023, 16:22

Сообщение от ulugbek tulakov

Но не работает вы прбовали в моём файле

Так у вас там 0 стоят (строка не считается пустой), которые просто скрыты форматом ячейки

Считаем ячейки с нолями пустыми

Visual Basic

Sub t()
Dim x, arr, r&, c&
    For Each x In Array("62-90", "110-139")
        x = Split(x, "-")
 
        For r = x(0) To x(1)
            If Rows(r).Hidden Then GoTo nx
            arr = Intersect(Rows(r), ActiveSheet.UsedRange).Value2
 
            For c = 1 To UBound(arr, 2)
                If Len(arr(1, c)) <> 0 Then If arr(1, c) <> 0 Then GoTo nx
            Next c
 
            Rows(r).Hidden = True
nx:     Next r
    Next x
End Sub

@ulugbek tulakov · 28.02.2023, 16:26 **[ТС]**

Файле 1-листа имееть 3-форми 8, 8а и 8б там поставиться оценки студентам из предмета каторий сдаль экзамен. Форми 8а и 8б для неуспеваюших студентам. В конча листов есть семестровка он берёт оценки из листов.Сейчас семестровка берет оценки только с 8-форми. Неуспеваемих студентов есть оценка всех формах. Поэтому сделать формули чтоб в семестовку отобразилься самий максималний оценка студента из всех формах (8, 8а и 8б).

@Jack Famous · 28.02.2023, 16:28

ulugbek tulakov, я ни черта не понял
В вашем файле мой код прекрасно отработал

@ulugbek tulakov · 28.02.2023, 17:03 **[ТС]**

Сообщение от Jack Famous

Так у вас там 0 стоят (строка не считается пустой), которые просто скрыты форматом ячейки

Супер все работаль

Добавлено через 21 минуту
Например студент Алексей первий раз не пришёл в экзамен и у него в место оценки в ячейке G16 поставили "kelmagan". После пересдачи он брал "2" (двойку) ячейка G65. У него остался последний шанс и он этот раз сдаль экзамен на "3" (тройку) ячейка G114.
В семестровку из этих оценках отобразилься максималний 3 [3]. Число в квадратним скобке обозначаеть что сдуденть сдал экзамен на 3-й раз или в форме 8б. В квадратним скобке можеть быть число от 1 до 3 смотря в каком попытке он сдал экзамен.
Для этого надо формула. Помогите.

Добавлено через 5 минут
Jack Famous, Можете памоч.

@Jack Famous · 28.02.2023, 17:09

Сообщение от ulugbek tulakov

Для этого надо формула. Помогите.

создайте новую тему. Вопрос этой не касается

@MikeVol · 28.02.2023, 19:42

ulugbek tulakov, а мой вариант из поста #4 не подошёл?
Jack Famous, я знаю что это не удаление. Первое что вспомнил так как в своё время тоже искал решение на эту тему. ТС просил конкретно скрыть строки 62:90 и 110:139 вот и дал пример. По всем строкам листа я не пробежался а именно только эти строки указал. Да и сам файл я не смотрел.

@ulugbek tulakov · 01.03.2023, 04:40 **[ТС]**

Jack Famous,

Сообщение от MikeVol

а мой вариант из поста #4 не подошёл?

Не подошёл. Но также спасибо

@Jack Famous · 01.03.2023, 09:22

Сообщение от MikeVol

мой вариант из поста #4 не подошёл?

так я свой на основе вашего и делал. У ТСа нули в строках (которые нужно считать пустыми) и СЧЁТЗ/СЧИТАТЬПУСТОТЫ (в том виде) не подойдут

Сообщение от MikeVol

я знаю что это не удаление

я прост на всякий случай)))

@MikeVol Одесса - Украина 457 / 149 / 54 Регистрация: 01.04.2020 Сообщений: 487
	28.02.2023, 19:42	12
	ulugbek tulakov, а мой вариант из поста #4 не подошёл? Jack Famous, я знаю что это не удаление. Первое что вспомнил так как в своё время тоже искал решение на эту тему. ТС просил конкретно скрыть строки 62:90 и 110:139 вот и дал пример. По всем строкам листа я не пробежался а именно только эти строки указал. Да и сам файл я не смотрел. 0

@Narimanych 2739 / 1714 / 778 Регистрация: 23.03.2015 Сообщений: 5,429
	28.02.2023, 14:21	2
	ulugbek tulakov, https://uz.healthy-food-near-m... -in-excel/ 1

@ulugbek tulakov -4 / 0 / 0 Регистрация: 21.04.2021 Сообщений: 215
	28.02.2023, 14:30 [ТС]	3
	Тут все вруную. Я попробоваль много вариантов но не получилос там в файле есть макрос Удалить_пустых_строк() но он удаляеть пустых строк везде. Мне надо чтоб он работаль в диапазоне строк 62:90 и 110:139. Не удалил а скриль строк в этом диапазоне. 0

@ulugbek tulakov -4 / 0 / 0 Регистрация: 21.04.2021 Сообщений: 215
	28.02.2023, 16:05 [ТС]	6
	Jack Famous, Спасибо. Но не работает вы прбовали в моём файле. Там в строках есть формули по этому можеть не работать? Если из-за формул не работаеть как быть. 0

@Jack Famous 823 / 316 / 41 Регистрация: 10.05.2021 Сообщений: 1,394 Записей в блоге: 10
	28.02.2023, 16:28	9
	ulugbek tulakov, я ни черта не понял В вашем файле мой код прекрасно отработал 0

@ulugbek tulakov -4 / 0 / 0 Регистрация: 21.04.2021 Сообщений: 215
	28.02.2023, 17:03 [ТС]	10
	Сообщение от Jack Famous Так у вас там 0 стоят (строка не считается пустой), которые просто скрыты форматом ячейки Супер все работаль Добавлено через 21 минуту Например студент Алексей первий раз не пришёл в экзамен и у него в место оценки в ячейке G16 поставили "kelmagan". После пересдачи он брал "2" (двойку) ячейка G65. У него остался последний шанс и он этот раз сдаль экзамен на "3" (тройку) ячейка G114. В семестровку из этих оценках отобразилься максималний 3 [3]. Число в квадратним скобке обозначаеть что сдуденть сдал экзамен на 3-й раз или в форме 8б. В квадратним скобке можеть быть число от 1 до 3 смотря в каком попытке он сдал экзамен. Для этого надо формула. Помогите. Добавлено через 5 минут Jack Famous, Можете памоч. 0

@Jack Famous 823 / 316 / 41 Регистрация: 10.05.2021 Сообщений: 1,394 Записей в блоге: 10
	28.02.2023, 17:09	11
	Сообщение от ulugbek tulakov Для этого надо формула. Помогите. создайте новую тему. Вопрос этой не касается 1

@ulugbek tulakov -4 / 0 / 0 Регистрация: 21.04.2021 Сообщений: 215
	01.03.2023, 04:40 [ТС]	13
	Jack Famous, Сообщение от MikeVol а мой вариант из поста #4 не подошёл? Не подошёл. Но также спасибо 0

@Jack Famous 823 / 316 / 41 Регистрация: 10.05.2021 Сообщений: 1,394 Записей в блоге: 10
	01.03.2023, 09:22	14
	Сообщение от MikeVol мой вариант из поста #4 не подошёл? так я свой на основе вашего и делал. У ТСа нули в строках (которые нужно считать пустыми) и СЧЁТЗ/СЧИТАТЬПУСТОТЫ (в том виде) не подойдут Сообщение от MikeVol я знаю что это не удаление я прост на всякий случай))) 0