Salt la conținutul principal

Cum se identifică și se selectează toate celulele îmbinate în Excel?

Știți cum să găsiți și să selectați toate celulele îmbinate în Excel? Iată trei moduri interesante și complicate de a identifica și selecta rapid toate celulele îmbinate dintr-o selecție sau un interval în Excel.

doc selectați celulele îmbinate 4

Identificați și selectați toate celulele îmbinate cu comanda Găsiți

Selectați și numărați rapid toate celulele îmbinate cu Kutools pentru Excel

Identificați toate celulele îmbinate cu codul VBA


Identificați și selectați toate celulele îmbinate cu comanda Găsiți

Puteți identifica și selecta toate celulele îmbinate în foaia de lucru activă după Găsi comanda cu următorii pași:

1. clic pe Inițial > Găsiți și selectați > Găsi pentru a deschide Găsiți și înlocuiți căsuță de dialog. De asemenea, puteți deschide fișierul Găsiți și înlocuiți caseta de dialog cu apăsarea butonului Ctrl + F chei.

2. clic pe Format butonul din caseta de dialog, (Dacă nu puteți afla Format , faceți clic pe butonul Opţiuni pentru a extinde dialogul.) vezi captura de ecran:

doc selectați celulele îmbinate 1

3. În pop-up Găsiți format caseta de dialog, bifați numai Uneste celulele opțiune în Controlul textului secțiunea sub Aliniere și faceți clic pe OK.

doc selectați celulele îmbinate 2

4. Acum te întorci la Găsiți și înlocuiți casetă de dialog, faceți clic pe Găsiți toate buton. Toate celulele îmbinate sunt listate în partea de jos a acestei casete de dialog. Selectați toate rezultatele găsirii ținând apăsat butonul Schimba cheie.

Acum, toate celulele îmbinate din foaia activă sunt selectate atunci când selectați toate rezultatele găsirii. Vedeți captura de ecran:

doc selectați celulele îmbinate 3

Sfat: Dacă doriți să identificați, să găsiți și să selectați numai celulele îmbinate într-o selecție, trebuie să selectați mai întâi intervalul.


Selectați și numărați toate celulele îmbinate cu Kutools pentru Excel

Kutools pentru Excel's Selectați celulele combinate instrumentul vă va ajuta să identificați, să găsiți și să selectați toate celulele îmbinate într-o selecție cu un singur clic.

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 intervalul de date pe care doriți să selectați celulele îmbinate.

2. Clic Kutools > Selectați > Selectați celulele combinate, vezi captura de ecran:

3. Și toate celulele îmbinate din selecție au fost selectate simultan, iar numărul celulelor îmbinate sunt numărate, de asemenea, a se vedea captura de ecran:

doc selectați celulele îmbinate 7

varful: Pentru a utiliza această caracteristică, ar trebui să instalați Kutools pentru Excel întâi, te rog faceți clic pentru a descărca și aveți o probă gratuită de 30 de zile acum.

Identificați toate celulele îmbinate cu codul VBA

VBA 1: Identificați și evidențiați toate celulele îmbinate

1. Țineți apăsat butonul ALT + F11 tastele și deschide fișierul Microsoft Visual Basic pentru aplicații fereastră.

2. Clic Insera > Moduleși lipiți următoarea macro în fișierul Module Fereastră.

Sub FindMergedcells()
'updateby Extendoffice
Dim x As Range
For Each x In ActiveSheet.UsedRange
If x.MergeCells Then
x.Interior.ColorIndex = 8
End If
Next
End Sub

3. apasă pe F5 tasta pentru a rula această macro. Toate celulele îmbinate din foaia de lucru activă sunt identificate și evidențiate, vezi captura de ecran:

doc selectați celulele îmbinate 4

VBA 2: Identificați și enumerați toate celulele îmbinate

1. Țineți apăsat butonul ALT + F11 tastele și deschide fișierul Microsoft Visual Basic pentru aplicații fereastră.

2. Clic InseraModuleși lipiți următoarea macro în fișierul Module Fereastră.

Sub ListMergedcells()
'updateby Extendoffice
Dim x As Range
Dim sMsg As String
sMsg = ""
For Each x In ActiveSheet.UsedRange
If x.MergeCells Then
If sMsg = "" Then
sMsg = "Merged cells:" & vbCr
End If
sMsg = sMsg & Replace(x.Address, "$", "") & vbCr
End If
Next
If sMsg = "" Then
sMsg = "No merged cells."
End If
MsgBox sMsg
End Sub

3. apasă pe F5 tasta pentru a rula această macrocomandă, toate celulele îmbinate sunt listate într-o casetă de dialog pop-up. Vedeți captura de ecran:

doc selectați celulele îmbinate 5