Як швидко вставити пробіл між кожним рядком у Excel?
В Excel ， ви можете скористатися меню правою кнопкою миші, щоб вибрати рядок над активним рядком, але чи знаєте ви, як вставити порожні рядки в кожен рядок, як показано на знімку екрана нижче? Тут я представляю деякі хитрощі щодо швидкого вирішення цієї роботи.
Вставте порожні рядки між кожним рядком за функцією сортування
Вставте порожні рядки між кожним рядком за кодом VBA
Вставте порожні рядки/стовпці між кожним рядком/стовпцем за допомогою Kutools для Excel
Вставте порожні рядки між кожним рядком за функцією сортування
Щоб вставити порожні рядки між кожним рядком, можна спочатку двічі заповнити ряд чисел, а потім відсортувати їх.
1. У сусідньому номері заповніть ряд чисел, щоб вони відповідали номеру рядка.
2. Скопіюйте номери серій та вставте їх у клітинку після останнього номера.
2. Виберіть усі номери серій, натисніть дані > Сортувати від найменшого до найбільшого.
3. У вискакуванні Попередження про сортування діалогове вікно, зберегти Розгорніть варіант вибору позначено, клацніть сортувати.
Тепер пробіли були вставлені між кожним рядком. Пізніше можна видалити стовпець із номером серії.
Вставте порожні рядки між кожним рядком за кодом VBA
Якщо ви знайомі з макрокодом, ось код також може вам допомогти.
1. прес Alt + F11 клавіші для ввімкнення Microsoft Visual Basic для додатків вікна.
2. клацання Insert > Модулі, потім скопіюйте та вставте код нижче в модуль.
VAB: Вставте пробіл між рядкамиs
Sub RowsInsertInSelectCells()
'UpdatebyExtendoffice20180801
Dim xWS As Worksheet
Dim xCR, xR, xCC, xC, xFC, xFR As Long
Dim xFNum As Integer
Dim xRg, xCRg As Range
On Error Resume Next
If ActiveWindow.RangeSelection.Count > 0 Then
xTxt = ActiveWindow.RangeSelection.AddressLocal
Else
xTxt = ActiveSheet.UsedRange.AddressLocal
End If
Set xWS = ActiveWorkbook.ActiveSheet
Set xRg = Application.InputBox("please select the data range:", "Kutools for Excel", xTxt, , , , , 8)
If xRg Is Nothing Then Exit Sub
If xRg.Count > 0 Then
xCR = xRg.Rows.Count
xCC = xRg.Columns.Count
xR = xRg.Row
xC = xRg.Column
Application.ScreenUpdating = False
For xFC = 0 To xCC - 1
For xFR = xCR To 1 Step -1
xWS.Cells(xR + xFR, xC + xFC).Insert
Next
Next xFC
Application.ScreenUpdating = True
End If
End Sub3. прес F5 для запуску коду, вискакує діалогове вікно, що нагадує вам про вибір робочих даних.
4. клацання OK. Тепер пробіли були вставлені між вибраними рядками.
Вставте порожні рядки/стовпці між кожним рядком/стовпцем за допомогою Kutools для Excel
Якщо ви хочете швидко і просто вставити порожні рядки або стовпці між кожним рядком або стовпцем, ви можете використовувати Kutools для ExcelАвтора Insert Blank Rows & Columns утиліта, в якій ви можете вказати інтервал рядків і кількість порожніх рядків, як вам потрібно.
| Kutools для Excel, з більш ніж 300 зручні функції, полегшує вам роботу. |
після установки Kutools для Excel, виконайте наведені нижче дії.（Безкоштовно завантажте Kutools для Excel зараз!)
1. Виберіть діапазон даних, до якого потрібно вставити порожні рядки або стовпці, клацніть Kutools > Insert > Insert Blank Rows & Columns.
2 В Insert Blank Rows & Columns діалогове вікно, перевірте Blank rows or Blank columns як вам потрібно, і вкажіть параметри Interval of та Rows.
3. клацання Ok.
| Інертні порожні рядки між кожним рядком | Вставте порожній стовпець між кожним стовпцем |
 |
 |
Чайові: ця утиліта підтримує скасування Ctrl + Z.
Вставте порожні рядки або стовпці з певними інтервалами
Найкращі інструменти продуктивності офісу
Покращуйте свої навички Excel за допомогою Kutools для Excel і відчуйте ефективність, як ніколи раніше. Kutools для Excel пропонує понад 300 додаткових функцій для підвищення продуктивності та економії часу. Натисніть тут, щоб отримати функцію, яка вам найбільше потрібна...
Вкладка Office Передає інтерфейс із вкладками в Office і значно полегшує вашу роботу
- Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
- Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
- Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!
