如何在vb.net中查找其中包含“换行”值的Excel范围的地址？

Dim excelApp As New Excel.Application
Dim workbook As Excel.Workbook = excelApp.Workbooks.Open("文件路径")

Dim worksheet As Excel.Worksheet = workbook.Worksheets("工作表名称")

Dim range As Excel.Range = worksheet.UsedRange
Dim foundRange As Excel.Range = Nothing

For Each cell As Excel.Range In range
    If cell.Value IsNot Nothing AndAlso cell.Value.ToString().Contains(vbLf) Then
        foundRange = cell
        Exit For
    End If
Next

If foundRange IsNot Nothing Then
    Dim address As String = foundRange.Address
    Console.WriteLine("包含换行值的单元格地址：" & address)
Else
    Console.WriteLine("未找到包含换行值的单元格")
End If

workbook.Close()
excelApp.Quit()

ReleaseObject(worksheet)
ReleaseObject(workbook)
ReleaseObject(excelApp)