Перейти к основному содержанию

Как удалить все пустые строки или только первую строку в ячейке в Excel?

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

Удалить все пустые строки в ячейках с кодом VBA
Удалите только первую строку в ячейках с кодом VBA


Удалить все пустые строки в ячейках с кодом VBA

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

1. нажмите другой + F11 клавиши на клавиатуре, затем он открывает Microsoft Visual Basic для приложений окно.

2. в Microsoft Visual Basic для приложений окна, нажмите Вставить > Модули. Затем скопируйте и вставьте приведенный ниже код VBA в Модули окно.

Код VBA: удалить все пустые строки в ячейках

Sub DoubleReturn()
Dim xRng As Range, xCell As Range
Dim I As Integer
On Error Resume Next
Set xRng = Application.InputBox("Please select range:", "Kutools for Excel", Selection.Address, , , , , 8)
If xRng Is Nothing Then Exit Sub
On Error Resume Next
For Each xCell In xRng
  For I = 1 To Len(xCell) - Len(WorksheetFunction.Substitute(xCell, Chr(10), ""))
   xCell = Replace(xCell, Chr(10) + Chr(10), Chr(10))
  Next
Next
End Sub

3. нажмите F5 ключ для запуска кода. Затем выберите ячейки с пустыми строками, которые вы удалите в Kutools for Excel диалоговое окно. И, наконец, нажмите кнопку OK .

Затем вы увидите, что все пустые строки удаляются из указанных ячеек, как показано ниже. Тексты по-прежнему расположены в разных строках.


Удалите только первую строку в ячейках с кодом VBA

Как показано на снимке экрана ниже, чтобы удалить первую строку в ячейках A2 и A3, может помочь следующий код VBA.

1. нажмите другой + F11 , чтобы открыть Microsoft Visual Basic для приложений окно.

2. в Microsoft Visual Basic для приложений окна, нажмите Вставить > Модули. Затем скопируйте и вставьте приведенный ниже код VBA в Модули окно.

Код VBA: удалить только первую строку в ячейках

Option Explicit
Sub RemoveFirstLine(ByRef Target As Range)
    Dim xCell As Range
    For Each xCell In Target.Cells
        xCell.Value = Right(xCell.Value, Len(xCell.Value) - InStr(1, xCell.Value, vbLf))
    Next
End Sub

Sub StartRemove()
Dim xRng As Range
   On Error Resume Next
   Set xRng = Application.InputBox("Please select range:", "Kutools for Excel", Selection.Address, , , , , 8)
   If xRng Is Nothing Then Exit Sub
   On Error Resume Next
   RemoveFirstLine xRng
End Sub

3. нажмите F5 ключ для запуска кода. В всплывающем Kutools for Excel диалоговое окно, выберите ячейки, которые вам нужно удалить, только первую строку, а затем нажмите кнопку OK .

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


Связанная статья:

Лучшие инструменты для офисной работы

🤖 Kutools AI Помощник: Революционный анализ данных на основе: Интеллектуальное исполнение   |  Генерировать код  |  Создание пользовательских формул  |  Анализ данных и создание диаграмм  |  Вызов функций Kutools...
Популярные опции: Найдите, выделите или определите дубликаты   |  Удалить пустые строки   |  Объедините столбцы или ячейки без потери данных   |   Раунд без формулы ...
Супер поиск: Множественный критерий VLookup    VLookup с несколькими значениями  |   VLookup по нескольким листам   |   Нечеткий поиск ....
Расширенный раскрывающийся список: Быстрое создание раскрывающегося списка   |  Зависимый раскрывающийся список   |  Выпадающий список с множественным выбором ....
Менеджер столбцов: Добавить определенное количество столбцов  |  Переместить столбцы  |  Переключить статус видимости скрытых столбцов  |  Сравнить диапазоны и столбцы ...
Рекомендуемые функции: Сетка Фокус   |  Просмотр дизайна   |   Большой Формулный Бар    Менеджер книг и листов   |  Библиотека ресурсов (Авто текст)   |  Выбор даты   |  Комбинировать листы   |  Шифровать/дешифровать ячейки    Отправлять электронные письма по списку   |  Суперфильтр   |   Специальный фильтр (фильтровать жирным шрифтом/курсивом/зачеркиванием...) ...
15 лучших наборов инструментов12 Текст Инструменты (Добавить текст, Удалить символы, ...)   |   50+ График Тип (Диаграмма Ганта, ...)   |   40+ Практических Формулы (Рассчитать возраст по дню рождения, ...)   |   19 Вносимые Инструменты (Вставить QR-код, Вставить изображение из пути, ...)   |   12 Конверсия Инструменты (Числа в слова, Конверсия валюты, ...)   |   7 Слияние и разделение Инструменты (Расширенные ряды комбинирования, Разделить клетки, ...)   |   ... и более

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

Описание


Вкладка Office: интерфейс с вкладками в Office и упрощение работы

  • Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
  • Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
  • Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!
Comments (8)
Rated 5 out of 5 · 1 ratings
This comment was minimized by the moderator on the site
This Works it removed my all lines but the only issue is it is taking so much time to run for a single cell and i have big data with me to do it and i think it is gonna take tooo much time for that
This comment was minimized by the moderator on the site
Hi Tanveer Khan,
The code runs at normal speed on my side. Can you tell me which Excel version are you using?
This comment was minimized by the moderator on the site
This is my first VBA, I have only got up to your first step and it has solved my problem, so far. I have printed your instructions for future reference. So far I am wrapt. Fabulous instruction too, thank you for your quality skills and detailing them.
Rated 5 out of 5
This comment was minimized by the moderator on the site
Jeg forstår desværre ikke et kvæk af ovenstående. Findes der ikke en nem og ligetil måde at fjerne tomme linier i Exell? Helst uden koder og andet mystisk!

Med venlig hilsen
Lene
This comment was minimized by the moderator on the site
Hello,
If you don't want to keep the original texts in different lines in cells, you can apply the following methods to get it done.
1. Use the Find & Replace feature:
Press the Ctrl + H keys. In the opening Find and Replace dialog box, click to activate the Find what box. Hold down the Alt key while typing 010 on the numeric keypad. Keep the Replace with box empty, click the Replace All button. But all the texts is concentrated on the same line.
2. Use the following formula in a helper column:
=SUBSTITUTE(A1, CONCATENATE(CHAR(13),CHAR(10),CHAR(13),CHAR(10)),CONCATENATE(CHAR(13),CHAR(10)))
where A1 is the cell you want to process.
This comment was minimized by the moderator on the site
Do you know how to adapt this to remove the last line instead of the first line, please? TIA
This comment was minimized by the moderator on the site
Hi,
this works awesome. How can I adjust the code to remove only the lines, not starting with numeric characters?

Thanks and best,
Jack
This comment was minimized by the moderator on the site
Hi Jack,
Sorry can't help you with that yet. Thank you for your comment.
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations