Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Как удалить столбцы с нулевыми значениями: без цифр и слов? - Мир MS Excel

  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_, DrMini  
Как удалить столбцы с нулевыми значениями: без цифр и слов?
regnus Дата: Пятница, 31.07.2015, 16:53 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 34
Репутация: 0 ±
Замечаний: 40% ±

Excel 2010
Как удалить столбцы с нулевыми значениями, т.е. там где нет цифр или слов?
Или хотя бы отметить их специально, и потом сделать сортировку и удалить отфильтрованные столбцы.

Руками не вариант, т.к. столбцов сотни.

Прилагаю файл.
К сообщению приложен файл: _1-.xlsx (20.5 Kb)
 
Ответить
СообщениеКак удалить столбцы с нулевыми значениями, т.е. там где нет цифр или слов?
Или хотя бы отметить их специально, и потом сделать сортировку и удалить отфильтрованные столбцы.

Руками не вариант, т.к. столбцов сотни.

Прилагаю файл.

Автор - regnus
Дата добавления - 31.07.2015 в 16:53
китин Дата: Пятница, 31.07.2015, 17:08 | Сообщение № 2
Группа: Модераторы
Ранг: Экселист
Сообщений: 7034
Репутация: 1079 ±
Замечаний: 0% ±

Excel 2007;2010;2016
Или хотя бы отметить их специально

УФ в помощь,что бы отметить.а формулы удалять столбцы не умеют
[p.s.]главная -условное форматирование-создать правило-форматировать только ячейки которые содержат-пустые
К сообщению приложен файл: regnus.xlsx (20.3 Kb)


Не судите очень строго:я пытаюсь научиться
ЯД 41001877306852


Сообщение отредактировал китин - Пятница, 31.07.2015, 17:11
 
Ответить
Сообщение
Или хотя бы отметить их специально

УФ в помощь,что бы отметить.а формулы удалять столбцы не умеют
[p.s.]главная -условное форматирование-создать правило-форматировать только ячейки которые содержат-пустые

Автор - китин
Дата добавления - 31.07.2015 в 17:08
krosav4ig Дата: Пятница, 31.07.2015, 17:34 | Сообщение № 3
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
как вариант Выделяем строки 2:20
Жмем комбинации (буквы руские, раскладка должна быть русской, 0 - цифра)
F5>ALT+ВК>Enter>Ctrl+0>Ctrl+Shift+пробел>F5>Alt+ВЫ>Ctrl+->Enter>Shift+пробел>Ctrl+Sift+0>Home


email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
Сообщениекак вариант Выделяем строки 2:20
Жмем комбинации (буквы руские, раскладка должна быть русской, 0 - цифра)
F5>ALT+ВК>Enter>Ctrl+0>Ctrl+Shift+пробел>F5>Alt+ВЫ>Ctrl+->Enter>Shift+пробел>Ctrl+Sift+0>Home

Автор - krosav4ig
Дата добавления - 31.07.2015 в 17:34
китин Дата: Пятница, 31.07.2015, 17:37 | Сообщение № 4
Группа: Модераторы
Ранг: Экселист
Сообщений: 7034
Репутация: 1079 ±
Замечаний: 0% ±

Excel 2007;2010;2016
[offtop]Андрей это как же можно такое запомнить? %) :'( ;)


Не судите очень строго:я пытаюсь научиться
ЯД 41001877306852
 
Ответить
Сообщение[offtop]Андрей это как же можно такое запомнить? %) :'( ;)

Автор - китин
Дата добавления - 31.07.2015 в 17:37
Udik Дата: Пятница, 31.07.2015, 17:40 | Сообщение № 5
Группа: Друзья
Ранг: Старожил
Сообщений: 1588
Репутация: 192 ±
Замечаний: 0% ±

