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.
Offer Cynhyrchiant Swyddfa Gorau
Supercharge Eich Sgiliau Excel gyda Kutools ar gyfer Excel, a Phrofiad Effeithlonrwydd Fel Erioed Erioed. Kutools ar gyfer Excel Yn Cynnig Dros 300 o Nodweddion Uwch i Hybu Cynhyrchiant ac Arbed Amser. Cliciwch Yma i Gael Y Nodwedd Sydd Ei Angen Y Mwyaf...
Mae Office Tab yn dod â rhyngwyneb Tabbed i Office, ac yn Gwneud Eich Gwaith yn Haws o lawer
- Galluogi golygu a darllen tabbed yn Word, Excel, PowerPoint, Cyhoeddwr, Mynediad, Visio a Phrosiect.
- Agor a chreu dogfennau lluosog mewn tabiau newydd o'r un ffenestr, yn hytrach nag mewn ffenestri newydd.
- Yn cynyddu eich cynhyrchiant 50%, ac yn lleihau cannoedd o gliciau llygoden i chi bob dydd!