Как удалить пустые столбцы в excel в конце таблицы

Как удалить пустые столбцы в excel в конце таблицы

После создания таблицы Excel на листе можно легко добавлять и удалять строки и столбцы.

Чтобы добавить строки и столбцы в таблицу Excel, можно воспользоваться командой Размер таблицы.

Щелкните в любом месте таблицы, чтобы отобразить вкладку Работа с таблицами.

Выберите Конструктор > Размер таблицы.

Выделите весь диапазон ячеек, который нужно включить в таблицу, начиная с верхней левой ячейки.

В приведенном ниже примере исходная таблица охватывает диапазон A1:C5. После изменения размера с добавлением двух столбцов и трех строк таблица будет включать в себя диапазон A1:E8.

Совет: Вы также можете нажать кнопку Свернуть диалоговое , чтобы временно скрыть диалоговое окно «Избавьтесь от таблицы», выбрать диапазон на этом сайте, а затем нажать кнопку Развернуть .

Выделив диапазон, который нужно включить в таблицу, нажмите клавишу ОК.

Чтобы добавить строку или столбец в таблицу, введите данные в ячейку, расположенную под последней строкой или справа от последнего столбца, вставьте скопированное значение в ячейку или добавьте новые строки или столбцы между существующими.

Ввод данных

Чтобы добавить строку внизу таблицы, начните вводить текст в ячейке под последней строкой. Таблица расширится, и в нее будет включена новая строка. Чтобы добавить столбец справа от таблицы, начните вводить текст в ячейку справа от последнего столбца.

В приведенном ниже примере добавления строки при вводе значения в ячейку A4 таблица расширяется за счет нее, а также смежной ячейки в столбце B.

В приведенном ниже примере добавления столбца при вводе значения в ячейку C2 таблица расширяется за счет столбца C. Ему присваивается имя «Кв3», так как Excel выявляет закономерность присвоения имен по заголовкам «Кв1» и «Кв2».

Вставка данных

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

Если в новой строке данных больше или меньше столбцов, чем в таблице, таблица расширится, включив в нее все ячейки в диапазоне. Если в таблице больше столбцов, чем в данных, лишние столбцы не становятся частью таблицы— для их расширения необходимо использовать команду «Увеличить».

В приведенном ниже примере добавления строк при вставке значений из диапазона A10:B12 в первую строку под таблицей (строка 5) она расширяется за счет вставленных данных.

В приведенном ниже примере добавления столбцов при вставке значений из диапазона C7:C9 в первый столбец справа от таблицы (столбец C) она расширяется за счет вставленных данных, а столбцу присваивается заголовок «Кв3».

Добавление строки с помощью команды «Вставить»

Чтобы вставить строку, выберите ячейку или строку (но не строку заголовков) и щелкните ее правой кнопкой мыши. Чтобы вставить столбец, выберите любую ячейку в таблице и щелкните ее правой кнопкой мыши.

Наведите указатель мыши на пункт Вставить и выберите команду Строки таблицы выше или Столбцы таблицы слева, чтобы вставить новую строку или столбец соответственно.

Если активна ячейка в последней строке, можно выбрать команду Строки таблицы выше или Строки таблицы ниже.

В приведенном ниже примере новая строка будет вставлена над строкой 3.

При добавлении столбцов, если выделена ячейка в крайнем правом столбце таблицы, можно выбрать команду Столбцы таблицы слева или Столбцы таблицы справа.

В приведенном ниже примере новый столбец будет вставлен слева от столбца 1.

Выделите строки или столбцы таблицы, которые требуется удалить.

Можно просто выделить одну или несколько ячеек в строках или столбцах таблицы, которые требуется удалить.

На вкладке Главная в группе Ячейки, щелкните стрелку рядом с кнопкой Удалить, а затем выберите команду Удалить строки таблицы или Удалить столбцы таблицы.

Вы также можете щелкнуть правой кнопкой мыши одну или несколько строк или столбцов, в меню ярлыка нажать кнопку Удалить, а затем — Столбцы таблицы или Строки таблицы. Можно также щелкнуть правой кнопкой мыши одну или несколько ячеек в строке или столбце таблицы, нажать кнопку Удалить ищелкнуть Строки таблицы или Столбцы таблицы.

Дубликаты удаляются из таблицы также легко, как и из любых выбранных данных в приложении Excel.

Щелкните любое место таблицы.

Откроется окно Работа с таблицами и вкладка Конструктор.

На вкладке Конструктор в группе Сервис выберите команду Удалить дубликаты.

В диалоговом окне Удалить дубликаты в группе Столбцы выберите столбцы, содержащие дубликаты, которые требуется удалить.

Можно также нажать кнопку Снять выделение и выбрать нужные столбцы или нажать кнопку Выделить все, чтобы выделить все столбцы.

Примечание: Дубликаты удаляются с листа. Если вы случайно удалили данные, которые вы хотите сохранить, вы можете восстановить их, нажав или CTRL+Z. Вы также можете использовать условное форматирование для выделения повторяющихся значений, прежде чем удалять их. Дополнительные сведения см. в статье Добавление, изменение и отмена условного форматирования.

Убедитесь, что активная ячейка находится в столбце таблицы.

Щелкните стрелку в заглавной области столбца.

Чтобы выполнить отбор пустых ячеек, в меню «Автофильтр» в верхней части списка значений снимите флажок (Выделить все), а в нижней части установите флажок (Пустые).

Примечание: Флажок (Пустые ячейки) можно установить только в случае, если диапазон ячеек или столбец таблицы содержит хотя бы одну пустую ячейку.

Выделите пустые строки в таблице и нажмите клавиши CTRL+- (дефис).

Таким же образом можно отфильтровать и удалить пустые строки. Дополнительные сведения о том, как отфильтровать пустые строки на листе, см. в статье Фильтрация данных в диапазоне или таблице.

Вы выберите таблицу, а затем выберите конструктор > Таблица.

При необходимости настройли диапазон ячеек, который содержит таблица, и выберите ОК.

Важно: В другую строку нельзя перемещаться заглавные таблицы, и новый диапазон должен перекрывать исходный диапазон.

Дополнительные сведения

Вы всегда можете задать вопрос эксперту в Excel Tech Community или получить поддержку в сообществах.

Как удалить в excel пустые столбцы в

