Sut i ddileu colofnau gwag gyda phennawd yn Excel?
Os oes gennych daflen waith fawr sy'n cynnwys nifer o golofnau, ond dim ond pennawd yw rhai o'r colofnau, ac yn awr, rydych chi am ddileu'r colofnau gwag hyn sydd â phennawd yn unig i ddangos y screenshot canlynol. A ellir datrys hyn yn Excel yn gyflym ac yn hawdd?
Dileu colofnau gwag gyda phennawd trwy ddefnyddio cod VBA
Dileu colofnau gwag lluosog mewn ystod / taflen waith / llyfr gwaith gyda Kutools ar gyfer Excel
Dileu colofnau gwag gyda phennawd trwy ddefnyddio cod VBA
Yn Excel, nid oes dull uniongyrchol i ddelio â'r swydd hon ac eithrio eu dileu fesul un â llaw, ond, yma, gallaf gyflwyno cod i chi, gwnewch fel a ganlyn:
1. Dal i lawr y ALT + F11 allweddi, yna mae'n agor y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.
2. Cliciwch Mewnosod > Modiwlau, a gludwch y cod canlynol yn y Modiwlau Ffenestr.
Cod VBA: Dileu colofnau gwag gyda phennawd:
Sub Macro1()
'updateby Extendoffice
Dim xEndCol As Long
Dim I As Long
Dim xDel As Boolean
On Error Resume Next
xEndCol = Cells.Find("*", SearchOrder:=xlByColumns, SearchDirection:=xlPrevious).Column
If xEndCol = 0 Then
MsgBox "There is no data on """ & ActiveSheet.Name & """ .", vbExclamation, "Kutools for Excel"
Exit Sub
End If
Application.ScreenUpdating = False
For I = xEndCol To 1 Step -1
If Application.WorksheetFunction.CountA(Columns(I)) <= 1 Then
Columns(I).Delete
xDel = True
End If
Next
If xDel Then
MsgBox "All blank and column(s) with only a header row have now been deleted.", vbInformation, "Kutools for Excel"
Else
MsgBox "There are no Columns to delete as each one has more data (rows) than just a header.", vbExclamation, "Kutools for Excel"
End If
Application.ScreenUpdating = True
End Sub
3. Yna pwyswch F5 allwedd i redeg y cod hwn, a bydd blwch prydlon yn popio allan i'ch atgoffa y bydd y colofnau gwag gyda phennawd yn cael eu dileu, gweler y screenshot:
4. Ac yna cliciwch OK botwm, mae'r holl golofnau gwag sydd â phennawd yn unig yn y daflen waith gyfredol yn cael eu dileu ar unwaith.
Nodyn: Os oes colofnau gwag, byddant yn cael eu dileu hefyd.
Dileu colofnau gwag lluosog mewn ystod / taflen waith / llyfr gwaith gyda Kutools ar gyfer Excel
Weithiau, dim ond y colofnau gwag, y Kutools ar gyfer Excel'S Dileu Rhesi a Cholofnau Cudd (Gweladwy) gall cyfleustodau eich helpu i orffen y dasg hon yn rhwydd.
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 colofnau sy'n cynnwys y colofnau gwag mae angen eu dileu.
2. Yna cliciwch Kutools > Dileu > Dileu Rhesi a Cholofnau Cudd (Gweladwy), gweler y screenshot:
3. Yn y Dileu Rhesi a Cholofnau Cudd (Gweladwy) blwch deialog, gallwch ddewis y cwmpas dileu o'r gwymplen Edrych i mewn yn ôl yr angen, dewiswch colofnau oddi wrth y Dileu math adran, ac yna dewis Colofnau gwag oddi wrth y Math manwl adran, gweler y screenshot:
4. Yna cliciwch Ok botwm, a dim ond y colofnau gwag sy'n cael eu dileu ar unwaith. Gweler y screenshot:
Awgrymiadau: Gyda'r nodwedd bwerus hon, gallwch hefyd ddileu rhesi gwag, colofnau gweladwy neu res, colofnau cudd neu resi 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!