求大神帮忙看看能不能为这VBA增加一条内容

zhenhao1989

这VBA功能是对比B列里字符的数量和A列的数字是不是对得上, 点击按钮，如对得上，就会在C列写上用量正确。      但现在有个问题就是如图中A4,没有数字而是空白的情况，C列也会写用量正确，实际应该是写上错误。       有大神能帮忙更改下吗，谢谢了！！！

ykcbf1100

新写一个吧。

ykcbf1100

参与一下。。。

1. Sub ykcbf()   '//2024.8.23
   
2.     With Sheets("Sheet1")
   
3.         r = .Cells(Rows.Count, 2).End(3).Row
   
4.         .[c2:c10000] = ""
   
5.         arr = .[a1].Resize(r, 3)
   
6.         On Error Resume Next
   
7.         For i = 2 To UBound(arr)
   
8.             If arr(i, 2) = Empty Then
   
9.                 ft = 0
   
10.             Else
    
11.                 If InStr(arr(i, 2), ",") Then
    
12.                     st = Split(arr(i, 2), ",")
    
13.                     If Val(arr(i, 1)) = UBound(st) Then
    
14.                         ft = 1
    
15.                     Else
    
16.                         ft = 0
    
17.                     End If
    
18.                 Else
    
19.                     If Val(arr(i, 1)) = 1 Then
    
20.                         ft = 1
    
21.                     Else
    
22.                         ft = 0
    
23.                     End If
    
24.                 End If
    
25.             End If
    
26.             If ft = 1 Then arr(i, 3) = "用量正确" Else arr(i, 3) = "错误"
    
27.         Next i
    
28.         .[c1].Resize(r, 1) = Application.Index(arr, 0, 3)
    
29.     End With
    
30.     MsgBox "OK！"
    
31. End Sub
    
32. 
    

复制代码

笨鸟飞不高

quqiyuan

zhenhao1989

ykcbf1100 发表于 2024-8-23 10:43
新写一个吧。

谢谢大神，但有点问题可能我没有写全面，如图中B5也是空白的情况下应该显示用量正确，有办法吗

zhenhao1989

quqiyuan 发表于 2024-8-23 11:18

感觉大神，我没写全面不好意思，改了后 如图中B5也是空白，就也显示错误了，实际应该显示用量正确的。有办法吗

zhenhao1989

笨鸟飞不高 发表于 2024-8-23 10:54

大神非常感谢 你这个完美解决我的问题 谢谢