Note: The other languages of the website are Google-translated. Back to English

Cum se numerotează automat celulele îmbinate în Excel?

Cum am putea completa numerele seriei într-o listă de celule combinate de dimensiuni diferite în Excel? Mai întâi în mintea noastră este să tragem mânerul de completare automată pentru a umple celulele îmbinate, dar, în acest caz, vom primi următorul mesaj de avertizare și nu putem umple celulele îmbinate.

doc-fill-cells-fusion-1

Deoarece mânerul de umplere nu acceptă celulele îmbinate, aici, pot vorbi despre alte trucuri pentru rezolvarea acestei probleme.

Număr automat / completare celule îmbinate cu cod VBA

Fila Office Activați editarea și navigarea cu file în Office și faceți munca mult mai ușoară ...
Kutools pentru Excel vă rezolvă majoritatea problemelor și vă crește productivitatea cu 80%
  • Reutilizați orice: Adăugați cele mai utilizate sau complexe formule, diagrame și orice altceva la preferatele dvs. și reutilizați-le rapid în viitor.
  • Peste 20 de caracteristici text: Extrageți numărul din șirul de text; Extrageți sau eliminați o parte din texte; Conversia numerelor și valutelor în cuvinte în limba engleză.
  • Instrumente de îmbinare: Mai multe cărți de lucru și foi într-unul; Combinați mai multe celule / rânduri / coloane fără a pierde date; Combinați rândurile duplicate și suma.
  • Instrumente divizate: Împărțiți datele în mai multe foi bazate pe valoare; Un registru de lucru pentru mai multe fișiere Excel, PDF sau CSV; O coloană la mai multe coloane.
  • Lipiți săriți Rânduri ascunse / filtrate; Număr și sumă de Culoarea fundalului; Trimiteți e-mailuri personalizate către mai mulți destinatari în bloc.
  • Super Filtru: Creați scheme avansate de filtrare și aplicați oricăror foi; Sortează pe săptămână, zi, frecvență și multe altele; Filtru prin îndrăznețe, formule, comentarii ...
  • Peste 300 de caracteristici puternice; Funcționează cu Office 2007-2021 și 365; Suporta toate limbile; Implementare ușoară în întreprinderea sau organizația dvs.

săgeată albastru dreapta balon Număr automat / completare celule îmbinate cu cod VBA

Următorul cod VBA vă poate ajuta să numerați rapid celulele combinate selectate. Vă rugăm să faceți următoarele:

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

2. Clic Insera > Moduleși lipiți următorul cod în Fereastra modulului.

Cod VBA: număr automat de celule îmbinate

Sub NumberCellsAndMergedCells()
	'Update 20141028
	Dim Rng As Range
	Dim WorkRng As Range
	On Error Resume Next
	xTitleId = "KutoolsforExcel"
	Set WorkRng = Application.Selection
	Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type: = 8)
	Set WorkRng = WorkRng.Columns(1)
	xIndex = 1
	Set Rng = WorkRng.Range("A1")
	Do While Not Intersect(Rng, WorkRng) Is Nothing
		Rng.Value = xIndex
		xIndex = xIndex + 1
		Set Rng = Rng.MergeArea.Offset(1)
	Loop
End Sub

3. Apoi apăsați F5 tasta pentru a rula acest cod și va apărea o casetă de solicitare pentru a vă permite să selectați celulele îmbinate pe care doriți să le completați, vedeți captura de ecran:

doc-fill-cells-fusion-1

4. După selectarea celulelor îmbinate și faceți clic pe OK, acum, celulele combinate selectate au fost umplute cu numere secvențiale, consultați captura de ecran:

doc-fill-cells-fusion-1


Legate de articole:

Cum se numerotează automat sau se renumerotează după filtrare în Excel?

Cum se îmbină rapid rândurile adiacente cu aceleași date în Excel?

Cum să ungeți celulele și să completați cu valori duplicate în Excel?


Cele mai bune instrumente de productivitate Office

Kutools pentru Excel vă rezolvă majoritatea problemelor și vă crește productivitatea cu 80%

  • reutilizarea: Introduceți rapid formule complexe, diagrame și orice ai folosit anterior; Criptați celulele cu parola; Creați o listă de corespondență și trimiteți e-mailuri ...
  • Super Formula Bar (editați cu ușurință mai multe linii de text și formulă); Layout de citire (citiți și editați cu ușurință un număr mare de celule); Lipiți la interval filtrat...
  • Merge celule / rânduri / coloane fără a pierde date; Conținut de celule divizate; Combinați rânduri / coloane duplicate... Prevenirea celulelor duplicate; Comparați gamele...
  • Selectați Duplicat sau Unic Rânduri; Selectați Rânduri goale (toate celulele sunt goale); Super Find și Fuzzy Find în multe cărți de lucru; Selectare aleatorie ...
  • Copie exactă Mai multe celule fără modificarea referinței formulelor; Creați automat referințe la foi multiple; Introduceți gloanțe, Casete de selectare și multe altele ...
  • Extrageți textul, Adăugați text, eliminați după poziție, Eliminați spațiul; Creați și imprimați subtotaluri de paginare; Convertiți conținutul dintre celule și comentarii...
  • Super Filtru (salvați și aplicați scheme de filtrare altor foi); Sortare avansată după lună / săptămână / zi, frecvență și multe altele; Filtru special cu bold, italic ...
  • Combinați cărți de lucru și foi de lucru; Merge Tables pe baza coloanelor cheie; Împărțiți datele în mai multe foi; Conversia în loturi xls, xlsx și PDF...
  • Peste 300 de funcții puternice. Suportă Office / Excel 2007-2021 și 365. Acceptă toate limbile. Implementare ușoară în întreprinderea sau organizația dvs. Funcții complete Probă gratuită de 30 de zile. Garanție de returnare a banilor de 60 de zile.
