Sut i guddio rhesi neu golofnau gwag lluosog yn Excel ar unwaith yn Excel?
Efallai y bydd cuddio neu gael gwared ar y rhesi neu'r colofnau gwag yn eich helpu i gyddwyso'r daflen waith, yn yr erthygl hon, byddaf yn cyflwyno rhai ffyrdd cyflym i chi guddio neu dynnu'r rhesi neu'r colofnau gwag yn nhaflen waith Excel.
Cuddiwch resi neu golofnau gwag lluosog yn gyflym gyda chod VBA
Dileu rhesi neu golofnau gwag lluosog yn gyflym gyda Kutools ar gyfer Excel
Cuddiwch resi neu golofnau gwag lluosog yn gyflym gyda chod VBA
Gall y cod VBA canlynol eich helpu i guddio rhesi neu golofnau gwag lluosog mewn taflen waith yn gyflym ac yn hawdd.
1. Daliwch i lawr y ALT + F11 allweddi i agor y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.
2. Cliciwch Mewnosod > Modiwlau, a gludwch y cod canlynol yn y Modiwlau Ffenestr.
Cod VBA: Cuddio rhesi gwag lluosog mewn taflen waith
Sub HideEmpties()
'Updateby Extendoffice
Dim xRg As Range
Dim xTxt As String
Dim xCell As Range
Dim I As Long
On Error Resume Next
If ActiveWindow.RangeSelection.Count > 1 Then
xTxt = ActiveWindow.RangeSelection.AddressLocal
Else
xTxt = ActiveSheet.UsedRange.AddressLocal
End If
Set xRg = Application.InputBox("Please select the data range:", "Kutools for Excel", xTxt, , , , , 8)
If xRg Is Nothing Then Exit Sub
On Error Resume Next
For I = 1 To xRg.Row + xRg.Rows.Count
If Application.WorksheetFunction.CountA(xRg.Rows(I)) = 0 Then
xRg.Rows(I).EntireRow.Hidden = True
End If
Next
End Sub
3. Yna pwyswch F5 allwedd i redeg y cod hwn, ac mae blwch prydlon yn cael ei arddangos i'ch atgoffa o ddewis yr ystod ddata rydych chi am guddio'r rhesi gwag, gweler y screenshot:
4. Ac yna cliciwch OK botwm, mae'r rhesi gwag wedi'u cuddio ar unwaith, gweler y screenshot:
Nodyn: I guddio sawl colofn wag, cymhwyswch y cod VBA canlynol:
Cod VBA: Cuddio colofnau gwag lluosog mewn taflen waith
Sub HideEmpties()
'Updateby Extendoffice
Dim xRg As Range
Dim xTxt As String
Dim xCell As Range
Dim I As Long
On Error Resume Next
If ActiveWindow.RangeSelection.Count > 1 Then
xTxt = ActiveWindow.RangeSelection.AddressLocal
Else
xTxt = ActiveSheet.UsedRange.AddressLocal
End If
Set xRg = Application.InputBox("Please select the data range:", "Kutools for Excel", xTxt, , , , , 8)
If xRg Is Nothing Then Exit Sub
On Error Resume Next
For I = 1 To xRg.Column + xRg.Columns.Count
If Application.WorksheetFunction.CountA(xRg.Columns(I)) = 0 Then
xRg.Columns(I).EntireColumn.Hidden = True
End If
Next
End Sub
Dileu rhesi neu golofnau gwag lluosog yn gyflym gyda Kutools ar gyfer Excel
Yn yr adran hon, byddaf yn siarad am sut i ddileu nifer o resi neu golofnau gwag nad oeddech eu heisiau mewn ystod, taflen waith neu lyfr gwaith. Mae'r Kutools ar gyfer Excel'S Dileu Rhesi a Cholofnau Cudd (Gweladwy) gall cyfleustodau eich helpu i ddatrys y dasg hon cyn gynted â phosibl.
| Kutools ar gyfer Excel : gyda mwy na 300 o ychwanegiadau Excel defnyddiol, am ddim i geisio heb unrhyw gyfyngiad mewn 30 diwrnod. |
Ar ôl gosod Kutools ar gyfer Excel, gwnewch fel a ganlyn:
1. Dewiswch yr ystod ddata rydych chi am ddileu'r rhesi neu'r colofnau gwag, ac yna cliciwch Kutools > Dileu > Dileu Rhesi a Cholofnau Cudd (Gweladwy), gweler y screenshot:
2. Yn y Dileu Rhesi a Cholofnau Cudd (Gweladwy) blwch deialog, dewiswch Yn yr Ystod Ddethol in Edrych mewn rhestr ostwng (gallwch hefyd ddewis opsiwn arall yn y gwymplen hon yn ôl yr angen), dewiswch Rhesi or colofnau oddi wrth y Dileu math adran, a dewis Rhesi gwag or Colofnau gwag O dan y Math manwl adran, gweler y screenshot:
3. Ac yna cliciwch Ok botwm, mae'r rhesi neu'r colofnau gwag yn y detholiad wedi'u tynnu ar unwaith. Gweler y screenshot:
Nodyn: Gyda'r nodwedd hon, rydych chi hefyd yn dileu rhesi neu golofnau cudd, rhesi neu golofnau gweladwy wrth ddewis, taflen waith neu lyfr gwaith yn ôl yr angen.
Cliciwch Am Ddim Lawrlwytho Kutools ar gyfer Excel Nawr!
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!
