VBA将文本列转换为ASCII值：代码无报错但无效果求助

嘿，我来帮你揪出问题所在！你写的代码其实有两个关键漏洞，导致单元格内容完全没变化：

问题1：只修改了内存变量，没写回单元格 #

你的代码把A列内容读到了s变量里，然后在内存里修改了s，但从来没把修改后的结果写回Excel单元格——就像你在草稿纸上改了作业，却没抄回作业本，Excel当然看不到任何变化啦。

问题2：字符替换的写法不符合需求 #

你用Mid(s, l, 1) = Asc(Mid(s, l, 1))的方式想替换字符，但这里有个大坑：Asc()返回的是整数（比如"A"的ASCII是65），把整数赋值给字符串的单个位置时，只会取数字的第一个字符（比如65会变成"6"），这完全不是你想要的「把每个字符的ASCII值拼接成完整字符串」的效果。

修正后的代码 #

我给你改了代码，不仅修复了这两个问题，还把变量名改得更直白，新手也能轻松看懂：

Sub Convert_ASCII()
    Dim lastRow As Long
    Dim i As Long
    Dim originalText As String
    Dim asciiResult As String
    Dim charIndex As Long
    
    ' 更可靠的方式获取A列最后一行数据（避免空行干扰）
    lastRow = ActiveSheet.Cells(Rows.Count, "A").End(xlUp).Row
    
    ' 遍历A列第2行到最后一行的数据
    For i = 2 To lastRow
        originalText = ActiveSheet.Cells(i, 1).Value
        asciiResult = "" ' 每次循环都初始化结果字符串
        
        ' 逐个字符转ASCII，拼接到结果里
        For charIndex = 1 To Len(originalText)
            ' 把每个字符的ASCII值转成字符串，拼起来
            asciiResult = asciiResult & Asc(Mid(originalText, charIndex, 1))
        Next charIndex
        
        ' 把结果写回B列（你可以改成A列直接覆盖，或者其他列）
        ActiveSheet.Cells(i, 2).Value = asciiResult
    Next i
End Sub

几个实用小提示 #

1. 我把获取最后一行的方式改成了Cells(Rows.Count, "A").End(xlUp).Row，这样就算A列中间有空行，也能准确找到最后一行有数据的位置。
2. 代码默认把结果写在B列，如果你想直接覆盖A列的内容，把Cells(i,2)改成Cells(i,1)就行，但建议先备份数据再操作！
3. 如果你的字符串里有中文或其他Unicode字符，想用Unicode编码代替ASCII，可以把Asc()改成AscW()。

内容的提问来源于stack exchange，提问作者user9824134