​Смотрите также​ откл. авторасчет формул​ arr1(i — 1,​Function SheetCheck(ByVal ShName​ maxCln As Integer​ Тогда единственный вариант​Richman​If Selection.Count =​1​: MihasGrom, Вам дорога​Стоит помнить, что​ меню Данные/ Сортировка​ строки Excel, используйте​ информации была удалена.​ где имеются данные.​ столбцы с листа».​ поиск и удаление​Таблицы, в которых присутствуют​

Стандартное удаление

​ As String) As​ = 25 ‘задаем​ — считать все​: Формулами и доп​ 1 Then Exit​Спасибо)​ в приёмы, например,​ ячейки, содержащие формулы​ и фильтр/ Сортировка​ команду «Удалить строки​ Это затрудняет работу​ В этом случае,​ После этого, нужный​ может занять значительное​ пустые строки, выглядят​ выделенной областью​arr1(i — 1,​

​ Byte​ размеры для считывания​ данные в массив​ строками нужно?​ Sub​См. пример в​ .​

​ (даже если это​ от минимального к​ с листа», из​

​ с данными, поэтому​ может произойти смещение​ столбец будет удален.​ время. В этом​ не очень эстетично.​’ сначала выполняем​ 1) = buff1​Dim x As​Const lName As​ и провести преобразования​нужно1​testRows00​

​ экселе, тут форматирование​vikttur​ ссылки на пустые​ максимальному или просто​ меню операции «Удалить»​

Сортировка

​ мы хотим убрать​ ячеек, и таблица​Урок: Сортировка в Microsoft​ случае, должна помочь​ К тому же,​ «сжатие» по строкам​buff1 = arr1(i,​ Byte​ String = «buff»,​ уже с ним. ​200?’200px’:»+(this.scrollHeight+5)+’px’);»>=ЕСЛИОШИБКА(ИНДЕКС(Лист2!B$1:B$9;НАИМЕНЬШИЙ(ЕСЛИ(Лист2!B$2:B$9<>»»;СТРОКА(Лист2!B$2:B$9);100000);СТРОКА(1:1)));»»)​’ выделенная область​

​ не то.​: Выделить заголовок первого​ ячейки), не считаются​ /Сортировка.​ блока «Ячейки».​ эти строки. Выберем​ нарушится.​ Excel​ сортировка.​ из-за лишних строк​If Selection.Count =​ 2)​x = 0​ lNmBasa As String​KSV​потом копировать——Правая кнопка​ та же​Nic70y​ пустого столбца,​ пустыми по определению.​При сортировке таблиц с​

​Есть и другой способ​ для сортировки колонку​Как видим, существует несколько​Ещё одним вариантом скрыть​Выделяем всю табличную область.​ навигация по ним​ 1 Then Exit​arr1(i, 2) =​For Each ws​ = «test» ‘имена​:​

​ ——специальная вставка—-значения​’ ПРЕДУПРЕЖДЕНИЕ: одна​: F5​Ctrl+Shift+стрелка_вправо​MihasGrom​ несколькими столбцами нужно​ выделения пустых полей.​

​ «Цена». Для упорядочивания​ способов удаления пустых​

​ пустые ячейки является​ Кликаем по ней​ может усложниться, так​ Sub​ arr1(i — 1,​

​ In ActiveWorkbook.Sheets​ целевого и базового​regnus​KSV​ строка выше выделенного​Выделить​- выделены все​: День добрый.​

​ быть осторожным, чтобы​ Чтобы им воспользоваться,​ значений можно воспользоваться​ ячеек из таблицы.​ применение фильтра.​ правой кнопкой мыши,​ как придется прокручивать​PackByRows​ 2)​If ws.Name =​ листа​, я не стал​: Странно. ​ диапазона будут очищена​пустые ячейки​

​ пустые столбцы.​Помогите пожалуйста решить​

Применение фильтра

​ ячейки не перескочили​ откройте вкладку «Главная»​ меню «Сортировка и​

​ Каким именно способом​Выделяем всю область таблицы,​ и в контекстном​ больший диапазон ячеек​With Selection​arr1(i — 1,​ ShName Then​Dim arrK(1 To​ делать «Нужно2», т.к.​600 тыс. ячеек​

​For Each col​ПКМ — удалить​Удалить, сохранит изменения.​ проблему, Куча пустых​ из своих строк​ и найдите блок​

​ фильтр» панели «Редактирование»​ лучше воспользоваться, зависит​ и, располагаясь во​ меню выбираем пункт​

​ для перехода из​.Rows(1).Insert​ 2) = buff1​x = 1​

​ maxCln, 1 To​ судя по коду​

Выделение ячеек

​ для Excel это​ In Selection.Columns​ячейки, со сдвигом​MihasGrom​ столбцов, после заполненного​ в другие. Поэтому,​ «Редактирование». В меню​ вкладки «Главная», отсортировав​ от сложности таблицы,​ вкладке «Главная», делаем​ «Сортировка». После этого,​ начала таблицы в​For Each c​End If​Exit For​

​ 2) As Integer​ (не проверял), процедура​ не тот объем,​col.Offset(-1).Cells(1, 1).Value =​ вверх​

​: vikttur, этот метод​ массива данных как​ для сортировки нужно​ «Найти и выделить»​ числа по возрастанию.​ и от того,​ клик по кнопке​ появляется ещё одно​

​ конец. Давайте выясним,​ In .Columns​Next i​

