Ինչպե՞ս արագ տեղադրել 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- ի յուրաքանչյուր տողի / սյունակի մեջ

Եթե ​​ցանկանում եք արագ և հեշտությամբ դատարկ տողեր կամ սյուններ տեղադրել յուրաքանչյուր շարքի կամ սյունակի միջև, կարող եք օգտագործել Excel- ի համար նախատեսված գործիքներ'S Insert Blank Rows & Columns օգտակար, որը կարող եք նշել տողերի ընդմիջումը և դատարկ շարքերի քանակը, որքան ձեզ հարկավոր է:

Տեղադրելուց հետո 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.

  Տեղադրեք դատարկ տողեր կամ սյունակներ հատուկ ընդմիջումներով