Skip i'r prif gynnwys

Sut i drosi llythyr colofn yn rhif neu i'r gwrthwyneb yn Excel?

Yr erthygl hon, byddaf yn siarad am sut i drosi llythyren golofn i rif colofn neu drosi rhif colofn yn llythyren. Megis, trosi llythyren golofn AA i'r rhif 27, neu drosi colofn rhif 100 yn llythyren CV. I gael yr ateb gyda'r dulliau canlynol.

Trosi llythyr colofn yn rhif neu i'r gwrthwyneb gyda fformwlâu

Trosi llythyr colofn yn rhif neu i'r gwrthwyneb â Swyddogaeth Diffiniedig Defnyddiwr

swigen dde glas saeth Trosi llythyr colofn yn rhif neu i'r gwrthwyneb gyda fformwlâu

I drosi'r llythyr colofn neu'r label yn rhif neu i'r gwrthwyneb, gall y fformwlâu isod eich helpu chi, gwnewch hyn:

Trosi llythyr colofn i rif colofn:

Rhowch y fformiwla hon: = COLUMN (INDIRECT ("AB1")) i mewn i gell wag lle rydych chi am ddod o hyd i'r canlyniad wedi'i drosi, ac yna pwyso Rhowch allwedd i gael rhif y golofn:

doc trosi label colofn yn rhif 1

Nodyn: Yn y fformiwla uchod, AB yw'r llythyr colofn rydych chi am gael rhif y golofn yn seiliedig arno, gallwch ei newid i'ch angen.

Trosi rhif colofn yn llythyren golofn:

Teipiwch y fformiwla hon: = SYLWEDD (CYFEIRIAD (1,200,4), 1, "") i mewn i gell wag i gael y canlyniad, ac yna pwyswch Rhowch i gael y llythyr colofn fel a ganlyn:

doc trosi label colofn yn rhif 2

Nodyn: Yn y fformiwla uchod, y rhif coch 200 yw'r rhif colofn rydych chi am ei drosi i lythyren golofn, gallwch ei newid i'ch angen.

swigen dde glas saeth Trosi llythyr colofn yn rhif neu i'r gwrthwyneb â Swyddogaeth Diffiniedig Defnyddiwr

Ac eithrio'r fformwlâu, yma, gallaf hefyd gyflwyno'r Swyddogaeth Diffiniedig Defnyddiwr i ddelio â'r dasg hon.

Trosi llythyr colofn i rif colofn:

1. Daliwch i lawr y ALT + F11 allweddi, yna mae'n agor y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.

2. Cliciwch Mewnosod > Modiwlau, a gludwch y cod canlynol yn y Modiwlau Ffenestr.

Cod VBA: trosi llythyr colofn yn rhif colofn:

Public Function ToColNum(ColN)
    ToColNum = Range(ColN & 1).Column
End Function

3. Yna arbedwch a chau'r cod hwn, ewch yn ôl i'r daflen waith, a nodi'r fformiwla hon: = Tocolnum ("VV") (VV yw'r llythyr colofn rydych chi am drosi rhif. ) i mewn i gell wag, a gwasgwch Rhowch allwedd i gael rhif y golofn, gweler y screenshot:

doc trosi label colofn yn rhif 3

Trosi rhif colofn yn llythyren golofn:

1. Daliwch i lawr y ALT + F11 allweddi, yna mae'n agor y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.

2. Cliciwch Mewnosod > Modiwlau, a gludwch y cod canlynol yn y Modiwlau Ffenestr.

Cod VBA: trosi rhif colofn yn llythyren golofn:

Public Function ToColletter(Collet)
    ToColletter = Split(Cells(1, Collet).Address, "$")(1)
End Function

3. Yna arbedwch a chau'r cod hwn, ewch yn ôl i'r daflen waith, a nodi'r fformiwla hon: = ToColletter (50) (50 yw'r rhif colofn rydych chi am ei drosi i lythyren. ) i mewn i gell wag, a gwasgwch Rhowch allwedd i gael rhif y golofn, gweler y screenshot:

doc trosi label colofn yn rhif 4

Offer Cynhyrchiant Swyddfa Gorau

🤖 Kutools AI Aide: Chwyldro dadansoddi data yn seiliedig ar: Cyflawniad Deallus   |  Cynhyrchu Cod  |  Creu Fformiwlâu Personol  |  Dadansoddi Data a Chynhyrchu Siartiau  |  Invoke Swyddogaethau Kutools...
Nodweddion Poblogaidd: Darganfod, Amlygu neu Adnabod Dyblygiadau   |  Dileu Rhesi Gwag   |  Cyfuno Colofnau neu Gelloedd heb Colli Data   |   Rownd heb Fformiwla ...
Super-edrych: VLookup Meini Prawf Lluosog  |   VLookup Gwerth Lluosog  |   VLookup Ar Draws Taflenni Lluosog   |   Edrych Niwlog ....
Rhestr gwympo Uwch: Creu Rhestr Gollwng yn Gyflym   |  Rhestr Gollwng Dibynnol   |  Rhestr Gollwng Aml-ddewis ....
Rheolwr Colofn: Ychwanegu Nifer Penodol o Golofnau  |  Symud Colofnau  |  Toglo Statws Gwelededd Colofnau Cudd  |  Cymharwch Ystodau a Cholofnau ...
Nodweddion dan Sylw: Ffocws ar y Grid   |  Golwg Dylunio   |   Bar Fformiwla Mawr   |  Rheolwr Llyfr Gwaith a Thaflen   |  Llyfrgell Adnoddau (Testun Auto)   |  Dewiswr Dyddiad   |  Cyfuno Taflenni Gwaith   |  Amgryptio/Dadgryptio Celloedd   |  Anfon E-byst trwy Restr   |  Hidlo Super   |   Hidlo Arbennig (hidlo mewn print trwm/italig/strikethrough...) ...
15 Set Offer Gorau:  12 Testun offer (Ychwanegu Testun, Dileu Cymeriadau,...)   |   50 + Siart Mathau (Siart Gantt,...)   |   40+ Ymarferol Fformiwlâu (Cyfrifwch oedran yn seiliedig ar ben-blwydd,...)   |   19 mewnosod offer (Mewnosod Cod QR, Mewnosod Llun o'r Llwybr,...)   |   12 Trosi offer (Rhifau i Eiriau, Trosi arian cyfred,...)   |   7 Uno a Hollti offer (Rhesi Cyfuno Uwch, Celloedd Hollt,...)   |   ... a mwy

Supercharge Eich Sgiliau Excel gyda Kutools ar gyfer Excel, a Phrofiad Effeithlonrwydd Fel Erioed Erioed. Kutools ar gyfer Excel Yn Cynnig Dros 300 o Nodweddion Uwch i Hybu Cynhyrchiant ac Arbed Amser.  Cliciwch Yma i Gael Y Nodwedd Sydd Ei Angen Y Mwyaf...

Disgrifiad

Mae Office Tab yn dod â rhyngwyneb Tabbed i Office, ac yn Gwneud Eich Gwaith yn Haws o lawer

  • Galluogi golygu a darllen tabbed yn Word, Excel, PowerPoint, Cyhoeddwr, Mynediad, Visio a Phrosiect.
  • Agor a chreu dogfennau lluosog mewn tabiau newydd o'r un ffenestr, yn hytrach nag mewn ffenestri newydd.
  • Yn cynyddu eich cynhyrchiant 50%, ac yn lleihau cannoedd o gliciau llygoden i chi bob dydd!
Comments (10)
Rated 5 out of 5 · 1 ratings
J
J
This comment was minimized by the moderator on the site
Public Function AlphabetInteger(ByVal letter As String) As Integer
Dim N As Integer
letter = Strings.UCase(letter)
If letter = "A" Then
N = 1
ElseIf letter = "B" Then
N = 2
ElseIf letter = "C" Then
N = 3
ElseIf letter = "D" Then
N = 4
ElseIf letter = "E" Then
N = 5
ElseIf letter = "F" Then
N = 6
ElseIf letter = "G" Then
N = 7
ElseIf letter = "H" Then
N = 8
ElseIf letter = "I" Then
N = 9
ElseIf letter = "J" Then
N = 10
ElseIf letter = "K" Then
N = 11
ElseIf letter = "L" Then
N = 12
ElseIf letter = "M" Then
N = 13
ElseIf letter = "N" Then
N = 14
ElseIf letter = "O" Then
N = 15
ElseIf letter = "P" Then
N = 16
ElseIf letter = "Q" Then
N = 17
ElseIf letter = "R" Then
N = 18
ElseIf letter = "S" Then
N = 19
ElseIf letter = "T" Then
N = 20
ElseIf letter = "U" Then
N = 21
ElseIf letter = "V" Then
N = 22
ElseIf letter = "W" Then
N = 23
ElseIf letter = "X" Then
N = 24
ElseIf letter = "Y" Then
N = 25
ElseIf letter = "Z" Then
N = 26
Else
N = 0
End If
AlphabetInteger = N
End Function


Public Function ColumnNumber(ByVal columnLetter As String) As Integer
Dim I As Integer
Dim sLength As Integer
Dim N As Integer
Dim A As Integer
Dim P As Integer
Dim C As String

sLength = Len(columnLetter)
N = 0
For I = 1 To sLength
P = sLength - I
C = Strings.Mid(columnLetter, I, 1)
A = AlphabetInteger(C)
N = N + A * 26 ^ P
Next I
ColumnNumber = N
End Function
Reply
0
0
Donatas
Donatas
This comment was minimized by the moderator on the site
Best solution =SUBSTITUTE(ADDRESS(1;COLUMN();4);1;"")
Thanks a lot.
Reply
0
0
Rated 5 out of 5
aa
aa
This comment was minimized by the moderator on the site
A to ZZ
=if(row()>26,char(row()/26+64)&char(mod(row(),26)+64),char(row()+64))
Reply
0
0
lxs602
lxs602     aa
This comment was minimized by the moderator on the site
This formula does not work at rows that are multiples of 26. It gives B@ instead of AZ, C@ instead of BZ, D@ instead of CZ, etc.
Correction:= IF(ROW()>26,(IF(MOD(ROW(),26)=0,CHAR((ROW()-1)/26+64)&CHAR(MOD(ROW()-1,26)+65), CHAR(ROW()/26+64)&CHAR(MOD(ROW(),26)+64))),CHAR(ROW()+64))
Reply
0
0
Albert
Albert
This comment was minimized by the moderator on the site
thank you so much!!!...your formula to create the column letter to number really helps me a lot.
Reply
0
0
petr
petr
This comment was minimized by the moderator on the site
Function ToColletter(Collet) works as volatile function. If something changes anywhere in the sheet. It recalculate everywhere. In my case it makes 15 mil calculations and slowdown the calculation. Do you know how to fix it, if I dont want set application.calculation to manual and than back?
Reply
0
0
diego
diego
This comment was minimized by the moderator on the site
hola, cuando pego la formula = SUSTITUIR (DIRECCIÓN (1,200,4), 1, "") en una celda no hace nada, solo devuelve la formula, ya sea con 200 o cualquier otro numero
Reply
0
0
Better
Better
This comment was minimized by the moderator on the site
=CHAR(COLUMN( )+64)
Reply
0
0
Not better
Not better     Better
This comment was minimized by the moderator on the site
Not better as it only works with 26 columns.
Reply
0
0
J
J
This comment was minimized by the moderator on the site
For so long I've used R1C1 cell referencing because I didn't know about the =SUBSTITUTE(ADDRESS(1,number,4),1,"") solution. Thank you!!
Reply
0
0
There are no comments posted here yet
Please leave your comments in English
Guest
Posting as Guest
×
Rate this post:
Reset
0   Characters
Suggested Locations