​End If​Dim arr2(1 To​testColumns00()​ чтобы виснуть. (если,​ WorksheetFunction.CountA(col)​то?​ не работает​ их убрать. в​ выделять всю таблицу.​ выполните команду «Перейти».​Или воспользоваться выпадающим меню​

​ как именно по​ «Сортировка и фильтр»,​ меню. В нём​ какие существуют способы​c.Cells(0) = WorksheetFunction.CountA(c)​If fOut Then​Next ws​ maxRow, 1 To​от​ конечно, у вас​Next​Serge_007​а для пользователя​

​ истории подсказок решений​

Как удалить пустые строки Excel несколькими способами

​ После сортировки по​ В окне настроек​ заголовка форматированной таблицы.​ ней разбросаны пустые​ которая расположена в​ нужно выбрать один​ удаления пустых строк​Next​ Exit Do​SheetCheck = x​ maxCln)​AndreTM​ не пентиум III​Set rngS =​: А Вы его​ куда дальше а​ искал не нашел.​

Удаление с помощью сортировки

​ возрастанию пустые строки​ перехода отметьте таблицу,​ Так или иначе,​ строки (располагаются одним​ блоке настроек «Редактирование».​ из следующих пунктов:​ в программе Microsoft​Set c =​LBdr = k​End Function​Dim arrOut(1 To​должна сортировать быстро.​)​ Selection.Offset(-1).Resize(Selection.Rows.Count + 1)​ и не применяли:​

​ не просто макросы.​Заранее спасибо.​ окажутся внизу таблицы.​ с которой работаете,​ после построения списка​ блоком, или перемешаны​ В появившемся меню,​ «Сортировка от А​ Excel, и как​ .Offset(-1).Resize(.Rows.Count + 1)​Loop​Private Sub sortArr(arr1()​ maxRow, 1 To​Единственное, ее можно​Попробуйте так (должно​With rngS.Parent.Sort​111​vikttur​

​Catboyun​Если важен порядок строк​ и нажмите кнопку​ строки с отсутствующими​ со строками, заполненными​ делаем переход по​ до Я», «От​ их убрать быстрее​With .Parent.Sort​End Sub​ As Integer)​ maxCln)​ чуть дописать, если​ работать оч. быстро​

​.SortFields.Add Key:=rngS.Rows(1), _​222​: У меня работает.​: Dim uz As​ до сортировки, то​ «Выделить» внизу формы.​ ценами окажутся внизу​ данными).​ пункту «Фильтр».​ минимального к максимальному»,​

Использование фильтра

​ и проще.​With .SortFields​AndreTM​Dim fOut As​dC = 0​ у вас выделенный​ на любом кол-ве)​SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal​4​Как можно помогать,​ Range With ThisWorkbook.Worksheets(«Лист1»).Range(«a1:za1»)​ перед сортировкой нужно​Однако с последним методом​ таблицы. Теперь удалим​Автор: Максим Тютюшев​В ячейках шапки таблицы​ или «От нового​Скачать последнюю версию​.Clear​: А если в​ Byte​ ‘ delta Colunm​

​ диапазон начинается с​200?’200px’:»+(this.scrollHeight+5)+’px’);»>Sub PackByRows() ‘ реализация​.SetRange rngS​333​ когда ни объяснений,​ Set uz =​ создать столбец с​ нужно быть крайне​ пустые строки Excel​При работе с большими​ появляется характерный значок.​ к старому». Какой​ Excel​.Add c.Rows(1), xlSortOnValues,​ код ещё добавить​

Выделение диапазона полей

​Dim LBdr As​ если выводить не​ первой строки на​ вашего «Нужно1″​.Header = xlGuess​44​ ни примера. Не​

​ .Find(«», , LookIn:=xlValues,​ порядковой нумерацией строк,​ осторожным. Если вы​ в конце командой​

​ объемами данных иногда​ Кликаем по этому​ именно из перечисленных​Самым известным и популярным​ xlDescending​ отключение/включение​ Integer, RBdr As​

​ в А1​ листе, или чтобы​Dim r&, c&,​.Orientation = xlLeftToRight​55​ работает — а​ lookat:=xlWhole) If Not​ а после удаления​ выделите таблицу перед​ контекстного меню.​ возникают проблемы, причины​ значку в любом​ пунктов будет находиться​

Недостаток метода выделения ячеек

​ способом удаления пустых​End With​Application.ScreenUpdating​ Integer​dR = 0​ не затереть строку​ i&, n&, v()​.SortMethod = xlPinYin​11​ вы думайте.​ uz Is Nothing​ пустых строк, заново​ тем, как в​Еще один простой метод​ которых, на первый​ на ваш выбор​ в меню, зависит​ строк, является использование​

​.SetRange c​- то тоже​Dim buff1 As​ ‘ delta Row​ перед выделенным диапазоном.​v = Selection.Value​

Удаляем в MS EXCEL пустые строки в таблице

​55​Сохраняли изменения?​ Then Do uz.Columns.Delete​ отсортировать таблицу уже​ таблице Excel удалите​ – применение фильтра​ взгляд, не очевидны.​ столбце.​ от типа данных,​ контекстного меню программы​

​.Header = xlNo​ быстродействие поднимется.​ Integer​If SheetCheck(lName) =​200?’200px’:»+(this.scrollHeight+5)+’px’);»>Sub testColumns00()​

​n = UBound(v)​End With​11​Как «не работает»?​ Set uz =​ по этому столбцу.​ пустые строки, программа​

Сортировка

​ к данным. Если​ Например, при попытке​В появившемся меню, снимаем​ которые размещены в​ Эксель. Чтобы убрать​​.Orientation = xlLeftToRight​​Вотбы вам сразу​Dim str1 As​ 0 Then Sheets.Add.Name​Dim c As​ ‘ кол-во строк​rngS.Rows(1).ClearContents​

​44​ Выдает сообщение? Пишет​ .FindNext() Loop While​Для нахождения пустых ячеек​ отметит не только​ ваша таблица отформатирована​ выделить всю таблицу​ галочку с пункта​ ячейках таблицы.​ строки таким способом,​.Apply​

​ спросить — «как​ String​ = lName​ Range​ в выделенном диапазоне​End Sub​1​ жалобы на Вас​ Not uz Is​

Фильтр

​ можно также воспользоваться​ полностью незаполненные записи,​ по стилям с​ выделяется только ее​ «Пустые». Жмем на​После того, как вышеуказанная​ выделяем диапазон ячеек,​End With​ БЫСТРО проделать данную​LBdr = 1​

Выделение группы ячеек

​Application.StatusBar 368″ height=»330″ alt=»» gif;base64,R0lGODdhAQABAIAAAP///wAAACwAAAAAAQABAAACAkQBADs=» data-src=»https://img.my-excel.ru/excel-kak-udalit-pustye-stroki-v-tablice_2_1.png»>

• ​ кнопку «OK».​ операция будет проделана,​

• ​ который не содержит​.Rows(0).Delete​ операцию на таком-то​
• ​RBdr = UBound(arr1,​ считывание и сортировка​ выделенной областью​

​ 1 To UBound(v,​Мне было просто​: Типа вот так?​ViktorTS​ End Withкак-то так​ Сортировка и фильтр/​ в которых присутствуют​ задачу. Если же​ промежуточные итоги или​Как видим, после этого,​ все пустые ячейки​ данных, и кликаем​End With​ объёме». ​ 1)​ данных. «​’ сначала выполняем​

​ 2)​
​ нечего делать​(Код надо поместить​: Код работает! Спасибо!​ примерно​ Фильтр). Выбираем подходящий​ ячейки без данных.​

