Question

我在VB2010（ Windows窗体）上创建了一个“搜索”引擎，它检查网络驱动器上是否有特定的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命令已经尝试过，但是没有用，所以我想知道你是否有解决我问题的方法。

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

如果应该计算您正在寻找的论坛

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

1 个答案: