请帮忙：执行报错

maxianwen

sub hr()
   Dim i As Variant
   For i = 4 To 25
        With thisworkSheet
           .cell(i, 8) = "2"
           .cell(i, 9) = Application.Ceiling(cell(i, 6) / 5, 1)
           .cell(i, 10) = .cell(i, 8) + .cell(i, 9)
        End With
     i = i + 1
   Next i
End Sub

hehex

逐句分析你的程序：
Dim i As Variant   ' i 只是作为一个计数器使用根本没必要定义为变体型变量 应改为：Dim i As Integer
                       '这句没有语法问题
    For i = 4 To 25  '循环
     With thisworkSheet '这句话语法错，没有Thisworksheet 这个对象，vba把这句话认为thisworksheet 是个对象变量，所以就不知所云了。如果是打开程序所在的工作薄的第一张工作表这句话应该改为：
    With ThisWorkbook.Sheets(1)
     后面的.cell 也是错误的, 单元格对象是Cells,当然由于前面就错了，后面已经无所谓了。
    还有那句i=i+1 不知所云，i 已经在每次加1 进行循环，你如果需要循环步长为2 的话，直接
    For i = 4 to 25 Step 2 就好了，清晰明了。
   更改代码如下(假设你是需要每次i 累加2的循环,如果不是把Step 2 去掉即可)：

1. Sub hr()
   
2.    Dim i As Integer
   
3.    For i = 4 To 25 Step 2
   
4.        With ThisWorkbook.Sheets(1)
   
5.            .Cells(i, 8) = "2"
   
6.            .Cells(i, 9) = Application.Ceiling(Cells(i, 6) / 5, 1)
   
7.            .Cells(i, 10) = .Cell(i, 8) + .Cells(i, 9)
   
8.         End With
   
9.    
   
10.    Next i
    
11. End Sub

复制代码