大家好,小范来为大家解答以上的问题。全列这个很多人还不知道,现在让我们一起来看看吧！
1、Sub MacroDo()Dim k As Integerk = 3Do While k <= 7 If F < 1800 Then C = "G" & k Range(C).Value = "Reorder" ElseIf F > 1800 And F < 3600 Then Range(C).Value = "take alert" ElseIf F > 3600 Then Range(C).Value = "need clearance" End If k = k + 1LoopColumns("G").EntireColumn.AutoFitEnd Sub多个If ... End If连用，可以使用If ... ElseIf ... ElseIf ... End If 代替，如果我的回答对你有帮助，请采纳。
2、Sub MacroDo()Dim k As Integerk = 3Do While k <= 7 If F < 1800 Then C = "G" & k Range(C).Value = "Reorder" ElseIf F > 1800 And F < 3600 Then Range(C).Value = "take alert" ElseIf F > 3600 Then Range(C).Value = "need clearance" End If k = k + 1LoopColumns("G").EntireColumn.AutoFitEnd Subif…then…elseif…then………(elseif…then可以有无数个)If F < 1800 ThenC = "G" & kRange(C).Value = "Reorder"elseIf F > 1800 And F < 3600 ThenRange(C).Value = "take alert"elseIf F > 3600 ThenRange(C).Value = "need clearance"End If也可用select 代替select case fcase is < 1800 :C = "G" & k:Range(C).Value = "Reorder"case 1800 to 3600 : Range(C).Value = "take alert"case is > 3600 : Range(C).Value = "need clearance"End select。
本文到此分享完毕，希望对大家有所帮助。