Preskoči na glavno vsebino

Kako oštevilčiti celice z abecednimi črkami v Excelu?

V Excelu lahko celice oštevilčimo s številčnimi serijami, kot so 1, 2, 3 ... z ročico za samodejno izpolnjevanje, kako pa lahko oštevilčimo celice z abecednimi črkami A, B, C ...? V tej vadnici predstavljam nekaj načinov za obvladovanje tega dela v Excelu.

Številčenje celic z abecedno črko s formulo

Številčenje celic z abecedno črko s kodo VBA

Oštevilčenje celic z z Kutools za Exceldobra ideja3


V Run vstavite več nabojev ali oštevilčenjage

V Excelu morate vstaviti oznake ali oštevilčiti eno za drugo, vendar s tem priročnim orodjem, Kutools za Excel's Vstavi oznako in Vstavite Nmbering pripomočki, lahko hitro vstavite oznake ali oštevilčenje
na izbrane celice hkrati ..  Kliknite za 60-dnevno brezplačno preskusno različico!
doc vstavi oštevilčeno oznako
 
Kutools za Excel: z več kot 200 priročnimi dodatki za Excel lahko brezplačno preizkusite brez omejitev v 60 dneh.

Številčenje celic z abecedno črko s formulo

1. Vnesite vse črke, ki jih želite uporabiti za oštevilčevanje celic, na seznam poleg celic, ki jih želite oštevilčiti.
oštevilčenje dokumentov s črko 1

Če imate Kutools za Excelje Izpolnite sezname po meri pripomoček vas podpira pri ustvarjanju seznama iz obsega, nato pa lahko novi seznam vstavite kamor koli želite, ne da bi ga vpisali enega za drugim.  Kliknite za 60-dnevno brezplačno preskusno različico!
oštevilčenje dokumentov s črko 2

2. Izberite celico, ki meji na črke in vsebino celice, ki jo želite oštevilčiti, vnesite to formulo = A1 & "." & B1, povlecite ročico za izpolnitev navzdol, da formulo zapolnite do vseh celic, ki jih potrebujete.
oštevilčenje dokumentov s črko 3


Številčenje celic z abecedno črko s kodo VBA

Če poznate makro kode, lahko storite naslednje:

1. Pritisnite Alt + F11 tipke za omogočanje Microsoft Visual Basic za aplikacije okno. Kliknite Vstavi > Moduli.

2. Kopirajte in prilepite spodnjo kodo v Moduli skripta.

VBA: oštevilčenje z A

Sub Prefix_A()
'UpdatebyExtendoffice20180828
Dim xRg As Range
Dim xStrPrefix As String
xStrPrefix = "A."
On Error Resume Next
Application.ScreenUpdating = False
For Each xRg In Selection
    If xRg.Value <> "" Then
        xRg.Value = xStrPrefix & xRg.Value
    End If
Next
Application.ScreenUpdating = True
End Sub

3. Nato ponovite kodo in prilepite A v B ali C ali D, kot potrebujete.
oštevilčenje dokumentov s črko 4

4. Shranite kodo in zaprite Microsoft Visual Basic za aplikacije okno.

5. Izberite celice, ki jih želite oštevilčiti z A, in kliknite Razvojni > Makri.
oštevilčenje dokumentov s črko 5

6. v Makro izberite kodo Predpona_A in kliknite Run.
oštevilčenje dokumentov s črko 6

7. Izbor je oštevilčen z A.
oštevilčenje dokumentov s črko 7

8. Ponovite 5. in 6. korak, da po potrebi oštevilčite celice z določeno črko.


Številčenje celic s programom Kutools za Excel

Če imate Kutools za Excel, lahko hitro oštevilčite celice.

Kutools za Excel, z več kot 200 priročne funkcije, vam olajša delo. 

Po namestitvi Kutools za Excel, naredite spodaj:(Brezplačno prenesite Kutools za Excel zdaj!)

Izberite celice, ki jih želite oštevilčiti, in kliknite Kutools > Vstavi > Vstavi oštevilčenje, izberite eno vrsto, ki jo potrebujete.
oštevilčenje dokumentov s črko 8

Nato so celice dodali oštevilčenje.
oštevilčenje dokumentov s črko 9

