如何从excel表格中查找非空数据的行和列坐标？

Sub FindNonEmptyCells()
    Dim ws As Worksheet
    Dim rng As Range
    Dim cell As Range
    Dim rowNo As Integer
    Dim colNo As Integer
    
    Set ws = ActiveSheet ' 要操作的工作表，可以根据需要修改
    
    ' 遍历工作表中的所有单元格
    For Each cell In ws.UsedRange
        ' 判断单元格是否非空
        If Not IsEmpty(cell.Value) Then
            rowNo = cell.Row ' 获取非空单元格所在行号
            colNo = cell.Column ' 获取非空单元格所在列号
            ' 输出非空单元格的行号和列号
            Debug.Print "非空单元格的坐标：" & "行 " & rowNo & "，列 " & colNo
        End If
    Next cell
End Sub