VBA遍历单元格并将字符更改为ASCII代码 [英] VBA loop through cells and change characters to ascii code

问题描述

我必须将字符串拆分为每个字符分开的单元格，然后将字符转换为其ASCII码.为此，我使用ASC()，但是我的问题是只有第一行被转换为ASCII代码，然后我得到:

I have to split string to separate cells for every character, then convert characters to their ASCII code. For this purpose I'm using ASC() but my problem is that only first row is translated to ASCII code, then I get:

无效的过程调用或参数

Invalid procedure call or argument

我只是在学习VBA，所以我不知道这是否是正确的方法.

I'm just learning VBA so I don't know if that's a proper way to do it.

我的代码:

Sub check_is_prime()
 For i = 1 To 1000
    For b = 2 To 26
    Cells(i, b) = Asc(Cells(i, b).Value)
    Next b
 Next i
End Sub

推荐答案

尝试一下:

Sub check_is_prime()
    For i = 1 To 1000
       For b = 2 To 26
           If Cells(i, b) <> "" Then
               Cells(i, b) = Asc(Cells(i, b))
           End If
       Next b
    Next i
End Sub

这篇关于VBA遍历单元格并将字符更改为ASCII代码的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！