[已解决]多个代码合并求助

grf1973

那一段是不会越界的。下面还有错的地方。

安全网

grf1973 发表于 2016-3-28 15:18
那一段是不会越界的。下面还有错的地方。

哦，那你帮我看看

grf1973

试试看。

安全网

grf1973 发表于 2016-3-28 15:48
试试看。

                    If Target.Value = arr(r, 1) Then MsgBox arr(r, 1) & "存在!（数量为" & arr(r, 2) & "）"这个能否改成这样的        If MsgBox("当前输入数据与第 " & Mid(r, 2) & " 行相同！是否需要删除当前输入的数据？", 4 + 32 + 256) = 6 Then

安全网

grf1973 发表于 2016-3-28 15:48
试试看。

现在遇到一个问题，需要老师解决，就是如果这样单元格是空的也提示，能否设置4个单元格都要求非空单元格才提示，如果有一个是空的单元格就不提示