恳请大神们帮忙看下我这个代码是哪里出错了，达不到我要的效果

qiongmei6

我附件有个代码，我希望达到的效果是，当代码执行的时候，如果第5列不为空的情况下，那么a5：a124如果一致，不会弹出提示，但是如果a5：a124有不一样的数据，则弹出提示“单位列有输出单位名称”，但
Sub 检查()
For i = 5 To 124
  If Cells(i, 5) <> "" And Cells(i, 1) <> Cells(i, 1) Then
MsgBox "单位列有输出单位名称"
Exit Sub
End If
Next i
End Sub
这个代码执行后根本没反应，恳请各位大神帮忙看下，再次谢谢各位大神的帮忙

shiruiqiang

shiruiqiang

ykcbf1100

3楼正解。常识性错误。

qiongmei6

谢谢shiruiqiang师傅和ykcbf1100师傅的回答，但是这样修改后，如果a5和a6数据一样，一样也是出提示，我要的是a5和a6数据一样就不会出提示了，能否麻烦两位师傅再帮忙看下，谢谢两位师傅的帮忙

LIUZHU

估计是VBA初学，确实容易犯简单的逻辑错误

yaofengda

qiongmei6 发表于 2024-5-24 14:05
谢谢shiruiqiang师傅和ykcbf1100师傅的回答，但是这样修改后，如果a5和a6数据一样，一样也是出提示，我要的 ...

当i = 5时
cell(i, 1) = cell(5, 1)就是A5单元格
cell(i - 1, 1) = cell(4, 1)就是A4单元格
它俩的值不相等，所以循环一开始就会弹窗
既然A列的值都要保持一致，你可以用个t把第一个值存起来，让A列所有的值和t比较，如有不同即会弹窗。
Sub 检查()
t = Cells(5, 1)
For i = 5 To 124
    If Cells(i, 5) <> "" And Cells(i, 1) <> t Then
        MsgBox "单位列有输出单位名称"
        Exit Sub
    End If
Next i
End Sub