FOR i=r TO 1 STEP -1
    If _ole_excel.Cells(i,1).Value =_ole_excel.Cells(i-1,1).Value Then
       _ole_excel.Range(_ole_excel.Cells(i-1,1),_ole_excel.Cells(i,1)).Merge
       _ole_excel.Range(_ole_excel.Cells(i-1,1),_ole_excel.Cells(i,1)).HorizontalAlignment =3
       _ole_excel.Range(_ole_excel.Cells(i-1,1),_ole_excel.Cells(i,1)).VerticalAlignment =2
    Endif
ENDFOR
这是自动合并Excel单元格中的，能够运行，但运行完后提示“成员Cells不是一个对象”，请问怎么解决？谢谢！

当红色箭号指向的值为0时，可能会报错。

看不到图片？

Cells(i-1,1)中的i-1等于零时会出错。

不让它等于0就行了

FOR i=r TO 2 STEP -1