[已解决]提示代码，谢谢

hwc2ycy

你只要检测哪几列？
用的方法不适合了。

hwc2ycy

1. Sub 提示2()
   
2.     Dim arr, i&, j As Byte, str$
   
3.     i = Cells(Rows.Count, "ae").End(xlUp).Row   '判断数据行号
   
4.     If i = 1 Then Exit Sub
   
5.     arr = Range("ae1:ai" & i).Value          '取数据
   
6.     For i = LBound(arr) To UBound(arr)
   
7.         If Len(arr(i, 1)) > 0 Then              '判断第一列是否为空
   
8.             For j = 2 To UBound(arr, 2)         '判断第二列开始后是否有空数据
   
9.                 If Len(arr(i, j)) = 0 Then
   
10.                     '生成提示信息
    
11.                     str = str & "第 " & i & "行 " & Format(arr(i, 1), "0.0") & "，后面无数据" & vbCr
    
12.                     Exit For
    
13.                 End If
    
14.             Next
    
15.         End If
    
16.     Next
    
17.     If Len(str) > 0 Then MsgBox str '检测信息长度，判断是否该显示提示信息
    
18. End Sub
    

复制代码