1008| 1
|
[已解决]用VBA判断条件 |
1学分
最佳答案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 IfNext[ab11].Resize(i - 1) = cEnd Sub ...
| ||
发表于 2022-11-28 08:25
|
显示全部楼层
本楼为最佳答案
| ||