Excel宏代码报错"Next 没有 For": 缺少End If语句

Sub 行高加2()\nApplication.ScreenUpdating = False\nDim rh, i As Integer\n rh = 2\n For i = 1 To Selection.Rows.Count\n If Not Rows(i).Hidden Then\n Selection.Rows(i).RowHeight = Selection.Rows(i).RowHeight + rh\n End If\n Next i\n Application.ScreenUpdating = True\n End Sub\n在原代码中，缺少对应的 End If 语句来匹配 If 语句，因此出现了"Next 没有 For"的错误。修改后的代码已经添加了正确的 End If 语句。