返回空值的VBA用户表单查找

Function FindEmptyValue()
    Dim ws As Worksheet
    Dim rng As Range
    Dim cell As Range
    
    ' 设置要查找的工作表
    Set ws = ThisWorkbook.Worksheets("Sheet1") ' 替换为实际的工作表名称
    
    ' 设置要查找的范围
    Set rng = ws.Range("A1:A10") ' 替换为实际的范围
    
    ' 循环遍历范围中的每个单元格
    For Each cell In rng
        ' 检查单元格是否为空值
        If IsEmpty(cell) Then
            ' 如果找到空值，则返回该单元格的地址
            FindEmptyValue = cell.Address
            Exit Function
        End If
    Next cell
    
    ' 如果未找到空值，则返回空字符串
    FindEmptyValue = ""
End Function