Sut i fewnosod gofod rhwng pob rhes yn Excel yn gyflym?
Yn Excel ， gallwch ddefnyddio'r ddewislen clicio ar y dde i ddewis rhes uwchben rhes weithredol, ond a ydych chi'n gwybod sut i fewnosod rhesi gwag ym mhob rhes fel y dangosir y screenshot isod? Yma, rwy'n cyflwyno rhai triciau ar ddatrys y swydd hon yn gyflym.
Mewnosod rhesi gwag rhwng pob rhes yn ôl swyddogaeth Trefnu
Mewnosod rhesi gwag rhwng pob rhes yn ôl cod VBA
Mewnosodwch resi/colofnau gwag rhwng pob rhes/colofn fesul Kutools for Excel
Mewnosod rhesi gwag rhwng pob rhes yn ôl swyddogaeth Trefnu
I fewnosod rhesi gwag rhwng pob rhes, gallwch lenwi cyfres o rifau ddwywaith yn gyntaf, yna didoli'r rhifau.
1. Mewn rhif cyfagos, llenwch gyfres o rifau i gyd-fynd â rhif y rhes.
2. Copïwch rifau'r gyfres, a'u pastio yn y gell gan ddilyn y rhif olaf.
2. Dewiswch holl rifau'r gyfres, cliciwch Dyddiad > Trefnu Lleiaf i'r Mwyaf.
3. Yn y popping Rhybudd Trefnu deialog, cadwch Ehangu'r opsiwn dewis gwirio, cliciwch Trefnu yn.
Nawr mae'r lleoedd wedi'u mewnosod rhwng pob rhes. Gallwch chi gael gwared ar golofn rhif y gyfres yn ddiweddarach.
Mewnosod rhesi gwag rhwng pob rhes yn ôl cod VBA
Os ydych chi'n gyfarwydd â chod macro, dyma god a all eich helpu chi hefyd.
1. Gwasgwch Alt + F11 allweddi i alluogi Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.
2. Cliciwch Mewnosod > Modiwlau, yna copïo a gludo islaw'r cod i'r modiwl.
VAB: Mewnosodwch ofod rhwng rhess
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. Gwasgwch F5 yn allweddol i redeg y cod, mae deialog yn ymddangos i'ch atgoffa i ddewis y data gweithio.
4. Cliciwch OK. Nawr mae'r lleoedd wedi'u mewnosod rhwng rhesi dethol.
Mewnosodwch resi/colofnau gwag rhwng pob rhes/colofn fesul Kutools for Excel
Os ydych chi am fewnosod rhesi neu golofnau gwag rhwng pob rhes neu golofn yn gyflym ac yn hawdd, gallwch eu defnyddio Kutools for Excel'S Insert Blank Rows & Columns cyfleustodau, y gallwch chi nodi cyfwng rhesi a nifer y rhesi gwag yn ôl yr angen.
| Kutools for Excel, gyda mwy na 300 swyddogaethau defnyddiol, yn gwneud eich swyddi yn haws. |
Ar ôl gosod Kutools for Excel, gwnewch fel y nodir isod:(Lawrlwythiad Am Ddim Kutools for Excel Nawr!)
1. Dewiswch yr ystod ddata rydych chi am fewnosod rhesi neu golofnau gwag, cliciwch Kutools > Insert > Insert Blank Rows & Columns.
2. Yn y Insert Blank Rows & Columns deialog, gwirio Blank rows or Blank columns yn ôl yr angen, a nodwch opsiynau Interval of ac Rows.
3. Cliciwch Ok.
| Inert rhesi gwag rhwng pob rhes | Mewnosod colofn wag rhwng pob colofn |
 |
 |
Tip: mae'r cyfleustodau hwn yn cefnogi dadwneud Ctrl + Z.
Mewnosod rhesi neu golofnau gwag gyda chyfyngau penodol
Offer Cynhyrchiant Swyddfa Gorau
Supercharge Eich Sgiliau Excel gyda Kutools for Excel, a Phrofiad Effeithlonrwydd Fel Erioed Erioed o'r blaen. Kutools for 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...
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!
