Situatie
Există momente în care încercați să sortați o coloană în foaia de calcul și apare o eroare, spunând că „Pentru a face acest lucru, toate celulele unite ar trebui să aibă aceeași dimensiune”. Pentru a rezolva această problemă, trebuie doar să găsiți celulele unite prezente în coloane din foaia de calcul excel. Aceasta poate fi o sarcină ușoară dacă coloana este mică, dar dacă aveți o coloană imensă cu sute de elemente, căutarea manuală a celulelor combinate poate deveni o sarcină greoaie.
Solutie
Pasi de urmat
În primul rând, selectați căsuțele în care doriți să găsiți celule unite.
- Apoi apăsați „Ctrl + F” de la tastatură, aceasta va deschide fereastra „Find”.
- Faceți clic pe butonul „Options”, apoi pe butonul „Format”.
- Se va deschide o fereastră „Find Format”, navigați la fila „Alignment”
- Debifați opțiunile „Wrap text” și „Shrink to fit”. Bifați opțiunea „Merge Cells” -> „OK”.
- Acum faceți clic pe butonul ”Find all”, acesta vă va afișa toate celulele unite din coloanele sortate.
Găsirea celulelor combinate, utilizând Macro.
Dacă prima metodă nu a funcționat, există altă metodă, folisind Macro, care va găsi celulele combinate, afișându-le într-o listă.
- Pentru a crea un macro, apăsați tastele „Alt + F11”, aceasta va deschide editorul VBA excel.
- Faceți clic pe butonul „Insert” și selectați opțiunea „Module”.
- Acum copiați codul de mai jos în fereastra editorului.
——————————————————————————-
Sub FindAllMerged()
Dim c As Range
Dim sMsg As String
sMsg = “”
For Each c In ActiveSheet.UsedRange
If c.MergeCells Then
If sMsg = “” Then
sMsg = “Merged worksheet cells:” & vbCr
End If
sMsg = sMsg & Replace(c.Address, “$”, “”) & vbCr
End If
Next
If sMsg = “” Then
sMsg = “No Merged Cells Found.”
End If
MsgBox sMsg
End Sub
———————————————————
- Pentru a rula acest macro apăsați „F5”, acesta va lista toate celulele combinate în message box.
Leave A Comment?