Удалить строку vba word
Если вам приходится работать с таблицами в Ворде, то, думаю, вам ни раз приходил вопрос: Как удалить строку или столбец в таблице? Давайте разберем два метода удаления: вручную и автоматически.
В ручную мы можем удалить любые строку или столбец в таблице. Также можно удалить пустые строки и столбы в Ворде с помощью скрипта VBA, который удалит их самостоятельно.
- Удалить вручную строку или столбец
- Удалить с помощью скрипта VBA все пустые строки и столбцы
- 1 Удалить вручную строку или столбец
- 2 Удалить с помощью скрипта VBA все пустые строки и столбцы
Удалить вручную строку или столбец
Данный метод проверялся в Word 2007, 2010, 2013.
Шаг 1.
Выделите левой кнопкой мыши строку или столбец, который вы желаете удалить. Подведите курсор к краю таблицы, чтобы курсор изменил свой вид. Смотрите на скриншот, как это сделать.
Шаг 2.
В ленте в разделе «Работа с таблицами» откройте вкладку «Макет».
Шаг 3.
В разделе «Строки и столбцы» найдите кнопку «Удаление», и в выпадающем списке выберите нужное вам действие.
В Word 2010-2013 в выплывающем окне есть этот же список по удалению столбцов и строк из таблицы.
Удалить с помощью скрипта VBA все пустые строки и столбцы
Если вы желаете подчистить таблицу в Ворде от пустых строк и столбцов, то ручной метод может быть довольно утомительным, если, скажем, у вас большая таблица. Для этого можно прибегнуть к помощи VBA, который сделает все это за вас.
Данный метод проверялся в Word 2007, 2010, 2013
Как пользоваться скриптами VBA в Word читайте здесь >>>
Скопируйте этот скрипт и запустите его выполнение.
Sub DeleteEmptyTablerowsandcolumns()Application.ScreenUpdating = FalseDim Tbl As Table, cel As Cell, i As Long, n As Long, fEmpty As BooleanWith ActiveDocumentFor Each Tbl In .Tablesn = Tbl.Columns.CountFor i = n To 1 Step −1fEmpty = TrueFor Each cel In Tbl.Columns(i).CellsIf Len(cel.Range.Text) > 2 ThenfEmpty = FalseExit ForEnd IfNext celIf fEmpty = True Then Tbl.Columns(i).DeleteNext iNext TblEnd WithWith ActiveDocumentFor Each Tbl In .Tablesn = Tbl.Rows.CountFor i = n To 1 Step −1fEmpty = TrueFor Each cel In Tbl.Rows(i).CellsIf Len(cel.Range.Text) > 2 ThenfEmpty = FalseExit ForEnd IfNext celIf fEmpty = True Then Tbl.Rows(i).DeleteNext iNext TblEnd WithSet cel = Nothing: Set Tbl = NothingApplication.ScreenUpdating = TrueEnd Sub
Как удалить пустые строки в Word?
В документе, загруженном из Интернета, слишком много пустых строк (перенос строк вручную). Чтобы сэкономить бумагу и место, нам нужно удалить все пустые строки. Есть ли более простой способ удалить все пустые строки вместо того, чтобы удалять каждую вручную? В этом руководстве будут перечислены три доступных метода для удаления всех пустых строк в целом или для выбора документов:
If there are multiple manual empty lines in your Word documnet, to quickly remove all of them, Kutools for Word suupots a uesful tool-Remove Empty Manual Line Breaks which can help you finish this job as soon as possible.
Kutools for Word: with more than 100 handy Word add-ins, free to try with no limitation in 60 days. Click to Download and free trial Now!
Удалите все пустые строки с помощью параметра Найти и заменить
Найти и заменить функция в Word обычно используется для удаления всех пустых строк, но вы должны знать, что пустые строки называются Ручной перенос строки в Найдите то, что опцию.
1. Нажмите Замените на Главная таб. Смотрите скриншот:
2. Когда Найти и заменить появится диалоговое окно, нажмите Подробнее >> кнопку, чтобы отобразить дополнительные параметры. Затем поместите курсор в Найдите то, что поле и выберите Ручной разрыв строки из Особый выпадающее меню, см. снимок экрана:
3. Там будет " ^l ”Персонаж в Найдите то, что поле и нажмите Заменить все. Все ручные разрывы строк были удалены сразу, см. Снимок экрана:
Удалите все пустые строки с помощью VBA
В качестве альтернативы вы можете использовать макрос для удаления всех пустых строк, если вы хорошо разбираетесь в коде VBA, и вы можете следовать приведенным ниже инструкциям, например:
1, нажмите Alt + F11 для открытия Microsoft Visual Basic для приложений окно.
2. Нажмите Вставить > Модули, а затем скопируйте приведенный ниже код VBA в окно модуля.
Код VBA: удаление всех ручных разрывов строк в документе:
3. Затем нажмите Запустить Sub кнопку для запуска кода, все ручные разрывы строк будут удалены.
Удалите все пустые строки с помощью kutools for Word
Вышеупомянутые методы требуют нескольких шагов для удаления всех пустых строк, но с Kutools for Word, только один щелчок мыши поможет вам завершить эту операцию.
1. Пожалуйста, примените эту утилиту, нажав Кутулс > Пустые параграфы > Удалить пустые разрывы строк вручную. Смотрите скриншот:
2. Затем появится диалоговое окно с напоминанием об удалении всех пустых строк, нажмите Да кнопку, см. снимок экрана:
3. После нажатия Да, вы можете видеть, что все пустые строки удалены из документа. Смотрите скриншот:
Внимание: Если вам просто нужно удалить пустые строки в выделении, вы должны выбрать диапазон перед применением этой функции.
Демонстрация: удаление всех пустых строк в Word
Kutools for Word: с более чем 100 удобными надстройками Word, которые можно попробовать бесплатно без ограничений в течение 60 дней. Загрузите и бесплатную пробную версию прямо сейчас!
Как удалить все пустые строки и столбцы из таблиц в Word? В этом руководстве показано несколько способов удаления пустых строк и столбцов из таблиц в документе Word.
Удалите все пустые строки и столбцы из таблиц одним щелчком мыши
Вручную удалить все пустые строки и столбцы из таблиц
Microsoft Office Word не предоставляет удобный способ удаления пустых строк и столбцов, и вам необходимо удалить их, вручную выбрав каждую пустую строку и столбец, а затем удаляя их по одному.
Шаг 1: Выберите пустую строку или пустой столбец, который вы хотите удалить. Смотрите скриншот:
Шаг 3: Под Настольные Инструменты, щелкните значок макет вкладка;
Шаг 4: в Строки и столбцы группу, нажмите Удалить строки или Удалить столбцы.
Удалите все пустые строки и столбцы из таблиц с помощью кода VBA
Макрофункция Word предоставляет гораздо более удобный способ удалить все пустые строки и столбцы из таблиц в документе. Вы можете удалить все пустые строки и столбцы следующим образом.
Шаг 1: нажмите «Alt-F11» открыть окно Microsoft Visual Basic для приложений;
Шаг 2: нажмите Модули на Вставить вкладку, скопируйте и вставьте следующий код VBA в окно модуля;
Шаг 3: Затем нажмите Run кнопку, чтобы применить VBA.
Код VBA для удаления всех пустых строк и столбцов из таблиц:
Sub DeleteEmptyTablerowsandcolumns ()
Приложение.ScreenUpdating = False
Dim Tbl As Table, cel As Cell, i As Long, n As Long, fEmpty As Boolean
С ActiveDocument
Для каждого тбл в. Таблицах
n = Таблица.Столбцов.Количество
Для i = n To 1 Шаг -1
fПусто = Истина
Для каждой ячейки в Tbl.Columns (i) .Cells
Если Len (cel.Range.Text)> 2, то
fEmpty = Ложь
Выход для
End If
Следующий чел
Если fEmpty = True, то Tbl.Columns (i) .Delete
Затем я
Следующая таблица
Конец с
С ActiveDocument
Для каждого тбл в. Таблицах
n = Tbl.Rows.Count
Для i = n To 1 Шаг -1
fПусто = Истина
Для каждой ячейки In Tbl.Rows (i) .Cells
Если Len (cel.Range.Text)> 2, то
fEmpty = Ложь
Выход для
End If
Следующий чел
Если fEmpty = True, то Tbl.Rows (i) .Delete
Затем я
Следующая таблица
Конец с
Set cel = Nothing: Set Tbl = Nothing.
Application.ScreenUpdating = True
End Sub
Удалите все пустые строки и столбцы из таблиц одним щелчком мыши
Kutools for Word предоставляет вам наиболее удобный способ удалить все пустые строки и столбцы из таблиц в документе. Вам просто нужно щелкнуть один раз, и Kutools for Wordс Delete Rows/Columns Утилита быстро удалит все пустые строки и столбцы из всех или выбранных таблиц.
После установки Kutools for Word, сделайте, как показано ниже: (Бесплатная загрузка Kutools for Word прямо сейчас!)
1. Нажмите Кутулс Плюс > Delete Rows/Columns на Table панель.
2. Затем появится диалоговое окно, выберите область, из которой вы хотите удалить таблицы, в разделе Искать в, затем отметьте Строка вариант и Пустая строка вариант или чек Колонка вариант и Пустая строка вариант как вам нужно. Если вы хотите удалить все пустые строки и столбцы, вам нужно применить эту операцию дважды.
| |
Появится диалоговое окно, напоминающее вам, сколько таблиц было обработано, щелкните OK чтобы закрыть, а пустые строки и столбцы были удалены из таблиц.
Демонстрация: удаление пустых строк и столбцов из таблиц в Word
Наконечник.Если вы хотите удалить пустые строки с листа Excel, Удалить пустые строки Утилита Kutools for Excel может вам помочь.
Как удалить строки над активной ячейкой или конкретным текстом в Excel?
Удалите строки выше с кодами VBA
Здесь я представляю вам два кода VBA: один - удалить строки над активной (выбранной ячейкой), другой - удалить строки над указанным текстом.
1. Выберите ячейку, над которой вы хотите удалить строки, и нажмите Alt + F11 ключи для открытия Microsoft Visual Basic для приложений окно.
2. Нажмите Вставить > Модули, и вставьте ниже код в Модули скрипты.
VBA: удалить строки над активной ячейкой
3. Нажмите F5 key, то строки над активной ячейкой были удалены. Смотрите скриншот:
Если вы хотите удалить строки над указанным текстом, вы можете использовать VBA ниже.
VBA: удалить строки над указанным текстом
Примечание:
1. В коде Общая группа это текст, который вы хотите найти, вы можете изменить его по своему усмотрению.
2. Если найденный текст уже был в первой строке, появится диалоговое окно с напоминанием.
3. Если найденный текст не существует на листе, появится диалоговое окно, как показано на скриншоте ниже, чтобы напомнить вам.
Пустые строки и столбцы могут быть головной болью в таблицах во многих случаях. Стандартные функции сортировки, фильтрации, подведения итогов, создания сводных таблиц и т.д. воспринимают пустые строки и столбцы как разрыв таблицы, не подхватывая данные, расположенные за ними далее. Если таких разрывов много, то удалять их вручную может оказаться весьма затратно, а удалить сразу всех "оптом", используя фильтрацию не получится, т.к. фильтр тоже будет «спотыкаться» на разрывах.
Давайте рассмотрим несколько способов решения этой задачи.
Способ 1. Поиск пустых ячеек
Это, может, и не самый удобный, но точно самый простой способ вполне достойный упоминания.
Предположим, что мы имеем дело вот с такой таблицей, содержащей внутри множество пустых строк и столбцов (для наглядности выделены цветом):
Допустим, мы уверены, что в первом столбце нашей таблицы (колонка B) всегда обязательно присутствует название какого-либо города. Тогда пустые ячейки в этой колонке будут признаком ненужных пустых строк. Чтобы быстро их все удалить делаем следующее:
- Выделяем диапазон с городами (B2:B26)
- Нажимаем клавишу F5 и затем кнопку Выделить (Go to Special) или выбираем на вкладке Главная - Найти и выделить - Выделить группу ячеек (Home - Find&Select - Go to special) .
- В открывшемся окне выбираем опцию Пустые ячейки (Blanks) и жмём ОК – должны выделиться все пустые ячейки в первом столбце нашей таблицы.
- Теперь выбираем на вкладке Главная команду Удалить - Удалить строки с листа (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:
Дальше всё просто:
- Удаляем пустые строки командой Главная - Сократить строки - Удалить строки - Удалить пустые строки (Home - Remove Rows - Remove empty rows).
- Щёлкаем правой кнопкой мыши по заголовку первого столбца Город и выбираем в контекстном меню команду Отменить свёртывание других столбцов (Unpivot Other Columns). Наша таблица будет, как это технически правильно называется, нормализована - преобразована в три столбца: город, месяц и значение с пересечения города и месяца из исходной таблицы. Особенность этой операции в Power Query в том, что она пропускает в исходных данных пустые ячейки, что нам и требуется:
Читайте также: