VB2010 – 删除不包含string的单元格

我在VB2010（ Windows窗体 ）上创build了一个“search”引擎，用于检查networking驱动器是否存在特定的Excel工作簿 – 根据input，打开它并search所有工作表，然后将某些单元格复制到新的空工作簿。

我的问题是，一旦单元格被复制，结果之间有一些空的行。 发生这种情况是因为我使用了以下条件来删除一行。 例如：

If wb.Sheets(I).range("C19").value <> "" Or wb.Sheets(I).range("C19").value <> " " Or IsNothing(wb.Sheets(I).range("C19").value) = False Then wb.Sheets(I).Range("C19").Copy() oBook.Sheets("Sheet1").Range("A2").Pastespecial() Else oBook.Sheets("Sheet1").range("A2").EntireRow.Delete() End If 

在我的新工作簿中，空行看起来是空的，但是当你点击它们时，它们就会在EXCEL工具栏的顶部窗口中显示一个公式。 HasFormula命令已经尝试过，不起作用，所以我想知道如果你有我的问题的解决scheme。

Answer 1

只要看看你的细胞属性FormulaLocal ！

在这种情况下使用这样的东西

If wb.Sheets(I).range("C19").value <> "" Or wb.Sheets(I).range("C19").value <> " " Or IsNothing(wb.Sheets(I).range("C19").value or wb.Sheets(I).range("C19").formulaLocal <> "" ) = False Then

如果要算你正在寻找的论坛