判断VBA代码
Sub 判断() Dim i Worksheets(2).Activate '激活表2 For i = 4 To 8 '在4行到8行循环 If Range("A" & i) = "有" And Range("B" & i) >= 20 Then Range("c" & i) = "符合" Else Range("c" & i) = "不符合" End If Next MsgBox "执行完毕!" '对话框 End Sub
部分文章来源于网络 如有侵权请告知本人立即删除!
站长邮箱447800330@qq.com