无论公式如何，忽略文本为空的单元格

我正在尝试编写一段代码来运行多个工作表，如果列“h”中的值不为空，则将每个工作表逐行复制到主汇总表。 我的问题是列“h”中的每个单元格包含一个CONCATENATE公式，但当然，如果该行的其余部分为空，CONCATENATE返回一个空值或0值。 出于某种原因，以下代码无法忽略这些行。 （注意：w是表示当前工作表的对象，而dest是表示行将被复制到的目标工作表的对象。）

Last = w.Cells(Rows.Count, "h").End(xlUp).Row For a = 2 To Last Step 1 If w.Cells(a, "h").Text <> "" Or w.Cells(a, "h").Text <> "0" Then d = dest.Cells(Rows.Count, "h").End(xlUp).Row + 1 w.Cells(a, "h").EntireRow.Copy dest.Cells(d, 1) End If 

Answer 1

试试如果w.Cells（a，“h”）。value <>“”