vba把H列中空白單元格篩選出來，並刪除整行

你可以使用VBA中的AutoFilter函数来筛选空白单元格，然后删除整行。

下面是一个示例代码：

Sub DeleteBlankRows()
    '声明变量
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim rng As Range
    
    '设置工作表
    Set ws = ActiveSheet
    
    '获取最后一行
    lastRow = ws.Cells(Rows.Count, "H").End(xlUp).Row
    
    '筛选空白单元格
    ws.Range("H1:H" & lastRow).AutoFilter Field:=1, Criteria1:=""
    
    '删除整行
    Set rng = ws.Range("H2:H" & lastRow).SpecialCells(xlCellTypeVisible).EntireRow
    rng.Delete
    
    '取消筛选
    ws.AutoFilterMode = False
End Sub

这个代码将筛选出H列中的空白单元格，并删除整行。注意，这个代码将从第2行开始删除，因为第1行可能包含标题。