fila kte 201905

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!
fundul officetab

 

Comentarii (10)
Încă nu există evaluări. Fii primul care evaluează!
Acest comentariu a fost redus la minimum de moderatorul de pe site
Acest lucru a fost foarte util și mi-a rezolvat problema imediat, mulțumesc foarte mult!
Acest comentariu a fost redus la minimum de moderatorul de pe site
Este foarte util. dar am nevoie de o soluție, să presupunem că vreau să umple serii în celule îmbinate, dar conținutul celulei îmbinate are date precum TC_01. Este posibil să umplem următoarele celule îmbinate precum TC_02, TC_03etc.. Dacă este posibil, mă ajută foarte mult. Mulțumesc anticipat.
Acest comentariu a fost redus la minimum de moderatorul de pe site
Modificare: Do While Not Intersect(Rng, WorkRng) Este Nimic a = xIndex Rng.Value = "Tc_" & a xIndex = xIndex + 1 Set Rng = Rng.MergeArea.Offset(1) Buclă
Acest comentariu a fost redus la minimum de moderatorul de pe site
Bună, mă întrebam dacă există vreo modificare a codului în care valoarea intervalului va crește cu unul, de exemplu, încerc să folosesc acest lucru pentru facturi și numărul ar trebui să meargă de la NR000026489 la NR000026490, dar folosind codul de mai sus cu modificarea dată lui JYOTHI ar crește de la NR000026489 la NR0000264810. Orice ajutor ar fi foarte apreciat, deoarece am petrecut o mulțime de ani încercând diferite lucruri, dar nu sunt suficient de avansat în VB. Multumesc foarte mult :)
Acest comentariu a fost redus la minimum de moderatorul de pe site
Am achiziționat Kutools, astfel încât să mă ajute să îmi cresc automat numerotarea facturilor, dar nu văd această caracteristică în programul de completare din bara de instrumente Excel. Poate că nu caut numele corect, dar nu găsesc cum să-l introduc în șablonul meu de factură. Oricare acolo
Acest comentariu a fost redus la minimum de moderatorul de pe site
Acest cod funcționează perfect.


Sub NumberCellsAndMergedCells()
„Actualizare 20141028
Dim Rng ca rază de acțiune
Dim WorkRng As Range
La data de eroare CV următoare
xTitleId = „KutoolsforExcel”
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox(„Range”, xTitleId, WorkRng.Address, Type: = 8)
Set WorkRng = WorkRng.Columns(1)
xIndex = 1
Set Rng = WorkRng.Range("A1")
A face în timp ce nu se intersectează (Rng, WorkRng) este nimic
Rng.Value = xIndex
xIndex = xIndex + 1
Set Rng = Rng.MergeArea.Offset(1)
Buclă
End Sub


DAR vreau să selecteze intervalul automat în loc de Set WorkRng = Application.Selection.
Vă rugăm să ajute.
Acest comentariu a fost redus la minimum de moderatorul de pe site
Există o modalitate de a exclude o celulă îmbinată care are text în ea? Acest script funcționează perfect, dar parcurg un document care include mai multe celule îmbinate pe orizontală care sunt făcute în bare de titlu și vreau să sări peste/excluderea acestora. Orice ajutor ar fi foarte apreciat!
Acest comentariu a fost redus la minimum de moderatorul de pe site
Bună,

Cum se transformă o celulă cu

Măr, lămâie, apă, sifon, șapcă, liliac

în

1. Măr, 2. Lămâie, 3. Apă, 4. Capac, 5. Liliac
Acest comentariu a fost redus la minimum de moderatorul de pe site
Când se generează cele mai multe combinații de dimensiuni diferite, și că vom căuta numerar, putem selecta și vaci conținutul... și apoi cu următoarea formulă : =IF(Q7="",(COUNTIF($Q$7:Q7,"") ),SUBSTITUTE("TRUE","TRUE","")) esta detectá que no hay nada y en la casilla combinada pondrá un consecutivo iniciando con el 1- No importa el tamaño de la celda combinada, solo pondrá el numero al principio de la celda combinada.
Acest comentariu a fost redus la minimum de moderatorul de pe site
Mulțumesc!! :)
Nu există comentarii postate aici încă

Urmărește-ne

Copyright © 2009 - www.extendoffice.com. | Toate drepturile rezervate. Cu sprijinul ExtendOffice. | Harta site-ului
Microsoft și sigla Office sunt mărci comerciale sau mărci comerciale înregistrate ale Microsoft Corporation în Statele Unite și / sau în alte țări.
Protejat de Sectigo SSL