Brskanje in urejanje več Excelovih delovnih zvezkov / Wordovih dokumentov kot Firefox, Chrome, Internet Explore 10!

Morda ste seznanjeni z ogledom več spletnih strani v Firefoxu / Chromu / IE in med njimi preklapljate tako, da enostavno kliknete ustrezne zavihke. Tu Office Tab podpira podobno obdelavo, ki omogoča brskanje po več Excelovih delovnih zvezkih ali Wordovih dokumentih v enem Excelovem oknu ali Wordovem oknu in enostavno preklapljanje med njimi s klikom na njihove zavihke. Kliknite brezplačno 30-dnevni preizkus Office Tab!

ali excel

Najboljša pisarniška orodja za produktivnost

Priljubljene funkcije: Poiščite, označite ali identificirajte dvojnike   |  Izbriši prazne vrstice   |  Združite stolpce ali celice brez izgube podatkov   |   Krog brez formule ...
Super iskanje: Več kriterijev VLookup    Multiple Value VLookup  |   VLookup na več listih   |   Nejasno iskanje ....
Napredni spustni seznam: Hitro ustvarite spustni seznam   |  Odvisni spustni seznam   |  Večkrat izberite spustni seznam ....
Upravitelj stolpcev: Dodajte določeno število stolpcev  |  Premakni stolpce  |  Preklop stanja vidnosti skritih stolpcev  |  Primerjaj obsege in stolpce ...
Predstavljene funkcije: Mrežni fokus   |  Pogled oblikovanja   |   Velika vrstica formule    Upravitelj delovnih zvezkov in listov   |  Knjižnica virov (Samodejno besedilo)   |  Izbirnik datuma   |  Združite delovne liste   |  Šifriranje/dešifriranje celic    Pošljite e-pošto po seznamu   |  Super filter   |   Poseben filter (filter krepko/ležeče/prečrtano ...) ...
15 najboljših kompletov orodij12 Besedilo Orodja (dodajanje besedila, Odstrani znake,...)   |   50 + Graf Vrste (Gantt Chart,...)   |   40+ Praktično Formule (Izračunajte starost glede na rojstni dan,...)   |   19 vstavljanje Orodja (Vstavite kodo QR, Vstavi sliko s poti,...)   |   12 Pretvorba Orodja (Številke v besede, Pretvorba valut,...)   |   7 Spoji in razdeli Orodja (Napredne kombinirane vrstice, Razdeljene celice,...)   |   ... in več

Napolnite svoje Excelove spretnosti s Kutools za Excel in izkusite učinkovitost kot še nikoli prej. Kutools za Excel ponuja več kot 300 naprednih funkcij za povečanje produktivnosti in prihranek časa.  Kliknite tukaj, če želite pridobiti funkcijo, ki jo najbolj potrebujete...

zavihek kte 201905


Kartica Office prinaša vmesnik z zavihki v Office in poenostavi vaše delo

  • Omogočite urejanje in branje z zavihki v Wordu, Excelu, PowerPointu, Publisher, Access, Visio in Project.
  • Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
  • Poveča vašo produktivnost za 50%in vsak dan zmanjša na stotine klikov miške za vas!
Comments (1)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Sub Alphabetic_Numbering()
Dim InputRng As Range, Start As Integer, Cell As Range, Start1 As Integer, Rowsx As Integer, Double_Start As Integer
Set InputRng = Application.Selection
Set InputRng = Application.InputBox("Range", xTitleId, InputRng.Address, Type:=8)

Start = 65
Rowsx = InputRng.Rows.Count


For i = 1 To Rowsx
If i < 27 Then
InputRng.Cells(i, 1).Value = Chr(Start) & ". " & InputRng.Cells(i, 1).Value
Start = Start + 1
End If

roundupUnitcount = Application.WorksheetFunction.RoundUp(i / 26, 0) - 1
If Start > 90 Then
Start = Start - 26
End If
Double_Start = 64 + roundupUnitcount
If i > 26 Then
InputRng.Cells(i, 1).Value = Chr(Double_Start) & Chr(Start) & ". " & InputRng.Cells(i, 1).Value
InputRng.Cells(i, 2).Value = Start
Start = Start + 1
End If
Next i
End Sub
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations