Note: The other languages of the website are Google-translated. Back to English

Как удалить все пустые строки или только первую строку в ячейке в 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 for Excel решает большинство ваших проблем и увеличивает вашу производительность на 80%

  • Снова использовать: Быстро вставить сложные формулы, диаграммы и все, что вы использовали раньше; Зашифровать ячейки с паролем; Создать список рассылки и отправлять электронные письма ...
  • Бар Супер Формулы (легко редактировать несколько строк текста и формул); Макет для чтения (легко читать и редактировать большое количество ячеек); Вставить в отфильтрованный диапазон...
  • Объединить ячейки / строки / столбцы без потери данных; Разделить содержимое ячеек; Объединить повторяющиеся строки / столбцы... Предотвращение дублирования ячеек; Сравнить диапазоны...
  • Выберите Дубликат или Уникальный Ряды; Выбрать пустые строки (все ячейки пустые); Супер находка и нечеткая находка во многих рабочих тетрадях; Случайный выбор ...
  • Точная копия Несколько ячеек без изменения ссылки на формулу; Автоматическое создание ссылок на несколько листов; Вставить пули, Флажки и многое другое ...
  • Извлечь текст, Добавить текст, Удалить по позиции, Удалить пробел; Создание и печать промежуточных итогов по страницам; Преобразование содержимого ячеек в комментарии...
  • Суперфильтр (сохранять и применять схемы фильтров к другим листам); Расширенная сортировка по месяцам / неделям / дням, периодичности и др .; Специальный фильтр жирным, курсивом ...
  • Комбинируйте книги и рабочие листы; Объединить таблицы на основе ключевых столбцов; Разделить данные на несколько листов; Пакетное преобразование xls, xlsx и PDF...
  • Более 300 мощных функций. Поддерживает Office/Excel 2007-2021 и 365. Поддерживает все языки. Простое развертывание на вашем предприятии или в организации. Полнофункциональная 30-дневная бесплатная пробная версия. 60-дневная гарантия возврата денег.
вкладка kte 201905

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

  • Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
  • Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
  • Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!
офисный дно
Сортировать комментарии по
Комментарии (8)
Номинальный 5 из 5 · рейтинги 1
Этот комментарий был сведен к минимуму модератором на сайте
Здравствуйте,
это работает потрясающе. Как я могу настроить код, чтобы удалить только строки, не начинающиеся с числовых символов?

Спасибо и всего наилучшего,
разъем
Этот комментарий был сведен к минимуму модератором на сайте
Привет, Джек,
Извините, пока не могу вам с этим помочь. Спасибо за ваш комментарий.
Этот комментарий был сведен к минимуму модератором на сайте
Вы знаете, как адаптировать это, чтобы удалить последнюю строку вместо первой, пожалуйста? ТИА
Этот комментарий был сведен к минимуму модератором на сайте
Jeg forstår desværre ikke и др kvæk аф печиstående. Findes der ikke en nem og ligetil måde at fjerne tomme linier i Exell? Помощь в кодировании и мистике!

Искренне ваш
Лене
Этот комментарий был сведен к минимуму модератором на сайте
Здравствуйте,
Если вы не хотите сохранять исходные тексты в разных строках в ячейках, вы можете применить следующие методы, чтобы сделать это.
1. Используйте функцию «Найти и заменить».:
Нажмите клавиши Ctrl + H. В открывшемся диалоговом окне «Найти и заменить» щелкните, чтобы активировать поле «Найти». Удерживая нажатой клавишу Alt, наберите 010 на цифровой клавиатуре. Оставьте поле «Заменить на» пустым, нажмите кнопку «Заменить все». Но все тексты сосредоточены на одной строке.
2. Используйте следующую формулу во вспомогательном столбце:
=SUBSTITUTE(A1, CONCATENATE(CHAR(13),CHAR(10),CHAR(13),CHAR(10)),CONCATENATE(CHAR(13),CHAR(10)))
где A1 — это ячейка, которую вы хотите обработать.
Этот комментарий был сведен к минимуму модератором на сайте
Это мой первый VBA, я только дошел до вашего первого шага, и пока он решил мою проблему. Я распечатал ваши инструкции для дальнейшего использования. Пока что я запутался. Невероятная инструкция тоже, спасибо за ваши качественные навыки и детализировать их.
Номинальный 5 из 5
Этот комментарий был сведен к минимуму модератором на сайте
Это работает, он удалил все мои строки, но единственная проблема в том, что для запуска одной ячейки требуется так много времени, и у меня есть большие данные, чтобы сделать это, и я думаю, что это займет слишком много времени для этого
Этот комментарий был сведен к минимуму модератором на сайте
Привет Танвир Хан,
Код работает с нормальной скоростью на моей стороне. Скажите, какую версию Excel вы используете?
Здесь еще нет комментариев
Оставляйте свои комментарии
Публикация как гость
×
Оценить этот пост:
0   Характеристики
Предлагаемые места

Подписывайтесь на Нас

Copyright © 2009 - www.extendoffice.ком. | Все права защищены. Питаться от ExtendOffice, | Карта сайта
Microsoft и логотип Office являются товарными знаками или зарегистрированными товарными знаками Microsoft Corporation в США и / или других странах.
Защищено Sectigo SSL