Миллион столбцов. Как Убрать пустые столбцы.

​ нет, установите на​​ сводные таблицы. При​
​ все пустые строки​ переместятся в самый​ правой кнопкой мыши.​’ вкл. все,​gling​Do While 1​Application.ScreenUpdating = False​
​ «сжатие» по строкам​

​’ находим первую​​Например, предложенный​ в общий модуль,​Юрий М​Finswimmer​ столбец, отображаем только​ Удаление всего выделенного​ заголовок любого столбца​ внимательном рассмотрении оказывается,​ исчезли, так как​ низ таблицы. Теперь,​ В раскрывшемся контекстном​ что отключали​: Собрал конструкцию из​

​fOut = 1​​With Sheets(lNmBasa)​If Selection.Count =​ пустую ячейку в​Nic70y​ и вызывать, предварительно​: Работает!​: Sub УдалитьПустыеСтолбцы() LastColumn​ пустые ячейки, выделяем​ диапазона может привести​ или всех колонок​ что виной этому​ они были отфильтрованы.​ мы можем удалить​ меню делаем переход​ActiveSheet.EnableCalculation = True​ разных файлов, быстро​

​For i =​​For j =​ 1 Then Exit​ столбце​код​ выделив область для​
​regnus​ = ActiveSheet.UsedRange.Column -​ строки не содержащие​ не только к​ фильтры. Для этого​ пустые строки. В​

​Урок: Как использовать автофильтр​​ эти ячейки любым​ по пункту «Удалить…».​Application.ScreenUpdating = True​ ли работает не​ 1 To RBdr​ 1 To maxCln​

​ Sub​​For i =​Код200?’200px’:»+(this.scrollHeight+5)+’px’);»>Sub testRows()​ обработки)​: Как удалить пустые​

​ 1 + ActiveSheet.UsedRange.Columns.Count​​ данных и удаляем​ потере нужной информации,​ зайдите на вкладку​

​ статье мы учимся​​ в Microsoft Excel​ из тех способов,​​ Можно не вызывать​​End Sub​ знаю. Диапазон сортировки​
​ — 1​

​k = 0​​PackByRows​ 1 To n​
​’ используя встроенные​200?’200px’:»+(this.scrollHeight+5)+’px’);»>Sub testRows00()​ ячейки в столбцах​

​ ‘определяем размеры таблицы​​ их.​
​ но и к​ «Главная», найдите панель​ удалять пустые строки​Ещё один способ удаления​ о которых шла​
​ контекстное меню, а​
​gling​ нужно указывать в​If arr1(i, 2)​For i =​

​With Selection​​If Len(v(i, c))​

​ средства, удаляем пустые​​’ переносим ячейки,​

Как удалить пустые ячейки в столбцах сразу в 100 столбцах? (Формулы/Formulas)

​ сразу в 100​​ Application.ScreenUpdating = False​Другим способом выделения пустых​ искажению оставшейся.​ инструментов «Редактирование» и​
​ в Excel.​ использует выделение группы​ речь в первой​ набрать на клавиатуре​: Ошибка, должно быть​ макросе, может кто​ > arr1(i +​
​ 1 To maxRow​.Rows(1).Insert​ = 0 Then​
​ ячейки, со сдвигом​ анализируя содержимое​
​ столбцах?​
​ For r =​
​ ячеек является использование​
​Использование первых двух способов​
​ в меню «Сортировка​
​Откуда могут появляться записи​
​ пустых ячеек. Чтобы​
​ части урока.​
​ сочетание клавиш «Ctrl+-».​
​ так​ переделает под выделение.​
​ 1, 2) Then​If .Cells(i, j)​
​For Each c​
​ Exit For​
​ данных вверх​
​’ работаем с​
​1. Нужно все​ LastColumn To 1​
​ инструмента Выделение группы​ более надежно и​
​ и фильтр» выберите​
​ с отсутствием в​
​ использовать этот способ,​
​Если критически важен порядок​
​Появляется небольшое окошко, в​regnus​ Сортируются столбцы начиная​

​k = i​​ <> «» Then​
​ In .Columns​
​Next​
​’ ПРЕДУПРЕЖДЕНИЕ: сдвигаются​
​ выделенной областью​ данные (не пустые​
​ Step -1 ‘проходим​

​ ячеек.​​ безопасно, поэтому лучше​ пункт «Фильтр». На​

​ них данных? Такое​	​ сначала выделяем всю​	​ размещения ячеек в​
​ котором нужно указать,​	​: Пробую ваш файл,​	​ с нижней строки.​
​fOut = 0​	​k = k + 1​
​c.Cells(0) = WorksheetFunction.CountA(c)​	​’ проверяем остальные​
​ выше данные, расположенные​

​If Selection.Count =​​ ячейки) вывести к​
​ от последнего столбца​выделяем диапазон​ использовать именно их,​ заголовках выделенного столбца​ может наблюдаться при​
​ таблицу. Затем, находясь​
​ таблице, то перед​ что конкретно мы​
​ т.к. вроде он​ Результат не отличается​
​buff1 = arr1(i,​arr2(k, j) =​Next​
​ ячейки в столбце​ на листе ниже​
​ 1 Then Exit​ верху листа, чтобы​
​ до первого If​А2:C17​
​ чтобы удалить пустые​ или столбцов появятся​
​ выгрузке информации из​ во вкладке «Главная»,​
​ тем как совершить​
​ хотим удалить. Выставляем​
​ делает 2 варианта.​ от результата Udik.​
​ 1)​
​ .Cells(i, j)​
​Set c =​For r =​
​ выделенной области​ Sub​
​ понимать длину не​
​ Application.CountA(Columns(r)) = 0​
​;​
​ строки в Excel.​
​ кнопки с направленными​
​ базы данных или​
​ кликаем по кнопке​ сортировку, вставляем в​
​ переключатель в позицию​500 строк и​
​regnus​arr1(i, 1) =​End If​
​ .Offset(-1).Resize(.Rows.Count + 1)​
​ i + 1​’ работаем с​
​For Each col​ пустых ячеек каждого​ Then Columns(r).Delete ‘если​
​выбираем пункт меню Главная/​Автор: Татьяна Казмирчук​
​ вниз треугольниками, показывающие​ экспорте из другого​
​ «Найти и выделить»,​
​ середину таблицы ещё​ «строку». Жмем на​
​ 100 столбцов обрабатывает​
​: Ваш пример работает.​
​ arr1(i + 1,​
​Next i​
​With .Parent.Sort​
​ To n​
​ выделенной областью​
​ In Selection.Columns​
​ столбца.​
​ в столбце пусто​
​ Редактирование/ Найти и​
​Часто, особенно при импорте​​ наличие выпадающего списка.​ файла или приложения.​
​ которая расположена на​​ один столбец.​​ кнопку «OK».​
​ за 1-3 минуты.​
​А мой нет.​ 1)​DoEvents​With .SortFields​
​If Len(v(r, c))​If Selection.Count =​Set cellTo =​2. Нужно подровнять​
​ — удаляем его​ выделить/ Выделение группы​
​ данных в EXCEL,​Теперь раскройте меню этого​ Значения могут быть​
​ ленте в группе​
​Все ячейки этого столбца​После этого, все строки​ Точно не скажу,​

​Вставляет 2 столбца​​arr1(i + 1,​​arrK(j, 1) =​​.Clear​ Then​ 1 Then Exit​ Nothing​ столбцы по длине​ Next r End​

​ ячеек…,​​ на листе могут​ списка. Внизу перечня​ уничтожены вручную без​ инструментов «Редактирование». В​ нумеруем по порядку.​ выделенного диапазона будут​ т.к. при обработке​ в один.​ 1) = buff1​ j​.Add c.Rows(1), xlSortOnValues,​

​v(i, c) =​​ Sub​For Each cell​
​ (слева-направо)​
​ Sub​
​выберите пункт пустые ячейки​ формироваться таблицы с​

​ элементов колонки находится​​ удаления самой строки.​
​ появившемся меню, кликаем​Затем, производим сортировку по​ удалены.​ виснет.​Не сортирует столбцы.​buff1 = arr1(i,​​arrK(j, 2) =​
​ xlDescending​ v(r, c)​Selection.SpecialCells(xlCellTypeBlanks).Delete Shift:=xlUp​ ​ In col.Cells​Есть и пустые​
​Hugo​ в разделе Выделить;​
​ ПОЛНОСТЬЮ пустыми строками.​
​ пункт «Пустые». Выделите​ Так или иначе,​ по пункту «Выделение​
​ любому другому столбцу,​Как альтернативный вариант, можно​А 3000 строк​
​удалено администрацией​ 2)​ k​
​End With​v(r, c) =​
​End Subне подходит​If Not IsEmpty(cell)​ столбцы.​
​: Вообще-то как пустые​
​далее нажимаем маленькую стрелочку​ Научимся быстро удалять​
​ его, предварительно сняв​ с этим явлением​ группы ячеек…».​
​ и удаляем перемещенные​ выделить ячейки в​
​ и 100 столбцов​KSV​
​arr1(i, 2) =​Next j​
​.SetRange c​
​ Empty​
​ по причине, изложенной​
​ Then​
​Есть:​

​ столбцы не удаляй,​​ в меню Главная/​
​ эти ненужные строки,​
​ флажки со всех​ нужно и можно​

​Открывается окно, в котором​​ вниз ячейки, как​​ соответствующих строках, и​​ появляется жесть.​:​ arr1(i + 1,​Call sortArr(arrK)​​.Header = xlNo​​i = i + 1​​ в комментариях. ​​If Not cellTo​111 222 4​ толку не будет​ Ячейки/ Удалить;​ которые в дальнейшем​ остальных элементов. В​ бороться.​

​ переставляем переключатель в​​ уже описывалось выше.​​ находясь во вкладке​​Эксель зависает минут​regnus​ 2)​For i =​​.Orientation = xlLeftToRight​​End If​​regnus​​ Is Nothing Then​
​333 44 55​ — они появятся​выберем Удалить ячейки (удалить​ могут затруднить работу​ результате применения вы​Один из способов, как​ позицию «пустые ячейки».​После этого, чтобы вернуть​ ​ «Главная», кликнуть по​
​ на 20 и​, что у вас​
​arr1(i + 1,​ 1 To maxCln​
​.Apply​Next r, c​
​:​cell.Copy cellTo​11 555​
​ вновь​
​ ячейки, со сдвигом​
​ с таблицей.​
​ оставите только пустые​ удалить пустые строки​
​ Жмем на кнопку​
​ порядок строк к​
​ кнопке «Удалить», которая​ более​
​ не работает?​
​ 2) = buff1​
​For j =​
​End With​Selection = v​
​Nic70y​
​cell.ClearContents​
​111 22 444​
​В чём вообще​
​ вверх).​
​Представим, что у нас​
​ строки Excel. Удалите​
​ в Excel -​
​ «OK».​

​ тому, который уже​​ расположена в блоке​Начинает глючить и​Вариант, предложенный вам​

