[已解决]用VBA判断条件

15968725770

用VBA判断条件，谢谢

最佳答案

月排行榜 / 总排行榜

cutecpu

2022-11-28 08:25

Sub demo()

a =[s11:aa34]

b =[ah11:ap34]

ReDim c(1 To UBound(a), 1 To 1)

For i = 1 To UBound(c)

   s1 ="": s2 = ""

   For j = 1 To 9

      s1 = s1 & IIf(a(i, j), a(i, j), " ")

      s2 = s2 & IIf(b(i, j), b(i, j), " ")

   Next

   If s1 = s2 Then

      If Trim(s1) <> "" Then: c(i, 1) = "已发货"

   ElseIf Trim(s2) = "" Then: c(i, 1) = "未发"

   Else: c(i,1) = "数值区不等"

   End If

Next

[ab11].Resize(i - 1) = c

End Sub

跳转到最佳答案楼层

cutecpu

Sub demo()

a =[s11:aa34]

b =[ah11:ap34]

ReDim c(1 To UBound(a), 1 To 1)

For i = 1 To UBound(c)

   s1 ="": s2 = ""

   For j = 1 To 9

      s1 = s1 & IIf(a(i, j), a(i, j), " ")

      s2 = s2 & IIf(b(i, j), b(i, j), " ")

   Next

   If s1 = s2 Then

      If Trim(s1) <> "" Then: c(i, 1) = "已发货"

   ElseIf Trim(s2) = "" Then: c(i, 1) = "未发"

   Else: c(i,1) = "数值区不等"

   End If

Next

[ab11].Resize(i - 1) = c

End Sub