求助代码请教指点下，谢谢

760636412

代码如下：
Sub 判断()
Dim jf%
jf = [D15].End(xlUp).Row
If jf < 5 Then Exit Sub
    For Each Rng1 In Union(Range("D10:D" & jf), Range("E10:G" & jf))
        If Rng1.Value = "" Then
        MsgBox Cells(4, Rng1.Column) & "不能为空!", vbDefaultButton1, "错误"
        Rng1.Activate
        Exit Sub
    End If
    Next Rng1
End Sub

不能为空.zip (17.39 KB, 下载次数: 5)

2024-5-8 19:03 上传

点击文件名下载附件

如上代码，我想实现表格所在行数可以无限制，可以100或者更多，(Range("D10:D" & jf), Range("E10:G" & jf)) 对应所在行列判断不能为空值，求老师指点下，
jf = [D15].End(xlUp).Row
If jf < 5 Then Exit Sub
如果设置太多，代码不运行了,请教下为什么这样？求请教，谢谢大神们

鄂龙蒙

Exit Sub    这去掉。。。。。

ykcbf1100

这样试一下：

1. Sub 判断()
   
2.     Dim jf%
   
3.     jf = [D15].End(xlUp).Row
   
4.     If jf >= 5 Then
   
5.         For Each Rng1 In Union(Range("D10:D" & jf), Range("E10:G" & jf))
   
6.             If Rng1.Value = "" Then
   
7.                 MsgBox Cells(4, Rng1.Column) & "不能为空!", vbDefaultButton1, "错误"
   
8.                 Rng1.Activate
   
9.                 Exit Sub
   
10.             End If
    
11.         Next Rng1
    
12.     End If
    
13. End Sub
    
14. 
    

复制代码