求助，这些代码执行怎么没反应。

千江水

A列中有若干个单元格，想在B列的单元格中计算对应A列每个单元格后2个字符与前2个字符之差然后+1，然后在C1单元格中求和。但是这些代码执行怎么没反应，也没显示错误，还望各位大神帮忙解答。

Sub test1()
    Dim i As Integer
    i = 1
    If Len(Cells(i, 1)) > 0 Then
       bi = "=ABS(RIGHT(Cells(i,1),2)-LEFT(Cells(i,1),2)+1)"
       i = i + 1
    End If
    C1 = "=SUM(Cells(1,2):Cells(i,2))"
End Sub

dianlaoxx

神，当然不能运行

dianlaoxx

bi = "=ABS(RIGHT(Cells(i,1),2)-LEFT(Cells(i,1),2)+1)"
bi不对

kinkouhou

你看一下这样能不能满足你的要求？
你的代码中有几个不妥
1 没有循环，计算第一个单元格后，不会转到下一单元格
2 你把公式写入了单元格，但公式好像不可以用 i  这个变量吧？
3 其他人也指出了，要写入B1单元格，必须用 range 或 cells

Sub test1()
     Dim i As Integer
     i = 1
     Do While Cells(i, 1) <> ""
     If Len(Cells(i, 1)) > 0 Then
        Range("B" & i) = (Right(Cells(i, 1), 2) - Left(Cells(i, 1), 2)) + 1
        i = i + 1
     End If
     Loop
     Cells(1, 3) = Application.Sum(Range(Cells(1, 2), Cells(i, 2)))
End Sub