powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Excel - как удалить пустые ячейки?
16 сообщений из 16, страница 1 из 1
Excel - как удалить пустые ячейки?
    #34913368
giya
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Добрый день! Помогите пожалуйста советом, как удалить пустые ячейки?
У меня есть таблица и я хочу удалить лишние пустые ячейки, т.е. чтобы не было этой ужасной прокрутки до фиг знает какого номера вних и вправо.
Может вопрос глупый, но я сама не справлюсь ))
...
Рейтинг: 0 / 0
Excel - как удалить пустые ячейки?
    #34913503
Deggasad
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Меню Формат - строка - скрыть
Меню Формат - столбец скрыть
...
Рейтинг: 0 / 0
Excel - как удалить пустые ячейки?
    #34913519
giya
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
мне нужно удалить ВСЕ пустые ячейки! сколько их там 1000 или 1000000?
...
Рейтинг: 0 / 0
Excel - как удалить пустые ячейки?
    #34913801
Deggasad
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
giyaмне нужно удалить ВСЕ пустые ячейки! сколько их там 1000 или 1000000?

Выдели строки, которые не нужны
Меню Формат - строка - скрыть

Выдели столбцы, которые не нужны
Меню Формат - столбец - скрыть

Или это сложно?

УДАЛИТЬ НЕЛЬЗЯ
...
Рейтинг: 0 / 0
Excel - как удалить пустые ячейки?
    #34913820
Deggasad
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
может вы не знаете как выделить все строки:

Выделяешь одну (первую пустую, первую ненужную)
и нажимаешь <Ctrl> + <Shift> + <Стрелка ВНИЗ>
Для столбцов аналогично

<Ctrl> + <Shift> + <Стрелка ВПРАВО>
...
Рейтинг: 0 / 0
Excel - как удалить пустые ячейки?
    #34914503
Taranaga
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Для удаления строк:
Включаем автофильтр,
Задаем параметры, которые выберут те строки которые нужно удалить,
Выделяем все строки,
Жмем F5 - "Выделить" - "только видимые ячейки" - "Ок"
жмем правую кнопку мыши, выбираем пункт "Удалить"
Раскрываем автофильтр.

Для удаления столбцов:
Выделяем ненужные столбцы мышкой,
Жмем правую кнопку, выбираем пункт "Удалить".
...
Рейтинг: 0 / 0
Период между сообщениями больше года.
Excel - как удалить пустые ячейки?
    #35789782
Antonovv
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
И всетаки есть ли альтернативные способы удалить пустые строки.

Дело в том что при обработке например 300000 строк машина или подвисает или excel выдает сообщение о слишком сложном запроси и невозможности его обработать.
...
Рейтинг: 0 / 0
Excel - как удалить пустые ячейки?
    #35790747
Сергей06
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Antonovv,

А что хоть за запрос такой, который пустые ячейки подгребает???
...
Рейтинг: 0 / 0
Excel - как удалить пустые ячейки?
    #35791331
Antonovv
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Сергей06Antonovv,

А что хоть за запрос такой, который пустые ячейки подгребает???

Жмем F5 - "Выделить" - "только видимые ячейки" - "Ок"
...
Рейтинг: 0 / 0
Excel - как удалить пустые ячейки?
    #35792755
SirFisher
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
giya,
поместите курсор на первую ячейку столбца.

Данный код удаляет все пустые ячейки в столбце, сдвигая массив вверх:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
Sub Rows_Delete()
Dim cnt_Rows As Long, curr_Row As Long, curr_Column As Long, i As Long

    cnt_Rows = ActiveCell.CurrentRegion.Rows.Count
    curr_Row = ActiveCell.Row
    curr_Column = ActiveCell.Column

    For i = cnt_Rows To curr_Row Step - 1 
        If Cells(i, curr_Column) = Empty Then Cells(i, curr_Column).Delete Shift:=xlShiftUp
    Next i
    
End Sub

Данный код удаляет строки в массиве данных, опираясь на наличие пустых ячеек в текущем столбце:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
Sub Rows_Delete_1()
Dim cnt_Rows As Long, curr_Row As Long, curr_Column As Long, i As Long

    cnt_Rows = ActiveCell.CurrentRegion.Rows.Count
    curr_Row = ActiveCell.Row
    curr_Column = ActiveCell.Column

    For i = cnt_Rows To curr_Row Step - 1 
        If Cells(i, curr_Column) = Empty Then Cells(i, curr_Column).EntireRow.Delete
    Next i
    
End Sub
...
Рейтинг: 0 / 0
Excel - как удалить пустые ячейки?
    #35792757
SirFisher
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
giya,

данный вариант скроет все строки в массиве, опираясь на пустые ячейки выбранного столбца:

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
Sub Rows_Hideen()
Dim cnt_Rows As Long, curr_Row As Long, curr_Column As Long, i As Long

    cnt_Rows = ActiveCell.CurrentRegion.Rows.Count
    curr_Row = ActiveCell.Row
    curr_Column = ActiveCell.Column

    For i = cnt_Rows To curr_Row Step - 1 
        If Cells(i, curr_Column) = Empty Then Cells(i, curr_Column).EntireRow.Hidden = True
    Next i
End Sub
...
Рейтинг: 0 / 0
Excel - как удалить пустые ячейки?
    #35792767
SirFisher
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
giya,
курсор ставим в верхнюю левую ячейку массива.
Данный вариант скроет все строки в массиве, опираясь на пустые ячейки во всех столбцах в массиве:

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
Sub Rows_Hideen_1()
    Dim cnt_Rows As Long, cnt_Columns As Long, curr_Row As Long, i As Long, x As Long

        cnt_Rows = ActiveCell.CurrentRegion.Rows.Count
        cnt_Columns = ActiveCell.CurrentRegion.Columns.Count
        curr_Row = ActiveCell.Row
    
        For x =  1  To cnt_Columns
            For i = cnt_Rows To curr_Row Step - 1 
                If Cells(i, x) = Empty Then Cells(i, x).EntireRow.Hidden = True
            Next i
        Next x

End Sub
...
Рейтинг: 0 / 0
Excel - как удалить пустые ячейки?
    #35792911
nporaMep
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
По поводу макроса с удалением строк:
Гораздо быстрее работает если сначала сделать range через union, в котором будет всё что надо удалить, а потом rng.entirerow.delete.
Удалении построчно очень долгое.
...
Рейтинг: 0 / 0
Excel - как удалить пустые ячейки?
    #35793228
SirFisher
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
nporaMep,

возможно. Приведите код.
...
Рейтинг: 0 / 0
Excel - как удалить пустые ячейки?
    #35793552
nporaMep
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
Sub Rows_Delete()
Dim cnt_Rows As Long, curr_Row As Long, curr_Column As Long, i As Long
Dim rng as Range
    cnt_Rows = ActiveCell.CurrentRegion.Rows.Count
    curr_Row = ActiveCell.Row
    curr_Column = ActiveCell.Column

    For i = cnt_Rows To curr_Row Step - 1 
        If Not rng Is Nothing then
               Set rng = Union(rng,Cells(i,curr_Column))
        Else
               Set rng = Cells(i,curr_Column)
        End If
    Next i
    rng.EntireRow.Delete

End Sub

Не проверял, но должно работать.
...
Рейтинг: 0 / 0
Период между сообщениями больше года.
Excel - как удалить пустые ячейки?
    #36784644
АnnaMig
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Для удаления столбцов и строк определенного диапазона используйте:
Ограничение: Большой диапазон не следует закладывать - подвисает комп. Поэтому следует делать в несколько итераций вручную или можно добавить Цикл For...to...


Sub DeleteEmptyStrings()
Columns("AH:AY").Delete
Rows ("40:300").Delete
End Sub
...
Рейтинг: 0 / 0
16 сообщений из 16, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Excel - как удалить пустые ячейки?
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]