Namig: drugi jeziki so prevedeni v Google. Lahko obiščete English različico te povezave.
Vpiši se
x
or
x
x
Registracija
x

or

Kako se samodejno združijo celice v Excelu?

Kako lahko številke serij napolnimo v seznam različnih celic, združenih v velikosti, v Excelu? Najprej nam je pomembno, da povlečemo ročico samodejnega izpolnjevanja, da zapolnimo združene celice, vendar v tem primeru dobimo naslednje opozorilno sporočilo in ne moremo zapolniti združenih celic.

doc-fill-združene celice-1

Ker polnilni ročaj ne podpira združenih celic, lahko tu govorim o nekaterih drugih trikih za rešitev tega problema.

Samodejno število / polnjenje združenih celic s kodo VBA


puščica modra desno mehurček Samodejno število / polnjenje združenih celic s kodo VBA


Naslednja VBA koda vam lahko pomaga, da hitro izbrišete izbrane združene celice. Prosimo, naredite naslednje:

1. Drži dol ALT + F11 tipke in odpre Okno Microsoft Visual Basic za aplikacije.

2. Kliknite Vstavi > Moduli, in prilepite naslednjo kodo v Okno modula.

VBA koda: Samodejne številke, združene s številkami

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. Nato pritisnite F5 ključ za zagon te kode in se bo pojavilo odzivno okno, ki vam bo omogočilo, da izberete združene celice, ki jih želite izpolniti, si oglejte posnetek zaslona:

doc-fill-združene celice-1

4. Ko izberete združene celice, kliknite OK, sedaj so bile vaše izbrane združene celice napolnjene z zaporednimi številkami, glej sliko zaslona:

doc-fill-združene celice-1


Sorodni članki:

Kako lahko samodejno številko preštevite po filtru v Excelu?

Kako hitro združiti sosednje vrstice z istimi podatki v Excelu?

Kako unovčiti celice in izpolniti podvojene vrednosti v Excelu?


Priporočena orodja za produktivnost za Excel

zavihek kte 201905

Kutools za Excel vam pomaga, da vedno končate delo pred časom in izstopite iz množice

  • Več kot zmogljive napredne funkcije 300, zasnovane za 1500 delovne scenarije, ki povečujejo produktivnost z 70%, vam dajejo več časa za skrb za družino in uživanje v življenju.
  • Ne potrebujete več pomnilniških formul in VBA kod, od zdaj naprej pa dajate svojim možganom počitek.
  • Postanite strokovnjak za Excel v minutah 3, zapletene in ponavljajoče se operacije lahko opravite v nekaj sekundah,
  • Vsak dan zmanjšajte število operacij tipkovnice in miške, zdaj se poslovite od poklicnih bolezni.
  • 110,000 visoko učinkovite ljudi in 300 + svetovno priznanih podjetij izbiro.
  • Brezplačna preizkusna različica 60 dneva. 60-dnevno jamstvo vračila denarja. 2 let brezplačne nadgradnje in podpore.

Prinaša kartično brskanje in urejanje za Microsoft Office, veliko močnejši od zavihkov brskalnika

  • Office Tab je namenjen za Word, Excel, PowerPoint in druge Office aplikacije: Založnik, Dostop, Visio in Projekt.
  • Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
  • Z 50% poveča vašo produktivnost in vsak dan zmanjša na stotine klikov z miško!

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Robin · 1 years ago
    Is there a way to exclude a merged cell that has text in it? This script works perfectly but I'm traversing a document that includes several horizontally merged cells that are made into title bars and I want to skip over/exclude those. Any help would be greatly appreciated!
  • To post as a guest, your comment is unpublished.
    piyush · 1 years ago
    This code is working perfectly.


    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


    BUT i want it to select range automatically instead of Set WorkRng = Application.Selection.
    Please help.
  • To post as a guest, your comment is unpublished.
    IVAN MARDEN · 1 years ago
    I purchased the Kutools so it would help me auto increment my invoice numbering but I am not seeing that feature in the add-in on the Excel tool bar. Maybe I'm not looking for the correct name but I am not finding how to insert this into my invoice template. Any out there
  • To post as a guest, your comment is unpublished.
    CD · 2 years ago
    Hi,

    was wondering if there is anyway to alter the code where the range value will increase by one e.g. I am trying to use this for invoices and the number should go from NR000026489 to NR000026490, but using the code above with the modification given to JYOTHI it would increase from NR000026489 to NR0000264810.
    Any help would be greatly appreciated as I've spent ages trying different things but am not advanced enough in VB.

    Thanks very much :)
  • To post as a guest, your comment is unpublished.
    Nrv · 2 years ago
    Modify:

    Do While Not Intersect(Rng, WorkRng) Is Nothing
    a = xIndex
    Rng.Value = "Tc_" & a
    xIndex = xIndex + 1
    Set Rng = Rng.MergeArea.Offset(1)
    Loop