1. 程式人生 > >如何用VBA尋找指定區域中的第一個非空單元格

如何用VBA尋找指定區域中的第一個非空單元格

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