VBA конвертировать столбец текста в значения ASCII

Question

Я пытаюсь преобразовать столбец текста в ASCII.Этот вопрос похож на связанный вопрос, но для полных строк, а не отдельных символов.Я использую код ниже.Я не получаю никаких сообщений об ошибках, просто без изменений.Пожалуйста, предположите, что у меня нет опыта программирования VBA.

Sub Convert_ASCII()
'

Dim last As Long
Dim i As Integer
Dim l As Long
Dim s As String

last = ActiveSheet.Cells(2, "A").End(xlDown).Row

    For i = 2 To last
    s = Cells(i, 1)
        For l = 1 To Len(s)
        Mid(s, l, 1) = Asc(Mid(s, l, 1))
      Next l
   Next i
End Sub

Цикл для преобразования символов в ASCII

Answer 1

Проблема в том, что вы конвертируете всю строку, но никогда не назначаете преобразованную строку в ячейку.

Sub Convert_ASCII()
    '
    Dim last As Long
    Dim i As Integer
    Dim l As Long
    Dim s As String
    Dim cs As String

    last = ActiveSheet.Cells(2, "A").End(xlDown).Row

    For i = 2 To last
        s = Cells(i, 1)
        cs = ""
        For l = 1 To Len(s)
            cs = cs & Asc(Mid(s, l, 1))
        Next l
        Cells(i, 1) = cs
    Next i
End Sub