Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Excel - как удалить пустые ячейки? / 16 сообщений из 16, страница 1 из 1
02.11.2007, 14:52
    #34913368
giya
giya
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Excel - как удалить пустые ячейки?
Добрый день! Помогите пожалуйста советом, как удалить пустые ячейки?
У меня есть таблица и я хочу удалить лишние пустые ячейки, т.е. чтобы не было этой ужасной прокрутки до фиг знает какого номера вних и вправо.
Может вопрос глупый, но я сама не справлюсь ))
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
02.11.2007, 15:27
    #34913503
Deggasad
Deggasad
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Excel - как удалить пустые ячейки?
Меню Формат - строка - скрыть
Меню Формат - столбец скрыть
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
02.11.2007, 15:30
    #34913519
giya
giya
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Excel - как удалить пустые ячейки?
мне нужно удалить ВСЕ пустые ячейки! сколько их там 1000 или 1000000?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
02.11.2007, 16:30
    #34913801
Deggasad
Deggasad
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Excel - как удалить пустые ячейки?
giyaмне нужно удалить ВСЕ пустые ячейки! сколько их там 1000 или 1000000?

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

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

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

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

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

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

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

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

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

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

Жмем F5 - "Выделить" - "только видимые ячейки" - "Ок"
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
03.02.2009, 02:49
    #35792755
SirFisher
SirFisher
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Excel - как удалить пустые ячейки?
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
| Ответить | Цитировать | Написать  
03.02.2009, 02:54
    #35792757
SirFisher
SirFisher
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Excel - как удалить пустые ячейки?
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
| Ответить | Цитировать | Написать  
03.02.2009, 04:42
    #35792767
SirFisher
SirFisher
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Excel - как удалить пустые ячейки?
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
| Ответить | Цитировать | Написать  
03.02.2009, 09:25
    #35792911
nporaMep
nporaMep
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Excel - как удалить пустые ячейки?
По поводу макроса с удалением строк:
Гораздо быстрее работает если сначала сделать range через union, в котором будет всё что надо удалить, а потом rng.entirerow.delete.
Удалении построчно очень долгое.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
03.02.2009, 11:17
    #35793228
SirFisher
SirFisher
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Excel - как удалить пустые ячейки?
nporaMep,

возможно. Приведите код.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
03.02.2009, 12:51
    #35793552
nporaMep
nporaMep
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Excel - как удалить пустые ячейки?
Код: 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
| Ответить | Цитировать | Написать  
Период между сообщениями больше года.
10.08.2010, 17:59
    #36784644
АnnaMig
АnnaMig
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Excel - как удалить пустые ячейки?
Для удаления столбцов и строк определенного диапазона используйте:
Ограничение: Большой диапазон не следует закладывать - подвисает комп. Поэтому следует делать в несколько итераций вручную или можно добавить Цикл For...to...


Sub DeleteEmptyStrings()
Columns("AH:AY").Delete
Rows ("40:300").Delete
End Sub
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Excel - как удалить пустые ячейки? / 16 сообщений из 16, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 410ms
Закрыть
start [/forum/topic.php?fid=61&mobile=1&tid=2177809]:
 0ms
get settings:
 10ms
get forum list:
 19ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 53ms
get topic data:
 11ms
get forum data:
 2ms
get page messages:
 59ms
get tp. blocked users:
 2ms
others: 246ms
total:  410ms
x
x
Закрыть


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