The Excel? Følgende VBA-kode kan hjelpe deg med å nummerere de valgte sammenslåtte celler raskt. Gjør følgende:
1. Hold nede ALT + F11-tastene, og det åpner Microsoft Visual Basic for Applications vinduet.
2. Klikk Sett > Modul, og lim inn følgende kode i modulen Window
VBA-kode. Auto nummer sammenslåtte celler
Sub NumberCellsAndMergedCells () 'Oppdater 20141028 Dim RNG Som Range Dim WorkRng Som Range On Error Resume Next xTitleId = "KutoolsforExcel" Set WorkRng = Application.Selection Set WorkRng = Application.InputBox ("Range", xTitleId, WorkRng.Address, Type: = 8) Sett WorkRng = WorkRng.Columns (1) xIndex = 1 Set RNG = WorkRng.Range ("A1") Har Mens ikke overlappe (RNG, WorkRng) Er Ingenting Rng.Value = xIndex xIndex = xIndex + 1 Set RNG = Rng.MergeArea.Offset (1) LoopEnd Sub3. Deretter trykker F5 for å kjøre denne koden, og en rask boks vil komme ut for å la deg velge de fusjonerte cellene du vil fylle, se skjermbilde:
4. Når du har valgt de sammenslåtte celler, og klikk OK, nå, de valgte sammenslåtte celler har vært fylt med sekvensielle tall, se skjermbilde: