VBA - 删除空行直到有数据

使用VBA编程语言可以方便地对Excel表格进行操作和处理。其中，一个常见的需求是删除空行直到有数据的行。本文将介绍如何使用VBA代码来实现这一功能，并提供一个具体的案例代码。

vba
Sub DeleteEmptyRows()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim i As Long
    
    '选择要操作的工作表
    Set ws = ThisWorkbook.Sheets("Sheet1")
    
    '获取工作表最后一行的行号
    lastRow = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row
    
    '从最后一行开始往上遍历
    For i = lastRow To 1 Step -1
        '判断当前行是否为空行
        If Application.WorksheetFunction.CountA(ws.Rows(i)) = 0 Then
            '删除空行
            ws.Rows(i).Delete
        Else
            '找到有数据的行，退出循环
            Exit For
        End If
    Next i
End Sub

vba
Sub DeleteEmptyRows()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim i As Long
    
    '选择要操作的工作表
    Set ws = ThisWorkbook.Sheets("Sheet1")
    
    '获取工作表最后一行的行号
    lastRow = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row
    
    '从最后一行开始往上遍历
    For i = lastRow To 1 Step -1
        '判断当前行是否为空行
        If Application.WorksheetFunction.CountA(ws.Rows(i)) = 0 Then
            '删除空行
            ws.Rows(i).Delete
        Else
            '找到有数据的行，退出循环
            Exit For
        End If
    Next i
End Sub