Cách thay thế các chữ cái trong một ô bằng các số được xác định từ một bảng riêng biệt

Tôi có một ô có các số và chữ hỗn hợp (ví dụ AA12CC45WR) và chúng là ngẫu nhiên.

Trên một trang tính khác, tôi có một bảng có tương đương với mỗi chữ cái như (ô A1, B1)

A=1
C=25
W=66
R=77 

cho các chữ cái ABC cho đến Z

Giải pháp nên là 11122525456677

Làm cách nào để tạo một hàm để thay thế tất cả các chữ cái bằng các số được xác định trong bảng khác?

Đây là một chức năng sẽ thực hiện giải mã. Đặt phần này trong một mô-đun và cập nhật tham chiếu Phạm vi khi cần thiết. Nếu ô A1có giá trị "mã" ban đầu, hãy nhập công thức: =Decode(A1)vào ô khác để nhận giá trị "được giải mã".

Public Function Decode(Code As String) As String
    Dim iIdx As Integer
    Dim sChar As String
    Dim sResult As String
    For iIdx = 1 To Len(Code)
        sChar = UCase$(Mid$(Code, iIdx, 1))
        If Asc(sChar) >= 65 And Asc(sChar) <= 90 Then
            sChar = WorksheetFunction.VLookup(sChar, Worksheets("Sheet2").Range("A1:B26"), 2, False)
        End If
        sResult = sResult & sChar
    Next iIdx
    Decode = sResult
End Function