Function firstnoblank(myrange As range)
Dim sheet As range
For Each sheet In myrange '遍历区域里的每一个单元格
If Not IsNull(sheet) And sheet <> "" Then
firstnoblank = sheet.Value
Exit Function
End If
Next
sheet firstnoblank = sheet.Value
End Function
Function firstnoblank(myrange As range)
Dim sheet As range
For Each sheet In myrange '遍历区域里的每一个单元格
If Not IsNull(sheet) And sheet <> "" Then
firstnoblank = sheet.Value
Exit Function
End If
Next
sheet firstnoblank = sheet.Value
End Function