Excel 2016 х 64
Если такое надо проделать несколько раз, то это макросом. Для разовой операции можно построить вспомогательную таблицу и потом перенести значения (в ячейках вроде никаких формул нет)
Вспомогательную строить:
добавить строку сверху и пронумеровать ячейки
1 строка - выбрать номера непустых столбцов
остальные строки - выборка по номеру столбца с совпадающим значением


вот вам барабан
яд 41001231307558 wm R419131876897
udik1968@gmail.com
 
Ответить
СообщениеЕсли такое надо проделать несколько раз, то это макросом. Для разовой операции можно построить вспомогательную таблицу и потом перенести значения (в ячейках вроде никаких формул нет)
Вспомогательную строить:
добавить строку сверху и пронумеровать ячейки
1 строка - выбрать номера непустых столбцов
остальные строки - выборка по номеру столбца с совпадающим значением

Автор - Udik
Дата добавления - 31.07.2015 в 17:40
regnus Дата: Пятница, 31.07.2015, 17:50 | Сообщение № 6
Группа: Пользователи
Ранг: Новичок
Сообщений: 34
Репутация: 0 ±
Замечаний: 40% ±

Excel 2010
Вспомогательную строить:
добавить строку сверху и пронумеровать ячейки
1 строка - выбрать номера непустых столбцов
остальные строки - выборка по номеру столбца с совпадающим значением


А можете показать? Хоть часть столбцов, а то не понимаю)
 
Ответить
Сообщение
Вспомогательную строить:
добавить строку сверху и пронумеровать ячейки
1 строка - выбрать номера непустых столбцов
остальные строки - выборка по номеру столбца с совпадающим значением


А можете показать? Хоть часть столбцов, а то не понимаю)

Автор - regnus
Дата добавления - 31.07.2015 в 17:50
Udik Дата: Пятница, 31.07.2015, 21:04 | Сообщение № 7
Группа: Друзья
Ранг: Старожил
Сообщений: 1588
Репутация: 192 ±
Замечаний: 0% ±

Excel 2016 х 64
ну как-то так, добавил ещё 1 строку, чтобы длинных формул не лепить.
1 строка
Код
=ЕСЛИ(СЧЁТЕСЛИ(Лист1!A$3:A21;"*");Лист1!A$1;"")

2 строка (массив формула), со 2 ячейки
Код
{=ЕСЛИ(A2<МАКС($A$1:$IP$1);ЕСЛИ((B1<>"");МИН(ЕСЛИ($A$1:$IP$1>A2;$A$1:$IP$1));A2+ПОИСКПОЗ(1=1;B1:$IP$1<>"";0));"")}

3 строка (собственно то, что надо)
Код
=ИНДЕКС(Лист1!$A$2:$IP$21;СТРОКА()-2;A$2)
К сообщению приложен файл: e1.xlsx (34.4 Kb)


вот вам барабан
яд 41001231307558 wm R419131876897
udik1968@gmail.com


Сообщение отредактировал Udik - Пятница, 31.07.2015, 21:09
 
Ответить
Сообщениену как-то так, добавил ещё 1 строку, чтобы длинных формул не лепить.
1 строка
Код
=ЕСЛИ(СЧЁТЕСЛИ(Лист1!A$3:A21;"*");Лист1!A$1;"")

2 строка (массив формула), со 2 ячейки
Код
{=ЕСЛИ(A2<МАКС($A$1:$IP$1);ЕСЛИ((B1<>"");МИН(ЕСЛИ($A$1:$IP$1>A2;$A$1:$IP$1));A2+ПОИСКПОЗ(1=1;B1:$IP$1<>"";0));"")}

3 строка (собственно то, что надо)
Код
=ИНДЕКС(Лист1!$A$2:$IP$21;СТРОКА()-2;A$2)

Автор - Udik
Дата добавления - 31.07.2015 в 21:04
regnus Дата: Пятница, 31.07.2015, 23:52 | Сообщение № 8
Группа: Пользователи
Ранг: Новичок
Сообщений: 34
Репутация: 0 ±
Замечаний: 40% ±

Excel 2010
Спасибо.
А как это работает?
Куда что вставлять?
 
Ответить
СообщениеСпасибо.
А как это работает?
Куда что вставлять?

Автор - regnus
Дата добавления - 31.07.2015 в 23:52
Udik Дата: Суббота, 01.08.2015, 12:36 | Сообщение № 9
Группа: Друзья
Ранг: Старожил
Сообщений: 1588
Репутация: 192 ±
Замечаний: 0% ±

Excel 2016 х 64
1. Вставляем над основной таблицей строку, выделяем до конца таблицы (в примере ip) заполняем ариф. прогрессией, т.е. просто нумеруем.
2. На другом листе в ячейку А1 вставляем 1 формулу, выделяем по размеру осн. таблицы, Заполнить -> вправо.
3. В ячейку А2 вставить массив формулу
Код
{=ЕСЛИ(A1<>"";A1;ПОИСКПОЗ(1=1;A1:$IP$1<>"";0))}

4. В ячейку В2 вставить 2 формулу, размножить.
5. В ячейку А3 вставить 3 формулу, размножить по строке, размножить вниз.

как размножать тут
[p.s.] массив формулы вводят без {} через ctrl+shift+enter


вот вам барабан
яд 41001231307558 wm R419131876897
udik1968@gmail.com
 
Ответить
Сообщение1. Вставляем над основной таблицей строку, выделяем до конца таблицы (в примере ip) заполняем ариф. прогрессией, т.е. просто нумеруем.
2. На другом листе в ячейку А1 вставляем 1 формулу, выделяем по размеру осн. таблицы, Заполнить -> вправо.
3. В ячейку А2 вставить массив формулу
Код
{=ЕСЛИ(A1<>"";A1;ПОИСКПОЗ(1=1;A1:$IP$1<>"";0))}

4. В ячейку В2 вставить 2 формулу, размножить.
5. В ячейку А3 вставить 3 формулу, размножить по строке, размножить вниз.

как размножать тут
[p.s.] массив формулы вводят без {} через ctrl+shift+enter

Автор - Udik
Дата добавления - 01.08.2015 в 12:36
krosav4ig Дата: Суббота, 01.08.2015, 14:32 | Сообщение № 10
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
[offtop]
это как же можно такое запомнить?

Игорь, это укороченный вариант, в исходном варианте вместо F5>ALT+В было ALT+ЯФВГ :) [/offtop]


email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
Сообщение[offtop]
это как же можно такое запомнить?

Игорь, это укороченный вариант, в исходном варианте вместо F5>ALT+В было ALT+ЯФВГ :) [/offtop]

Автор - krosav4ig
Дата добавления - 01.08.2015 в 14:32
МВТ Дата: Суббота, 01.08.2015, 14:57 | Сообщение № 11
Группа: Проверенные
Ранг: Обитатель
Сообщений: 476
Репутация: 137 ±
Замечаний: 0% ±

Excel 2007
Как-то так, мне кажется [vba]
Код
Sub tt()
With Application
.ScreenUpdating = False
For i = Cells(1, Columns.Count).End(xlToLeft).Column To 1 Step -1
If Cells(Rows.Count, i).End(xlUp).Row = 1 Then Columns(i).Delete
Next i
.ScreenUpdating = True
End With
End Sub
[/vba]
 
Ответить
СообщениеКак-то так, мне кажется [vba]
Код
Sub tt()
With Application
.ScreenUpdating = False
For i = Cells(1, Columns.Count).End(xlToLeft).Column To 1 Step -1
If Cells(Rows.Count, i).End(xlUp).Row = 1 Then Columns(i).Delete
Next i
.ScreenUpdating = True
End With
End Sub
[/vba]

Автор - МВТ
Дата добавления - 01.08.2015 в 14:57
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2025 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!