求大佬帮忙看看能不能做这个VBA

zhenhao1989 · 发表于 2024-1-26 10:53

大佬需求是对比B列里字符的数量和A列的数字是不是对得上，如 A2数量是5，B2里总共5个字符，那么就在D2显示用量正确的。附件里有个宏，但宏的问题是如第2排，B2前后有逗号，会当成数量然后显示错误，实际是用量正确的，有VBA代码能完美解决这个吗，最后就是点按钮1，能在D列整列显示出是用量正确还是错误。先给大佬们拜个早年了祝事业有成发大财！！

lhj5286 · 发表于 2024-1-26 11:36

已编好代码，供楼主参考

dto8323 · 发表于 2024-1-26 11:47

=IF(A1="","",IF(LEN(TRIM(SUBSTITUTE(B1,","," ")))-LEN(SUBSTITUTE(TRIM(SUBSTITUTE(B1,","," "))," ",""))=A1-1,"正确","错误"))

复制代码

zhenhao1989 · 发表于 2024-1-26 13:19

lhj5286 发表于 2024-1-26 11:36
已编好代码，供楼主参考

大佬非常感谢

saghj · 发表于 2024-1-26 13:37

yynrzwh · 发表于 2024-1-26 15:13

EK P500.rar (21.81 KB, 下载次数: 5)

gwjkkkkk · 发表于 2024-1-26 19:17

Option Explicit
Sub TEST1()
Dim ar, br, i&, j&, r&, n&

r = Cells(Rows.Count, "A").End(xlUp).Row
ar = Range("A1:B" & r).Value
ar(1, 1) = Empty
For i = 2 To UBound(ar)
      If Len(ar(i, 1)) Then
         If Len(ar(i, 2)) Then
            br = Split(ar(i, 2), ",")
            n = 0
            For j = 0 To UBound(br)
                  If Len(br(j)) Then n = n + 1
            Next j
            If n = ar(i, 1) Then ar(i, 1) = "用量正确" Else ar(i, 1) = "错误"
         Else
            ar(i, 1) = "错误"
         End If
      End If
Next i
[E1].Resize(UBound(ar)) = ar
Beep
End Sub

gwjkkkkk · 发表于 2024-1-26 19:18

请参考。。。

		自动登录	找回密码
密码			免费注册

求大佬帮忙看看能不能做这个VBA

评分

评分

评分

评分

评分