excel vba for循环问题

2024-11-25 15:10:20

推荐回答（2个）

回答1：

Next r上面加一句end if
If r.Value = r1 Then
r.Offset(0, 1) = -r.Offset(0, 1)
r.Offset(0, 2) = -r.Offset(0, 2)
end if
Next r

回答2：

Sub test()
Dim r As Range
Dim r1 As String
For Each r In Seet1.Cells
If r.Value = r1 Then
r.Offset(0, 1) = -r.Offset(0, 1)
r.Offset(0, 2) = -r.Offset(0, 2)
END IF '要加这一句
Next r ‘程序运行到这个位置提示“Next没有For”
End Sub

最新问答

关于世界历史的论文

你好，我（男）的生日是农历79年6月初6（阳历6月29）丑时，帮我看下，我这辈子的婚姻，事业，财运，谢谢！

从舟山新华侨饭店去坐28路公交怎么走

小孩在留学，父母去日本该怎么去?如何办理?