我在VB2010（ Windows Forms ）上创建了一个"search"引擎，它检查网络驱动器上是否有特定的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
在我的新工作簿中，空行看起来是空的，但当您单击它们时，它们包含显示在顶部窗口，EXCEL工具栏下方的公式 . HasFormula命令已经尝试过但不起作用，所以我想知道你是否有解决我的问题的方法 .
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如果应该计算您正在寻找的论坛