Как бързо да вмъкнете интервал между всеки ред в Excel?
В Excel можете да използвате менюто с десен бутон, за да изберете ред над активния ред, но знаете ли как да вмъкнете празни редове във всеки ред, както е показано на екранната снимка по-долу? Тук представям някои трикове за бързо решаване на тази задача.
Вмъкнете празни редове между всеки ред чрез функцията за сортиране
Вмъкнете празни редове между всеки ред чрез VBA код
Вмъкнете празни редове/колони между всеки ред/колона от Kutools за Excel
Вмъкнете празни редове между всеки ред чрез функцията за сортиране
За да вмъкнете празни редове между всеки ред, можете първо да попълните поредица от числа два пъти, след което да сортирате числата.
1. В съседно число попълнете поредица от числа, за да съответства на номера на реда.
2. Копирайте серийните номера и ги поставете в клетката след последното число.
2. Изберете всички серийни номера, щракнете Дата > Сортиране от най-малкото към най-голямото.
3. В пукането Предупреждение за сортиране диалог, запази Разширете опцията за избор отметнато, щракнете Вид.
Сега интервалите са вмъкнати между всеки ред. Можете да премахнете колоната с номера на серията по-късно.
Вмъкнете празни редове между всеки ред чрез VBA код
Ако сте запознати с макро кода, ето код, който също може да ви помогне.
1. Натиснете Alt + F11 ключове за активиране Microsoft Visual Basic за приложения прозорец.
2. кликване Поставете > Модули, след това копирайте и поставете кода по-долу в модула.
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 Sub
3. Натиснете 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% и намалява стотици кликвания на мишката за вас всеки ден!