Sut i fewnosod neu ddileu rhes rannol yn Excel?

Mae'n hawdd mewnosod neu ddileu rhes gyfan o'r daflen waith yn Excel. Ond sut i fewnosod neu ddileu rhes rannol yn unig o'r daflen waith? Bydd yr erthygl hon yn eich helpu chi.

Mewnosod neu ddileu rhes rannol gyda swyddogaeth Mewnosod / Dileu Celloedd
Mewnosod neu ddileu rhes rannol gyda chod VBA

---

Mewnosod neu ddileu rhes rannol gyda swyddogaeth Mewnosod / Dileu Celloedd

Er enghraifft, rydych chi am fewnosod neu ddileu rhes rannol yn rhes 5 gyda thair cell, gwnewch fel a ganlyn.

Mewnosod rhes rannol

1. Dewiswch dair cell yn rhes 5 (dylai'r celloedd a ddewiswyd fod yn hafal i'r celloedd a fewnosodwyd), yna cliciwch Mewnosod > Mewnosod Celloedd dan Hafan tab. Gweler y screenshot:

2. Yn y Mewnosod blwch deialog, dewiswch Newid celloedd yn iawn or Symud celloedd i lawr dewis ac yna cliciwch ar OK botwm.

Yna mewnosodir rhes rannol gyda thair cell fel y dangosir y llun isod.

Dileu rhes rannol

1. Ar ôl dewis y rhes rannol rydych chi am ei dileu, cliciwch Dileu> Dileu Celloedd dan Hafan tab.

2. Yn y Dileu blwch deialog, dewiswch Celloedd sifft ar ôl or Newid celloedd i fyny yn ôl yr angen, ac yna cliciwch ar y OK botwm. Gweler y screenshot:

Yna dilëir y rhes rannol a ddewiswyd.

---

Mewnosod neu ddileu rhes rannol gyda chod VBA

Gallwch hefyd gymhwyso'r codau VBA canlynol i fewnosod neu ddileu rhes rannol yn Excel.

1. Dewiswch unrhyw gell mewn rhes benodol rydych chi am fewnosod rhesi rhannol, yna pwyswch Alt + F11 i agor y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.

2. Yn y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr, cliciwch Mewnosod > Modiwlau. Ac yna copïwch a gludwch y cod VBA isod i'r Côd ffenestr.

Cod VBA: Mewnosod rhes rannol yn Excel

Sub InsertRow()
    Dim I As Long
    On Error Resume Next
LInput:
    I = Application.InputBox("Enter number of rows required.", "Kutools for Excel", 1, , , , , 1)
    If I < 1 Then
        MsgBox "Error, please retype", vbInformation, "Kutools for Excel"
        GoTo LInput
    End If
    Cells(ActiveCell.Row, 1).Resize(Int(I), 3).Insert xlDown
End Sub

Nodyn: Yn y cod VBA, mae rhif 1 yn golygu y bydd y rhes rannol yn cael ei mewnosod o'r golofn gyntaf, ac mae'r rhif 3 yn golygu y bydd yn mewnosod tair cell rhwng y colofnau. Gallwch eu newid yn seiliedig ar eich anghenion.

3. Gwasgwch y F5 allwedd i redeg y cod, yna a Kutools ar gyfer Excel blwch deialog yn ymddangos, nodwch nifer y rhesi gofynnol sydd eu hangen arnoch, ac yna cliciwch ar y OK botwm.

Os rhowch 3 yn y blwch, ar ôl cliciwch y OK botwm, bydd tair rhes rannol gyda thair colofn yn cael eu mewnosod mewn safle penodol o'ch taflen waith.

Ar gyfer dileu rhes rannol, gallwch redeg y cod VBA isod.

Cod VBA: Dileu rhes rannol yn Excel

Sub DelActiveCell_Row()
    Dim I As Long
    On Error Resume Next
LInput:
    I = Application.InputBox("Enter number of rows required.", "Kutools for Excel", 1, , , , , 1)
    If I < 1 Then
        MsgBox " Error, please retype", vbInformation, "Kutools for Excel"
        GoTo LInput
    End If
    Cells(ActiveCell.Row, 1).Resize(Int(I), 3).Delete xlShiftUp
End Sub

Ar ôl rhedeg y cod, mae yna hefyd a Kutools ar gyfer Excel blwch deialog yn ymddangos i'ch atgoffa faint o resi rhannol rydych chi am eu dileu, nodwch y rhif a chliciwch ar y OK botwm. Yna caiff y rhesi rhannol penodedig eu dileu ar unwaith.