Vba VB2010-删除不包含字符串的单元格

我在VB2010（Windows Forms）上创建了一个“搜索”引擎，用于检查网络驱动器中是否有特定excel工作簿-根据输入，它将打开并搜索所有工作表，然后将某些单元格复制到新的空工作簿

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

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

如果wb.Sheets（I）.range（“C19”）.value”或wb.Sheets（I）.range（“C19”）.value”或为Nothing（wb.Sheets（I）.range（“C19”）.value）=False，则
工作分解表（一）范围（“C19”）.副本（）
oBook.Sheets（“Sheet1”）.Range（“A2”）.Pastespecial（）
其他的
oBook.Sheets（“Sheet1”）.range（“A2”）.EntireRow.Delete（）
如果结束

在我的新工作簿中，空行看起来是空的，但当您单击它们时，它们包含一个公式，显示在EXCEL工具栏下方的顶部窗口中。

---

HasFormula命令已经尝试过，但不起作用，因此我想知道您是否有解决我的问题的方法。

只需查看单元格的属性

FormulaLocal

在条件下使用这样的东西

如果wb.Sheets（I）.range（“C19”）.value”或wb.Sheets（I）.range（“C19”）.value”或为Nothing（wb.Sheets（I）.range（“C19”）.value或wb.Sheets（I）.range（“C19”）.formulaLocal”“）=False，则

如果你要算你要找的福鲁穆拉