Як видалити всі порожні рядки або лише перший рядок у комірці в Excel?

Ви можете отримати книгу з кількома рядками, що змішуються з пробілами в клітинках. Як видалити ці порожні рядки в клітинках? А як щодо видалення лише першого рядка? Ця стаття допоможе вам поетапно з цим впоратися.

Видаліть усі порожні рядки з комірок із кодом VBA
Видаліть лише перший рядок у клітинках із кодом VBA

Видаліть усі порожні рядки з комірок із кодом VBA

Дивовижний! Використання ефективних вкладок в Excel, як Chrome, Firefox та Safari!

Заощаджуйте 50% свого часу та зменшуйте тисячі клацань миші щодня!

---

Як показано на знімку екрана нижче, щоб видалити всі порожні рядки в клітинках, ви можете запустити такий код 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 Sub

3 Натисніть кнопку 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 Sub

3 Натисніть кнопку F5 клавіша для запуску коду. У спливаючому Kutools для Excel у діалоговому вікні виберіть комірки, які потрібно видалити, лише перший рядок, а потім клацніть OK кнопки.

Тоді ви можете побачити, як усі перші рядки видаляються із зазначених комірок, як показано на знімку екрана.

Пов'язані статті:

• Як виділити жирним шрифтом лише перший рядок або перше слово в комірці в Excel?

---

Найкращі інструменти для підвищення продуктивності офісу

Kutools для Excel вирішує більшість ваших проблем і збільшує продуктивність на 80%

• Повторне використання: Швидко вставте складні формули, діаграми і все, що ви використовували раніше; Шифрувати комірки з паролем; Створити список розсилки та надсилати електронні листи ...
• Супер формула бар (легко редагувати кілька рядків тексту та формули); Макет читання (легко читати та редагувати велику кількість комірок); Вставте у відфільтрований діапазон...
• Об’єднати клітинки / рядки / стовпці без втрати даних; Вміст розділених комірок; Об'єднати повторювані рядки / стовпці... Запобігання дублюючим клітинам; Порівняйте діапазони...
• Виберіть Повторюваний або Унікальний Рядки; Виберіть Пусті рядки (усі клітинки порожні); Супер знахідка та нечітка знахідка у багатьох робочих зошитах; Випадковий вибір ...
• Точна копія Кілька клітинок без зміни посилання на формулу; Автоматичне створення посилань на кілька аркушів; Вставте кулі, Прапорці та інше ...
• Витяг тексту, Додати текст, Видалити за позицією, Видаліть пробіл; Створення та друк проміжних підсумків підкачки; Перетворення вмісту комірок та коментарів...
• Супер фільтр (зберегти та застосувати схеми фільтрів до інших аркушів); Розширене сортування за місяцем / тижнем / днем, частотою та іншим; Спеціальний фільтр жирним, курсивом ...
• Поєднайте робочі зошити та робочі аркуші; Об’єднати таблиці на основі ключових стовпців; Розділіть дані на кілька аркушів; Пакетне перетворення xls, xlsx та PDF...
• Понад 300 потужних функцій. Підтримує Office / Excel 2007-2021 і 365. Підтримує всі мови. Легке розгортання на вашому підприємстві чи в організації. 30-денна безкоштовна пробна версія повних функцій. 60-денна гарантія повернення грошей.

Детальніше ... Завантажити безкоштовно... Придбати ... 

---

Вкладка Office забезпечує інтерфейс з вкладками для Office і значно спрощує вашу роботу

• Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
• Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
• Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!

Детальніше ... Завантажити безкоштовно... Придбати ...