Sut i ddileu pob ystod ond dethol yn Excel?
Yn Excel, gallwn ddileu'r ystodau a ddewiswyd yn gyflym ac yn uniongyrchol, ond a ydych erioed wedi ceisio dileu cynnwys celloedd eraill ac eithrio'r ystodau a ddewiswyd? Yr erthygl hon, byddaf yn cyflwyno rhai triciau i chi ddatrys y dasg hon yn Excel yn gyflym ac yn hawdd.
Dileu'r holl ystodau ond rhai a ddewiswyd gyda chod VBA
Dileu pob ystod heblaw'r ystodau a ddewiswyd gyda Select Range Helper o Kutools for Excel
Dileu'r holl ystodau heblaw'r rhai a ddewiswyd gyda'r ystodau Copi o Kutools for Excel
Dileu'r holl ystodau ond rhai a ddewiswyd gyda chod VBA
Nid oes unrhyw ffordd uniongyrchol ichi ddileu pob un o'r gwerthoedd celloedd nas dewiswyd ar unwaith, ond, gall y cod VBA canlynol eich helpu, gwnewch fel a ganlyn:
1. Daliwch y Ctrl allwedd i ddewis y celloedd rydych chi am eu cadw.
2. Gwasgwch Alt + F11 allweddi ar yr un pryd i agor y Microsoft Visual Basic ar gyfer Cymhwyso ffenestr.
3. Yn y Microsoft Visual Basic ar gyfer Cymhwyso blwch deialog ffenestr, cliciwch Mewnosod > Modiwlau, yna copïwch a gludwch y cod VBA isod i'r Modiwlau ffenestr.
Cod VBA: dilëwch yr holl werthoedd celloedd ond yr ystodau a ddewiswyd
Sub ClearAllExceptSelection()
'updateby Extendoffice
Dim xRg As Range
Dim xCell As Range
Dim xAddress As String
Dim xUpdate As Boolean
On Error Resume Next
xAddress = Application.ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("Please select the ranges want to keep", "Kutools for Excel", xAddress, , , , , 8)
If xRg Is Nothing Then Exit Sub
xUpdate = Application.ScreenUpdating
Application.ScreenUpdating = False
For Each xCell In ActiveSheet.UsedRange
If Intersect(xCell, xRg) Is Nothing Then
xCell.Clear
End If
Next
Application.ScreenUpdating = xUpdate
End Sub
4. Yna pwyswch F5 allwedd i redeg y cod hwn, ac mae blwch prydlon yn cael ei popio allan i'ch atgoffa i ddewis yr ystod o gelloedd rydych chi am eu cadw, os ydych chi wedi dewis yr ystodau yng ngham 1, cliciwch OK, os na, gallwch ddewis y celloedd rydych chi eu heisiau yn y blwch prydlon, a mynd i mewn i'r atalnodau i wahanu'r ystodau lluosog, yna cliciwch OK botwm, gweler y screenshot:
5. Ar ôl clicio OK, mae'r holl werthoedd celloedd eraill wedi'u dileu ond dim ond gadael yr ystodau a ddewiswyd, gweler y screenshot:
Dileu pob ystod heblaw'r ystodau a ddewiswyd gyda Select Range Helper o Kutools for Excel
Os ydych chi wedi gosod Kutools for Excel, Gyda'i Dewis Gwrthdro nodwedd o Dewiswch Range Helper cyfleustodau, gallwch chi wyrdroi'r dewis yn gyflym, ac yna dileu'r detholiadau wedi'u gwrthdroi ar unwaith.
| Kutools for Excel : gyda mwy na 300 o ychwanegiadau Excel defnyddiol, am ddim i geisio heb unrhyw gyfyngiad mewn 30 diwrnod. |
Ar ôl gosod Kutools for Excel, gwnewch fel a ganlyn :( Lawrlwythiad Am Ddim Kutools for Excel Nawr! )
1. Dewiswch yr ystod o gelloedd rydych chi am eu cadw.
2. Yna cliciwch Kutools > dewiswch > Dewiswch Range Helper, gweler y screenshot:
3. Yn y Dewiswch Range Helper blwch deialog, gwirio Dewis Gwrthdro, gweler y screenshot:
4. Ac yna llusgwch y llygoden i ddewis yr ystod rydych chi am wyrdroi'r detholiadau. Pan fyddwch chi'n rhyddhau'r llygoden, mae'r celloedd a ddewiswyd wedi'u dad-ddethol ac mae'r celloedd heb eu dethol wedi'u dewis ar unwaith. Gweler y screenshot:
5. Yna caewch y blwch deialog, a gwasgwch Dileu allwedd i ddileu'r detholiadau ar unwaith. A dim ond eich celloedd dymunol sydd wedi'u cadw, gweler y screenshot:
Lawrlwythiad Am Ddim Kutools for Excel Nawr!
Dileu pob ystod heblaw'r ystodau a ddewiswyd gyda Select Range Helper o Kutools for Excel
Cyfleustodau arall-Copi Meysydd of Kutools for Excel hefyd yn gallu'ch helpu i orffen y swydd hon, does ond angen i chi gopïo'r ystodau a ddewiswyd gennych i daflen waith newydd, ac yna dileu'r hen daflen waith.
Ar ôl gosod Kutools for Excel, gwnewch y camau canlynol :( Lawrlwythiad Am Ddim Kutools for Excel Nawr! )
1. Daliwch Ctrl allwedd i ddewis yr ystod o gelloedd rydych chi am eu cadw.
2. Yna cliciwch Kutools > Copi Meysydd, gweler y screenshot:
3. Ac yn y Copi Meysydd Lluosog blwch deialog, gwirio Popeth opsiwn o dan y Gludo arbennig, gwirio Gan gynnwys uchder rhes ac Gan gynnwys lled colofn os ydych chi am gadw uchder y rhes a lled y golofn rydych chi ei eisiau, gweler y screenshot:
4. Yna cliciwch Ok botwm, a bydd blwch prydlon arall yn popio allan i'ch atgoffa i ddewis cell i roi'r celloedd sydd wedi'u copïo, dewiswch gell mewn taflen waith newydd, gweler y screenshot:
5. Ac yna cliciwch OK, a dim ond yr ystodau a ddewiswyd gennych sydd wedi'u pastio i'r daflen waith newydd, a nawr gallwch ddileu'r daflen waith wreiddiol yn ôl yr angen.
Lawrlwythiad Am Ddim Kutools for Excel Nawr!
Demo: Dileu pob ystod heblaw'r ystodau a ddewiswyd gyda Kutools for Excel
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!
