Как удалить столбцы с нулевыми значениями, т.е. там где нет цифр или слов? Или хотя бы отметить их специально, и потом сделать сортировку и удалить отфильтрованные столбцы.
Руками не вариант, т.к. столбцов сотни.
Прилагаю файл.
Как удалить столбцы с нулевыми значениями, т.е. там где нет цифр или слов? Или хотя бы отметить их специально, и потом сделать сортировку и удалить отфильтрованные столбцы.
УФ в помощь,что бы отметить.а формулы удалять столбцы не умеют [p.s.]главная -условное форматирование-создать правило-форматировать только ячейки которые содержат-пустые
УФ в помощь,что бы отметить.а формулы удалять столбцы не умеют [p.s.]главная -условное форматирование-создать правило-форматировать только ячейки которые содержат-пустыекитин
как вариант Выделяем строки 2:20 Жмем комбинации (буквы руские, раскладка должна быть русской, 0 - цифра) F5>ALT+ВК>Enter>Ctrl+0>Ctrl+Shift+пробел>F5>Alt+ВЫ>Ctrl+->Enter>Shift+пробел>Ctrl+Sift+0>Home
как вариант Выделяем строки 2:20 Жмем комбинации (буквы руские, раскладка должна быть русской, 0 - цифра) F5>ALT+ВК>Enter>Ctrl+0>Ctrl+Shift+пробел>F5>Alt+ВЫ>Ctrl+->Enter>Shift+пробел>Ctrl+Sift+0>Homekrosav4ig
Если такое надо проделать несколько раз, то это макросом. Для разовой операции можно построить вспомогательную таблицу и потом перенести значения (в ячейках вроде никаких формул нет) Вспомогательную строить: добавить строку сверху и пронумеровать ячейки 1 строка - выбрать номера непустых столбцов остальные строки - выборка по номеру столбца с совпадающим значением
Если такое надо проделать несколько раз, то это макросом. Для разовой операции можно построить вспомогательную таблицу и потом перенести значения (в ячейках вроде никаких формул нет) Вспомогательную строить: добавить строку сверху и пронумеровать ячейки 1 строка - выбрать номера непустых столбцов остальные строки - выборка по номеру столбца с совпадающим значениемUdik
вот вам барабан яд 41001231307558 wm R419131876897 udik1968@gmail.com
Вспомогательную строить: добавить строку сверху и пронумеровать ячейки 1 строка - выбрать номера непустых столбцов остальные строки - выборка по номеру столбца с совпадающим значением
А можете показать? Хоть часть столбцов, а то не понимаю)
Вспомогательную строить: добавить строку сверху и пронумеровать ячейки 1 строка - выбрать номера непустых столбцов остальные строки - выборка по номеру столбца с совпадающим значением
А можете показать? Хоть часть столбцов, а то не понимаю)regnus
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
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+enterUdik
вот вам барабан яд 41001231307558 wm R419131876897 udik1968@gmail.com
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