VBA 预期语句结束

Question

我正在尝试使用 VBA 编辑我的 excel 表，但编译时出现错误。它不识别第 2 行和第 10 行。

Sub IfThenElse()
    Dim i As Integer = 23
    While Not IsNull(Cells(i, 35).Value)
        If Cells(i, 35).Value > 1E+16 Then
            Cells(i, 4).Value = Cells(i, 35).Value / 10
        Else
            Cells(i, 4).Value = Cells(i, 35).Value
            i = i + 1
        End If
    End While
End Sub

Answer 1

1. 不能同时声明变量和设置值Dim i As Integer = 23

2. 行数的类型为 Long 而不是 Integer，Excel 的行数超出了 Integer 的处理能力。

   Dim i As Long 
   i = 23
   

3. While … End While 是无效语法，您需要使用 Do While … Loop（请参阅Do...Loop statement）。

4. 如果您要查找空单元格，则单元格值不太可能是 Null，请使用 IsEmpty 或检查 vbNullString

   Do While Not IsEmpty(Cells(i, 35).Value) 'or Do While Not Cells(i, 35).Value = vbNullString
       If Cells(i, 35).Value > 1E+16 Then
           Cells(i, 4).Value = Cells(i, 35).Value / 10
       Else
           Cells(i, 4).Value = Cells(i, 35).Value
           i = i + 1
       End If
   Loop
   

5. 不确定您到底在做什么，但i = i + 1 可能需要在End If 之后。