Question

我正在尝试删除包含空值的指定单元格区域中的行。

试过这个：

sub TestDeleteRow()
    Set exlTest = objExcel.Workbooks.Open(strPathExc)
    objExcel.Application.Visible = True

    objExcel.Sheets("FNR_CHECK").Range("E3:G13").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
    Msgbox "Rows deleted", vbOKOnly, "TA Balance Sheet"
end sub

我在行

中收到错误

objExcel.Sheets("FNR_CHECK").Range("E3:G13").SpecialCells(xlCellTypeBlanks).EntireRow.Delete

说下标超出范围

Answer 1

定义Range并使用SpecialCells()函数选择该范围内的空白单元格。然后，应用EntireRow属性来选择和删除行。

例如，要删除A列中包含空格的行：

Const xlCellTypeBlanks = 4

objExcel.ActiveSheet.Range("A:A").SpecialCells(xlCellTypeBlanks).EntireRow.Delete

Answer 2

这是一个小的sub，它将遍历A列（将其更改为您选择的列），如果您有空格或任何内容，它将首先修剪单元格值，如果空白值为空，它将删除整行找到。

TextBox

删除包含空值的特定范围内的行

2 个答案: