Bỏ qua nội dung chính

Làm thế nào để chuyển đổi ký tự cột thành số hoặc ngược lại trong Excel?

Bài viết này, tôi sẽ nói về cách chuyển đổi ký tự cột thành số cột hoặc chuyển đổi số cột thành chữ cái. Chẳng hạn như, chuyển đổi cột ký tự AA thành số 27 hoặc chuyển đổi cột số 100 thành chữ cái CV. Để có được giải pháp với các phương pháp sau.

Chuyển đổi ký tự cột thành số hoặc ngược lại bằng công thức

Chuyển đổi chữ cái của cột thành số hoặc ngược lại với Hàm do Người dùng Xác định


mũi tên màu xanh bong bóng bên phải Chuyển đổi ký tự cột thành số hoặc ngược lại bằng công thức

Để chuyển đổi ký tự cột hoặc nhãn thành số hoặc ngược lại, các công thức dưới đây có thể giúp bạn, vui lòng thực hiện như sau:

Chuyển đổi ký tự cột thành số cột:

Vui lòng nhập công thức này: = COLUMN (INDIRECT ("AB1")) vào một ô trống nơi bạn muốn xác định kết quả được chuyển đổi, rồi nhấn đăng ký hạng mục thi phím để lấy số cột:

doc chuyển đổi nhãn cột thành số 1

Lưu ý: Trong công thức trên, AB là ký tự cột mà bạn muốn lấy số cột dựa vào đó, bạn có thể thay đổi theo nhu cầu của mình.

Chuyển số cột thành ký tự cột:

Vui lòng nhập công thức này: = SUBSTITUTE (ADDRESS (1,200,4), 1, "") vào một ô trống để nhận kết quả, rồi nhấn đăng ký hạng mục thi để có được ký tự cột như sau:

doc chuyển đổi nhãn cột thành số 2

Lưu ý: Trong công thức trên, số màu đỏ 200 là số cột mà bạn muốn chuyển đổi thành ký tự cột, bạn có thể thay đổi nó theo nhu cầu của bạn.


mũi tên màu xanh bong bóng bên phải Chuyển đổi chữ cái của cột thành số hoặc ngược lại với Hàm do Người dùng Xác định

Ngoại trừ các công thức, ở đây, tôi cũng có thể giới thiệu Chức năng do người dùng xác định để đối phó với nhiệm vụ này.

Chuyển đổi ký tự cột thành số cột:

1. Giữ ALT + F11 chìa khóa, sau đó nó mở Microsoft Visual Basic cho các ứng dụng cửa sổ.

2. Nhấp chuột Chèn > Mô-đunvà dán mã sau vào Mô-đun Cửa sổ.

Mã VBA: chuyển đổi ký tự cột thành số cột:

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

3. Sau đó, lưu và đóng mã này, quay lại trang tính và nhập công thức này: = Tocolnum ("VV") (VV là ký tự cột mà bạn muốn chuyển đổi số. ) vào một ô trống và nhấn đăng ký hạng mục thi phím để lấy số cột, xem ảnh chụp màn hình:

doc chuyển đổi nhãn cột thành số 3

Chuyển số cột thành ký tự cột:

1. Giữ ALT + F11 chìa khóa, sau đó nó mở Microsoft Visual Basic cho các ứng dụng cửa sổ.

2. Nhấp chuột Chèn > Mô-đunvà dán mã sau vào Mô-đun Cửa sổ.

Mã VBA: chuyển đổi số cột thành ký tự cột:

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

3. Sau đó, lưu và đóng mã này, quay lại trang tính và nhập công thức này: = ToColletter (50) (50 là số cột mà bạn muốn chuyển đổi thành chữ cái. ) vào một ô trống và nhấn đăng ký hạng mục thi phím để lấy số cột, xem ảnh chụp màn hình:

doc chuyển đổi nhãn cột thành số 4

Công cụ năng suất văn phòng tốt nhất

🤖 Trợ lý AI của Kutools: Cách mạng hóa việc phân tích dữ liệu dựa trên: Thực thi thông minh   |  Tạo mã  |  Tạo công thức tùy chỉnh  |  Phân tích dữ liệu và tạo biểu đồ  |  Gọi các hàm Kutools...
Các tính năng phổ biến: Tìm, đánh dấu hoặc xác định các bản sao   |  Xóa hàng trống   |  Kết hợp các cột hoặc ô mà không làm mất dữ liệu   |   Vòng không có công thức hữu ích. Cảm ơn !
Siêu tra cứu: Nhiều tiêu chí VLookup    VLookup Nhiều Giá Trị  |   VLookup trên nhiều trang tính   |   Tra cứu mờ ....
Danh sách thả xuống nâng cao: Tạo nhanh danh sách thả xuống   |  Danh sách thả xuống phụ thuộc   |  Danh sách thả xuống nhiều lựa chọn ....
Trình quản lý cột: Thêm một số cột cụ thể  |  Di chuyển cột  |  Chuyển đổi trạng thái hiển thị của các cột ẩn  |  So sánh dãy và cột hữu ích. Cảm ơn !
Các tính năng nổi bật: Tiêu điểm lưới   |  Chế độ xem thiết kế   |   Thanh công thức lớn    Trình quản lý sổ làm việc & trang tính   |  Thư viện tài nguyên (Văn bản tự động)   |  Bảng chọn ngày   |  Kết hợp các bảng tính   |  Mã hóa/Giải mã ô    Gửi email theo danh sách   |  Siêu lọc   |   Bộ lọc đặc biệt (lọc in đậm/nghiêng/gạch ngang...) ...
15 bộ công cụ hàng đầu12 bản văn CÔNG CỤ (thêm văn bản, Xóa ký tự,...)   |   50 + Biểu đồ Các loại (Biểu đồ Gantt,...)   |   40+ Thực tế Công thức (Tính tuổi dựa trên ngày sinh,...)   |   19 chèn CÔNG CỤ (Chèn mã QR, Chèn ảnh từ đường dẫn,...)   |   12 Chuyển đổi CÔNG CỤ (Số thành từ, Chuyển đổi tiền tệ,...)   |   7 Hợp nhất & Tách CÔNG CỤ (Các hàng kết hợp nâng cao, Chia ô,...)   |   ... và nhiều hơn nữa

Nâng cao kỹ năng Excel của bạn với Kutools for Excel và trải nghiệm hiệu quả hơn bao giờ hết. Kutools for Excel cung cấp hơn 300 tính năng nâng cao để tăng năng suất và tiết kiệm thời gian.  Bấm vào đây để có được tính năng bạn cần nhất...

Mô tả


Tab Office mang lại giao diện Tab cho Office và giúp công việc của bạn trở nên dễ dàng hơn nhiều

  • Cho phép chỉnh sửa và đọc theo thẻ trong Word, Excel, PowerPoint, Publisher, Access, Visio và Project.
  • Mở và tạo nhiều tài liệu trong các tab mới của cùng một cửa sổ, thay vì trong các cửa sổ mới.
  • Tăng 50% năng suất của bạn và giảm hàng trăm cú nhấp chuột cho bạn mỗi ngày!
Comments (10)
Rated 5 out of 5 · 1 ratings
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
This comment was minimized by the moderator on the site
Best solution =SUBSTITUTE(ADDRESS(1;COLUMN();4);1;"")
Thanks a lot.
Rated 5 out of 5
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))
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))
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.
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?
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
This comment was minimized by the moderator on the site
=CHAR(COLUMN( )+64)
This comment was minimized by the moderator on the site
Not better as it only works with 26 columns.
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!!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations