Cum se șterge conținutul mai multor celule îmbinate în Excel?
Dacă aveți o foaie de lucru mare care conține mai multe celule îmbinate și acum, doriți să ștergeți tot conținutul celulelor îmbinate, dar să păstrați celulele îmbinate. În mod normal, puteți încerca să aplicați Găsiți și înlocuiți funcție pentru a selecta mai întâi toate celulele îmbinate, apoi apăsați Șterge pentru a șterge valoarea, cu toate acestea, veți primi un mesaj de avertizare "Nu putem face asta unei celule îmbinateÎn acest caz, cum ștergeți valorile din celulele îmbinate, dar lăsați celulele îmbinate rapid în Excel?
Ștergeți conținutul mai multor celule îmbinate cu codul VBA
Ștergeți conținutul mai multor celule îmbinate cu Kutools pentru Excel
Ștergeți conținutul mai multor celule îmbinate cu codul VBA
În această secțiune, vă pot crea un cod VBA pentru a rezolva această sarcină, vă rugăm să faceți următoarele:
1. Țineți apăsat butonul ALT + F11 tastele pentru a deschide Microsoft Visual Basic pentru aplicații fereastră.
2. Clic Insera > Moduleși lipiți următorul cod în Module Fereastră.
VBA: ștergeți conținutul mai multor celule îmbinate
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. Apoi apăsați F5 tasta pentru a rula acest cod și se va afișa o casetă de prompt pentru a vă reaminti să selectați intervalul pe care doriți să ștergeți celulele îmbinate, vedeți captura de ecran:
4. Apoi faceți clic pe OK, conținutul din celulele îmbinate a fost șters imediat și lasă celulele goale îmbinate, vezi captura de ecran:
Ștergeți conținutul mai multor celule îmbinate cu Kutools pentru Excel
Dacă aveţi Kutools pentru Excel, Cu său Selectați celulele combinate utilitar, puteți selecta toate celulele îmbinate dintr-o selecție cu un singur clic, apoi le puteți șterge simultan.
| Kutools pentru Excel : cu mai mult de 300 de programe de completare Excel la îndemână, gratuit pentru a încerca fără limitări în 30 de zile. |
După instalare Kutools pentru Excel, vă rugăm să faceți următoarele :( Descărcați gratuit Kutools pentru Excel acum )
1. Selectați gama de celule care conține celulele îmbinate pe care doriți să le ștergeți.
2. Clic Kutools > Selectați > Selectați celulele combinate, vezi captura de ecran:
3. Și toate celulele îmbinate au fost selectate imediat, vezi captura de ecran:
4. Apoi apăsați Șterge tasta de pe tastatură și toate valorile din celulele îmbinate au fost selectate, dar lăsați celulele îmbinate după cum aveți nevoie.
Faceți clic pentru a afla mai multe despre acest utilitar Selectați celule combinate ...
Descărcați gratuit Kutools pentru Excel acum
Cele mai bune instrumente de productivitate de birou
Îmbunătățiți-vă abilitățile Excel cu Kutools pentru Excel și experimentați eficiența ca niciodată. Kutools pentru Excel oferă peste 300 de funcții avansate pentru a crește productivitatea și a economisi timp. Faceți clic aici pentru a obține funcția de care aveți cea mai mare nevoie...
Fila Office aduce interfața cu file în Office și vă face munca mult mai ușoară
- Activați editarea și citirea cu file în Word, Excel, PowerPoint, Publisher, Access, Visio și Project.
- Deschideți și creați mai multe documente în filele noi ale aceleiași ferestre, mai degrabă decât în ferestrele noi.
- Vă crește productivitatea cu 50% și reduce sute de clicuri de mouse pentru dvs. în fiecare zi!