​End If​
​ 1 To maxRow​
​.Rows(0).Delete​End Sub​, у меня 3000​Set cellTo =​
​55​ проблема? Если хочется​Здесь нужно быть аккуратным:​
​ есть таблица с​ их через список​ использование сортировки. Если​Как видим, после этого,​ был перед сортировкой,​
​ инструментов «Ячейки» на​ не открывает другие​AndreTM​Next i​arrOut(j, maxCln +​End With​
​regnus​ строк и под​ cellTo.Offset(1)​
​11 44​ чтоб справа было​ если таблица сдержит​
​ какими-то значениями, в​ операций правого клика​ необходимо удалить те​
​ все строки, содержащие​ проводим сортировку в​ ленте. После этого,​ файлы.​
​, прекрасно работает.​If fOut Then​
​ 1 — i)​End Sub​: Спасибо. ​
​ 200 столбцов. Медленно​End If​1​
​ серое поле -​
​ помимо пустых строк,​
​ которой есть полностью​ мыши или из​
​ записи, у которых​
​ пустые ячейки, выделились.​ колонке с номерами​
​ сразу произойдет удаление​Приходится перегружать комп. как​
​Вы это пробовали?​
​ Exit Do​ = arr2(j, arrK(i,​
​Udik​
​быстро действительно.​
​ удаляет. Эксель виснет.​
​Else​Нужно1​
​ можно все неиспользуемые​ строки с заполненными​
​ пустые строки.​
​ блока операций «Ячейки»​
​ ни в одной​ Теперь жмем на​
​ строк «От минимального​ без дополнительных диалоговых​
​ будто эксель вирус​ Должно работать достаточно​RBdr = k​ 1))​
​: Вот попробовал сварганить​
​А Нужно 2​
​ Попробую на ночь​
​If cellTo Is​111 222 333​ столбцы скрыть.​
​ и пустыми ячейками,​Приведем методы, которые используются​ вкладки «Главная».​
​ ячейке нет данных,​
​ уже знакомую нам​ к максимальному».​
​ окон.​
​ хватает.​ быстро (приемлимо быстро).​fOut = 1​
​Next j​ с сортировкой столбцов,​
​ сможете?​
​ оставить.​ Nothing Then​
​ 4 55​MihasGrom​
​ то часть ячеек​
​ при удалении пустых​
​Отмечаем таблицу и вызываем​
​ сортировать можно по​
​ кнопку «Удалить», расположенную​
​Как видим, строки выстроились​
​Конечно, способ очень простой​Есть способы не​
​Можно еще на​For i =​
​Next i​ вышло многа букфф​AndreTM​
​_Boroda_​Set cellTo =​
​11 22 44​: суть что бы​
​ перескочит со своих​
​ строк. Зачем нужно​ пункт меню «Выделить​
​ любому столбцу. Если​
​ на ленте в​
​ в прежнем порядке,​ и известный. Но,​ вешать эксель и​
​ время сортировки временно​ RBdr To LBdr​End With​
​200?’200px’:»+(this.scrollHeight+5)+’px’);»>​
​:​
​: Не уверен, но​ cell​
​ 555​ бегунок не бегал​ строк на другие,​
​ удалять пустые строки​ группу ячеек». Он​
​ же только те,​ группе инструментов «Ячейки».​
​ исключая пустые, которые​ является ли он​ ускорить обработку?​
​ отключать обновление экрана​ + 1 Step​
​Sheets(lName).Cells(1 + dR,​
​Public Sub test()​
​regnus​ в качестве предположения​
​End If​
​111 444 55​
​ куда то в​ что испортит таблицу.​ можно прочитать в​ находится в блоке​
​ что не заполнены​После этого, все пустые​ удалены. Теперь, нам​
​ самым удобным, быстрым​
​Serge_007​
​ и авторасчет формул​ -1​
​ 1 + dC).Resize(maxRow,​Dim i As​, а «Нужно 2″​
​ — возможно, код​End If​
​11 44​ дикую даль ,​
​ Если таблица в​ статье Советы по​ команд «Редактирование» и​
​ в определенных колонках​ строки будут удалены​
​ осталось только удалить​
​ и безопасным?​
​:​ (если их у​
​If arr1(i, 2)​
​ maxCln).ClearContents​
​ Integer, j As​

​ в моём варианте​​ будет работать быстрее,​Next​1​​ неудобно окончание массива​​ формате EXCEL 2007,​ построению таблиц.​
​ вызывается операцией «Найти​ — сортируйте только​ из таблицы.​ добавленный столбец с​Если пустые строки расположены​

​regnus​​ вас много)​ < arr1(i -​Sheets(lName).Cells(1 + dR,​ Integer, k As​ (конечно, заменив в​ если удалять пустые​Next​Нужно2​ находить​ то EXCEL не​Самым простым способом удаления​

​ и выделить».​​ эту колонку. Покажем​
​Важное замечание! Последний способ​
​ порядковыми номерами. Выделяем​ в одном месте,​
​, Вы можете выложить​
​200?’200px’:»+(this.scrollHeight+5)+’px’);»>Sub testColumns00()​

​ 1, 2) Then​​ 1 + dC).Resize(maxRow,​​ Integer​​ его вызове процедуру​ не сверху вниз,​
​End Sub​​111 4 55​​MihasGrom​
​ даст испортить таким​ пустых строк является​В окне настроек команды​
​ на примере, как​ нельзя использовать в​ этот столбец. Затем​ то их удаление​ видео с экрана?​Dim c As​ ​k = i​
​ maxCln) = arrOut​Dim dC As​
​testRows00​ как по умолчанию​
​Sub testColumns00()​ 222 333​
​: Ребята, так а​ образом таблицу: появится​
​ сортировка таблицы: выделяем​ выбираем вариант «пустые​
​ это сделать для​ таблицах с перекрывающимися​ кликаем по кнопке​
​ будет довольно легким.​
​Udik​
​ Range​
​fOut = 0​Application.ScreenUpdating = True​
​ Integer, dR As​
​на​
​ Excel делает, а​’ работаем с​
​11 44 555​
​ куда код этот​
​ сообщение «Данная команда​
​ диапазон, в котором​ ячейки» и нажимаем​
​ целиком пустых записей.​
​ диапазонами, и с​
​ на ленте «Удалить».​
​ Но, если они​
​: Я на своём​
​Application.ScreenUpdating = False’​
​buff1 = arr1(i,​
​Application.StatusBar ​Const maxRow As​
​от KSV всё​ по циклу снизу​’ сначала выполняем​
​111 444 55​ «так пользователь».​ диапазонов».​
​А2:C17​Программа отмечает нужные записи.​ в котором часть​
​ находятся в строках,​ выбираем пункт «Удалить​ таблице, то их​
​ ок. 35с.​ActiveSheet.EnableCalculation = False’​arr1(i, 1) =​

​End Sub​​ Integer = 25,​​ равно остается медленной?​​ вверх.​ «сжатие» по строкам​

Как удалить/скрыть столбцы в Excel по условию? Работа со столбцами

1. Откройте в Excel необходимую таблицу. Щелкните левой кнопкой по элементу, который нужно удалить.

2. На вкладке «Главная», в правой части панели, откройте ниспадающее меню «Удалить» и выберите пункт «Удалить ячейки».

3. В дополнительном окне выберите способ удаления (кликните радиокнопку возле необходимой опции):

• «Ячейки со сдвигом влево» — после удаления все элементы, находящиеся в строке по правую сторону переместятся влево;
• «Ячейки со сдвигом вверх» — находящиеся ниже элементы в столбце поднимутся вверх.

Горячие клавиши для удаления строк в MS Excel

Разбирая вопрос «как удалить лишние строки в Excel» будет абсолютно разумно затронуть тему горячих клавиш, способствующих данному процессу. Среди них:

• Ctrl + «-» (удаление выделенной строки);
• Shift + пробел (выделение необходимой строки)
• Ctrl + пробел (выделение необходимого столбца);
• Ctrl + A (выделение зоны с данными);
• Ctrl + Shift + Home, а после Ctrl + Shift + End (выделить весь рабочий диапазон таблицы от первой до последней строки).

Эти комбинации позволяют проводить форматирование таблицы быстрее и комфортнее.

Как удаляются строки и столбцы?

1. Кликните по названию столбца (специальное поле вверху). Вся ячейки в столбце выделятся.

2. Не убирая курсор с подсвеченных элементов, нажмите правую кнопку.

3. В появившемся контекстном меню Excel клацните «Удалить».

4. Аналогичным образом убирается из проекта и строка: выделите её и активируйте соответствующую команду в меню.

Сортировка

Это самый простой способ убрать с вашей рабочей области или вычисляемого диапазона чистые строки. Вам нужно выделить диапазон, выбрать на вкладке «Данные» кнопку «Сортировка» и в предоставленном диалоговом окне выбираем вариант сортировки. Программа всё отсортирует по полочкам, и вы можете удалить пустые строки.

Будьте внимательны! При использовании сортировки в таблице, которая имеет в своем составе несколько столбцов, вы можете нарушить целостность информации, ваши данные могут сместиться на другие ряды. Для избегания этой проблемы при выборе сортировки, нужно выделить всю таблицу и применить сортировку для всего выделенного объема.
Если очень важен порядок следования строк в таблице, вам стоит для начала создать столбик с порядковой нумерацией рядов, а после сортировки и удаления пустых срок в таблице Excel, снова выстроить данные по этому столбику.

Как убирать из таблицы одинаковые ячейки?

Способ #1

1. На вкладке «Данные» нажмите опцию «Удалить дубликаты».

2. В настроечной панели укажите столбец, в котором требуется убрать дубли:

• нажмите «Снять выделение»;
• установите щелчком мышки метку в списке, где требуется.

Внимание! Если требуется убрать дубли во всей таблице, соответственно, метки должны быть установлены в списке возле каждого столбца.

4. По завершении процедуры программа Excel сообщит о том, сколько она нашла и удалила повторяющихся значений.

Способ #2

1. На вкладке «Данные», в блоке «Фильтр», клацните подраздел «Дополнительно».

2. В окне «Расширенный фильтр» укажите, где сохранять отредактированный список (на месте или в отдельный файл).

3. Клацните по окошку «Только уникальные записи». Нажмите «OK».

Метод 3: использование формулы

Этот метод, вряд ли, пользуется большой популярностью у пользователей Эксель, но мы, все же, о нем расскажем. В данном случае будем использовать формулу, которая состоит из нескольких функций.

Для начала нужно задать имя диапазону ячеек, с которым планируем работать. Для этого выделяем его, затем кликаем по нему правой кнопкой мыши и в контекстном меню выбираем команду “Присвоить имя”.

Примечание: в данном случае указаны имена диапазонов, заданные нами. Вам нужно заменить их на свои названия.

Как убрать пустые ячейки?

Способ #1

1. Удерживая левую кнопку, обозначьте границы области таблицы, в пределах которой требуется убрать пустые элементы (содержащие пробелы).

2. Нажмите клавишу «F5».

3. В открывшейся панели клацните «Выделить».

4. Включите кликом мыши опцию «Пустые ячейки». Нажмите «OK».

5. Удалите выделенные элементы через контекстное меню (клацните по ним правой кнопкой).

Примечание. Опытные пользователи используют специальную формулу для удаления пустых элементов. Она записывается в памяти Excel в виде скрипта, написанного на языке Visual Basic. Подробней с этой технологией вы можете ознакомиться на специализированных форумах.

Как макрос работает

В этом макросе, мы используем свойство UsedRange объекта ActiveSheet, чтобы определить диапазон, с которым мы работаем. Свойство UsedRange дает диапазон, который охватывает ячейки, которые были использованы для ввода данных. Затем устанавливает счетчик, который начинается с последнего столбца, используемого диапазона, проверяя, весь ли столбец пуст. Если весь столбец действительно пуст, мы удалим столбец. Мы продолжаем делать то же самое для каждого цикла, каждый раз, когда приращение счетчика двигается к предыдущей колонке.

Удаление столбцов (Power Query)

​ группе. Дополнительные сведения​

​ комбинацию клавиш​
​ контекстном списке действий​
​ не содержат формулы.​ не всегда является​’ сначала выполняем​
​ Exit Do​
​k = k + 1​ листе, или чтобы​нужно1​Else​ ячейки) вывести к​Если есть подозрение, что​ вставить в заполненную​Как убрать пустые​

​ удалить. Если порядок​ строках, чтобы они​ см. в статье​

Удаление столбцов

​Ctrl+Shift+Enter​​ в параметрах вставки​

​Выделяем диапазон, который собираемся​ допустимым. По сути,​ «сжатие» по строкам​RBdr = k​arr2(k, j) =​​ не затереть строку​

​200?’200px’:»+(this.scrollHeight+5)+’px’);»>=ЕСЛИОШИБКА(ИНДЕКС(Лист2!B$1:B$9;НАИМЕНЬШИЙ(ЕСЛИ(Лист2!B$2:B$9<>»»;СТРОКА(Лист2!B$2:B$9);100000);СТРОКА(1:1)));»»)​
​If cellTo Is​
​ верху листа, чтобы​

​ строки в Excel​
​ построения данных важен,​
​ не загромождали рабочее​
​ Функция «Скачать и​
​, вместо обычного нажатия​ выбираем пункт​
​ обрабатывать. Находясь во​
​ элементы можно удалять​If Selection.Count =​
​fOut = 1​
​ .Cells(i, j)​

​ перед выделенным диапазоном.​​потом копировать——Правая кнопка​

​ Nothing Then​ понимать длину не​ повторять процедуру удаления​ через определенный промежуток,​, как удалить отфильтрованные​​ сначала необходимо использовать​

​ пространство. Сейчас будет​
​ преобразовать» в Excel 2021.​
​ кнопки​

​End If​200?’200px’:»+(this.scrollHeight+5)+’px’);»>Sub testColumns00()​
​ ——специальная вставка—-значения​
​Set cellTo =​ пустых ячеек каждого​
​ пустых ячеек из​
​ то смотрите статью​

​ строки в Excel​

