Як видалити всі порожні рядки або лише перший рядок у комірці в Excel?
Ви можете отримати книгу з кількома рядками, що змішуються з пробілами в клітинках. Як видалити ці порожні рядки в клітинках? А як щодо видалення лише першого рядка? Ця стаття допоможе вам поетапно з цим впоратися.
Видаліть усі порожні рядки з комірок із кодом VBA
Видаліть лише перший рядок у клітинках із кодом VBA
Видаліть усі порожні рядки з комірок із кодом VBA
Як показано на знімку екрана нижче, щоб видалити всі порожні рядки в клітинках, ви можете запустити такий код VBA.
1 Натисніть кнопку інший + F11 клавіші на клавіатурі, потім відкривається a Microsoft Visual Basic для додатків вікна.
2 В Microsoft Visual Basic для додатків вікна, натисніть Insert > Модулі. Потім скопіюйте та вставте наведений нижче код 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 діалогове вікно. І нарешті натисніть OK кнопки.
Потім ви побачите, що всі порожні рядки видаляються з указаних комірок, як показано на знімку екрана нижче. Тексти, як і раніше, розташовані в різних рядках.
Видаліть лише перший рядок у клітинках із кодом VBA
Як показано на знімку екрана нижче, для видалення першого рядка в клітинках A2 і A3 може допомогти наступний код VBA.
1 Натисніть кнопку інший + F11 ключі, щоб відкрити Microsoft Visual Basic для додатків вікна.
2 В Microsoft Visual Basic для додатків вікна, натисніть Insert > Модулі. Потім скопіюйте та вставте наведений нижче код 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 у діалоговому вікні виберіть комірки, які потрібно видалити, лише перший рядок, а потім клацніть OK кнопки.
Тоді ви можете побачити, як усі перші рядки видаляються із зазначених комірок, як показано на знімку екрана.
Пов'язані статті:
Найкращі інструменти продуктивності офісу
Покращуйте свої навички Excel за допомогою Kutools для Excel і відчуйте ефективність, як ніколи раніше. Kutools для Excel пропонує понад 300 додаткових функцій для підвищення продуктивності та економії часу. Натисніть тут, щоб отримати функцію, яка вам найбільше потрібна...
Вкладка Office Передає інтерфейс із вкладками в Office і значно полегшує вашу роботу
- Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
- Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
- Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!
