Hvordan ryddes indholdet af flere flettede celler i Excel?
Hvis du har et stort regneark, som indeholder flere flettede celler, og nu vil du rydde alt indholdet af de flettede celler, men beholde de flettede celler. Normalt kan du prøve at anvende Søg og erstat funktion for at vælge alle flettede celler først, og tryk derefter på Slette tasten for at slette værdien, men du vil få en advarselsmeddelelse "Det kan vi ikke gøre med en fusioneret celle". Hvordan rydder du i dette tilfælde værdierne i flettede celler, men forlader de flettede celler hurtigt i Excel?
Ryd indholdet af flere flettede celler med VBA-kode
Ryd indholdet af flere flettede celler med Kutools til Excel
Ryd indholdet af flere flettede celler med VBA-kode
I denne sektion kan jeg oprette en VBA-kode til dig for at løse denne opgave, gør venligst som følger:
1. Hold nede ALT + F11 nøgler til at åbne Microsoft Visual Basic til applikationer vindue.
2. Klik indsatte > Moduler, og indsæt følgende kode i Moduler Vindue.
VBA: Ryd indholdet af flere flettede celler
Sub ClearMerged()
'updateby Extendoffice
Dim Rg As Range, Rg1 As Range
Dim xAddress As String
On Error Resume Next
xAddress = Application.ActiveWindow.RangeSelection.Address
Set Rg = Application.InputBox("Please select the range of cells:", "Kutools for Excel", xAddress, , , , , 8)
If Rg Is Nothing Then Exit Sub
For Each Rg1 In Rg
If Rg1.MergeCells Then Rg1.MergeArea.ClearContents
Next
End Sub
3. Tryk derefter på F5 tasten for at køre denne kode, og en promptboks vil poppe ud for at minde dig om at vælge det område, du vil rydde de flettede celler, se skærmbillede:
4. Og klik derefter på OK, indholdet i de flettede celler er blevet ryddet med det samme og efterlader de tomme flettede celler, se skærmbillede:
Ryd indholdet af flere flettede celler med Kutools til Excel
Hvis du har Kutools til Excel, Med Vælg Flettede celler værktøj, kan du markere alle flettede celler i en markering med et enkelt klik og derefter slette dem på én gang.
Kutools til Excel : med mere end 300 praktiske Excel-tilføjelsesprogrammer, gratis at prøve uden begrænsning på 30 dage. |
Efter installation Kutools til Excel, gør venligst som følger :( Gratis download Kutools til Excel nu )
1. Vælg det celleområde, der indeholder de flettede celler, du vil rydde indholdet af.
2. Klik Kutools > Type > Vælg Flettede celler, se skærmbillede:
3. Og alle de flettede celler er blevet valgt med det samme, se skærmbillede:
4. Tryk derefter på Slette tasten på tastaturet, og alle værdierne i de flettede celler er blevet valgt, men lad de flettede celler stå som du har brug for.
Klik for at vide mere om dette Select Merged Cells-værktøj...
Gratis download Kutools til Excel nu
Bedste kontorproduktivitetsværktøjer
Overlad dine Excel-færdigheder med Kutools til Excel, og oplev effektivitet som aldrig før. Kutools til Excel tilbyder over 300 avancerede funktioner for at øge produktiviteten og spare tid. Klik her for at få den funktion, du har mest brug for...
Fanen Office bringer en grænseflade til et kontor med Office, og gør dit arbejde meget lettere
- Aktiver redigering og læsning af faner i Word, Excel, PowerPoint, Publisher, Access, Visio og Project.
- Åbn og opret flere dokumenter i nye faner i det samme vindue snarere end i nye vinduer.
- Øger din produktivitet med 50 % og reducerer hundredvis af museklik for dig hver dag!