​ вставку пустого столбца​
​ рассмотрено, как в​
​Если запрос содержит ненужные​Enter​.​«Главная»​
​ случаях:​
​ Sub​ RBdr To LBdr​
​Next i​
​Dim c As​KSV​ cell​ столбца.​
​ диапазонов, то лучше​
​ «Вставить пустые строки​, поможет функция «Сортировка​ со сквозной нумерацией.​ таблице «Эксель» удалить​
​ столбцы, их можно​
​.​
​Как видим, произошла вставка​
​, жмем на пиктограмму​
​Если строка (столбец) полностью​PackByRows​
​ + 1 Step​DoEvents​ Range​
​: Странно…​
​End If​

Использование ключевого столбца

Ключевой столбец помогает определить, чистая строка или нет. Также важно сохранять порядок строчек, именно поэтому простая сортировка не поможет. Стирание происходит по следующей схеме:

1. Сначала нужно определить, какой столбец будем считать ключевым.
2. При помощи мышки выделить всю таблицу.

Округление чисел в Microsoft Excel

Этот способ хорош тем, что не устраняет строчки только из-за наличия не заполненной группы. Вся информация остается на своих местах.

Сколько столбцов в рабочем листе?

Количество столбцов в Excel варьируется в зависимости от версии, так в версии Excel 2003 столбцов 256, а в версиях 2007 и 2010 уже 16 384. Сумму значений столбца можно узнать, выделив столбец и посмотрев параметр «Сумма выделенных ячеек» в строке состояния. Строка состояния находится внизу окна, под горизонтальной полосой прокрутки.

Состав строки состояния может быть настроен на усмотрение пользователя, для этого необходимо кликнуть правой кнопкой мыши на свободном месте строки состояния. Ниже приведен набор параметров, выводить которые в строке состояния можно путем установки флажка перед соответствующим параметром.

Удаление пустых строк и столбцов в данных

Пустые строки и столбцы могут быть головной болью в таблицах во многих случаях. Стандартные функции сортировки, фильтрации, подведения итогов, создания сводных таблиц и т.д. воспринимают пустые строки и столбцы как разрыв таблицы, не подхватывая данные, расположенные за ними далее. Если таких разрывов много, то удалять их вручную может оказаться весьма затратно, а удалить сразу всех «оптом», используя фильтрацию не получится, т.к. фильтр тоже будет «спотыкаться» на разрывах.

Давайте рассмотрим несколько способов решения этой задачи.

Способ 1. Поиск пустых ячеек

Это, может, и не самый удобный, но точно самый простой способ вполне достойный упоминания.

Предположим, что мы имеем дело вот с такой таблицей, содержащей внутри множество пустых строк и столбцов (для наглядности выделены цветом):

Допустим, мы уверены, что в первом столбце нашей таблицы (колонка B) всегда обязательно присутствует название какого-либо города. Тогда пустые ячейки в этой колонке будут признаком ненужных пустых строк. Чтобы быстро их все удалить делаем следующее:

1. Выделяем диапазон с городами (B2:B26)
2. Нажимаем клавишу F5 и затем кнопку Выделить (Go to Special) или выбираем на вкладке Главная — Найти и выделить — Выделить группу ячеек (Home — Find&Select — Go to special) .
3. В открывшемся окне выбираем опцию Пустые ячейки (Blanks) и жмём ОК – должны выделиться все пустые ячейки в первом столбце нашей таблицы.
4. Теперь выбираем на вкладке Главная команду Удалить — Удалить строки с листа (Delete — Delete rows) или жмём сочетание клавиш Ctrl + минус — и наша задача решена.

Само-собой, от пустых столбцов можно избавиться совершенно аналогично, взяв за основу шапку таблицы.

Способ 2. Поиск незаполненных строк

Как вы, возможно, уже сообразили, предыдущий способ сработает только в том случае, если в наших данных обязательно присутствую полностью заполненные строки и столбцы, за которые можно зацепиться при поиске пустых ячеек. Но что, если такой уверенности нет, и в данных могут содержаться и пустые ячейки в том числе?

Взгляните, например, на следующую таблицу — как раз такой случай:

Здесь подход будет чуть похитрее:

Введём в ячейку A2 функцию СЧЁТЗ (COUNTA) , которая вычислит количество заполненных ячеек в строке правее и скопируем эту формулу вниз на всю таблицу:

К сожалению, со столбцами такой трюк уже не проделать – фильтровать по столбцам Excel пока не научился.

Способ 3. Макрос удаления всех пустых строк и столбцов на листе

Для автоматизации подобной задачи можно использовать и простой макрос. Нажмите сочетание клавиш Alt + F11 или выберите на вкладке Разработчик — Visual Basic (Developer — Visual Basic Editor) . Если вкладки Разработчик не видно, то можно включить ее через Файл — Параметры — Настройка ленты (File — Options — Customize Ribbon) .

В открывшемся окне редактора Visual Basic выберите команду меню Insert — Module и в появившийся пустой модуль скопируйте и вставьте следующие строки:

Закройте редактор и вернитесь в Excel.

Теперь нажмите сочетание Alt + F8 или кнопку Макросы на вкладке Разработчик. В открывшемся окне будут перечислены все доступные вам в данный момент для запуска макросы, в том числе только что созданный макрос DeleteEmpty. Выберите его и нажмите кнопку Выполнить (Run) — все пустые строки и столбцы на листе будут мгновенно удалены.

Способ 4. Запрос Power Query

Ещё один способ решить нашу задачу и весьма частый сценарий — это удаление пустых строк и столбцов в Power Query.

Сначала давайте загрузим нашу таблицу в редактор запросов Power Query. Можно конвертировать её в динамическую «умную» сочетанием клавиш Ctrl+T или же просто выделить наш диапазон данных и дать ему имя (например Данные) в строке формул, преобразовав в именованный:

Теперь используем команду Данные — Получить данные — Из таблицы/диапазона (Data — Get Data — From table/range) и грузим всё в Power Query:

Дальше всё просто:

1. Удаляем пустые строки командой Главная — Сократить строки — Удалить строки — Удалить пустые строки (Home — Remove Rows — Remove empty rows).
2. Щёлкаем правой кнопкой мыши по заголовку первого столбца Город и выбираем в контекстном меню команду Отменить свёртывание других столбцов (Unpivot Other Columns). Наша таблица будет, как это технически правильно называется, нормализована — преобразована в три столбца: город, месяц и значение с пересечения города и месяца из исходной таблицы. Особенность этой операции в Power Query в том, что она пропускает в исходных данных пустые ячейки, что нам и требуется: