Как удалить все пустые строки или только первую строку в ячейке Excel?
У вас есть книга, в ячейках которой содержится многострочный текст с пустыми строками. Как удалить эти пустые строки из ячеек? А если нужно удалить только первую строку? В этой статье пошагово описан весь процесс.
Удаление всех пустых строк в ячейках с помощью кода VBA
Удаление только первой строки в ячейках с помощью кода VBA
Удаление всех пустых строк в ячейках с помощью кода VBA
Как показано на снимке экрана ниже, чтобы удалить все пустые строки в ячейках, просто выполните следующий код VBA.
1. Нажмите на клавиатуре комбинацию клавиш Alt+F11, после чего откроется окно Microsoft Visual Basic for Applications.
2. В окне Microsoft Visual Basic for Applications выберите пункт Вставить > Модуль. Затем скопируйте и вставьте приведённый ниже код 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 Sub3. Нажмите клавишу F5, чтобы запустить код. Затем в диалоговом окне Kutools для Excel выберите ячейки с пустыми строками, которые необходимо удалить, и нажмите кнопку ОК.
Как видно на приведённом ниже снимке экрана, все пустые строки из указанных ячеек удалены, при этом текст по-прежнему остаётся размещённым на разных строках.
Удаление только первой строки в ячейках с помощью кода VBA
Как показано на снимке экрана ниже, для удаления первой строки в ячейках A2 и A3 можно использовать следующий код VBA.
1. Нажмите комбинацию клавиш Alt+F11, чтобы открыть окно Microsoft Visual Basic for Applications.
2. В окне Microsoft Visual Basic for Applications выберите пункт Вставить > Модуль. Затем скопируйте и вставьте приведённый ниже код 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 Sub3. Нажмите клавишу F5, чтобы запустить код. В появившемся диалоговом окне Kutools для Excel выберите ячейки, в которых нужно удалить только первую строку, и нажмите кнопку ОК.
Как видно на приведённом ниже снимке экрана, первые строки удалены из указанных ячеек.
Связанная статья:
Лучшие инструменты повышения продуктивности в Office
Раскройте весь потенциал Excel с помощью Kutools для Excel и ощутите эффективность как никогда раньше.Kutools для Excel предлагает более 300 расширенных функций для повышения продуктивности и Экономия времени.Нажмите здесь, чтобы получить нужную Вам функцию…
Office Tab добавляет в Office вкладки и значительно упрощает Вашу работу
- Включите редактирование и чтение во вкладках в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Открывайте и создавайте несколько документов во вкладках одного окна — вместо того чтобы использовать отдельные окна.
- Повышает вашу продуктивность на 50 % и экономит сотни кликов мышью каждый день!
Все надстройки Kutools — один установщик
Kutools for Office — набор надстроек для Excel, Word, Outlook и PowerPoint, а также Office Tab Pro, идеально подходящий командам, работающим с разными приложениями Office.
- Единый комплект— надстройки для Excel, Word, Outlook и PowerPoint + Office Tab Pro
- Один установщик, одна лицензия— настройка занимает считанные минуты (готово для MSI)
- Лучше работать вместе— оптимизированная продуктивность во всех приложениях Office
- 30-дневная полнофункциональная пробная версия— без регистрации и кредитной карты
- Лучшее соотношение цены и качества— экономия по сравнению с покупкой отдельных надстроек