代码执行结果不对

天边2021

问题如图所示，请大家帮忙看看

shiruiqiang

for i=150 to 3 step-1

yanglinzi

1. Sub 合并()
   
2. Dim r, i, j, s
   
3. Application.DisplayAlerts = False
   
4. Application.ScreenUpdating = False
   
5. r = Sheet4.Cells(Rows.Count, 2).End(xlUp).Row
   
6. For i = r To 3 Step -1
   
7.     If Cells(i, 2) = Cells(i - 1, 2) Then
   
8.         Range(Cells(i, 2), Cells(i - 1, 2)).Merge
   
9.     End If
   
10. Next
    
11. Application.DisplayAlerts = True
    
12. Application.ScreenUpdating = True
    
13. End Sub
    

复制代码

yanglinzi

请测试。。