Excel VBA -基于列中下一个非空单元格的搜索/选择/删除范围

Sub SearchNextNonEmptyCell()
    Dim rng As Range
    Dim cell As Range
    
    ' 设置搜索范围
    Set rng = Range("A1:A10")
    
    ' 从第一个单元格开始搜索
    Set cell = rng.Cells(1)
    
    ' 循环搜索下一个非空单元格
    Do Until IsEmpty(cell.Value)
        ' 打印非空单元格的值
        Debug.Print cell.Value
        
        ' 移动到下一个单元格
        Set cell = cell.Offset(1)
    Loop
End Sub

Sub SelectNextNonEmptyRange()
    Dim rng As Range
    Dim cell As Range
    
    ' 设置搜索范围
    Set rng = Range("A1:A10")
    
    ' 从第一个单元格开始搜索
    Set cell = rng.Cells(1)
    
    ' 循环搜索下一个非空单元格
    Do Until IsEmpty(cell.Value)
        ' 选择非空单元格的范围
        If rng Is Nothing Then
            Set rng = cell
        Else
            Set rng = Union(rng, cell)
        End If
        
        ' 移动到下一个单元格
        Set cell = cell.Offset(1)
    Loop
    
    ' 选中非空单元格的范围
    rng.Select
End Sub

Sub DeleteNextNonEmptyRange()
    Dim rng As Range
    Dim cell As Range
    
    ' 设置搜索范围
    Set rng = Range("A1:A10")
    
    ' 从第一个单元格开始搜索
    Set cell = rng.Cells(1)
    
    ' 循环搜索下一个非空单元格
    Do Until IsEmpty(cell.Value)
        ' 删除非空单元格
        cell.Delete xlShiftUp
        
        ' 移动到下一个单元格
        Set cell = rng.Cells(1)
    Loop
End Sub