VBA循环遍历单元格并将字符更改为ascii代码

Question

我必须将字符串拆分为每个字符的单独单元格，然后将字符转换为ASCII码。为此，我使用ASC（）但我的问题是只有第一行被转换为ASCII码，然后我得到：

  

无效的过程调用或参数

我刚刚学习VBA，所以我不知道这是否是一种正确的方法。

我的代码：

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

Answer 1

尝试一下：

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