Excel：当其他单元格等于定义的值时，删除整行

Question

我看过（搜索过）类似的例子，但不是我想要的。

我在Excel中有一个工作簿，其中有几个工作表，工作表A和工作表B。这些工作表有很多数据，因此，为了在工作表B中显示工作表A中最重要的数据，我只想镜像我想要的行根据SheetA上的单元格值进行指定。...我需要根据Sheet A中的值删除Sheet B中的整个行。

例如，在工作表AI中，列X具有10个值（是/否），并且我已将具有公式的相同数据链接回工作表B。也就是说，如果在工作表A X1 =“ Yes”中，则工作表B单元格Y1 = “完成” ...如果SheetA X2 =“是”，则SheetB单元格Y2 =“完成” ...如果SheetA X3 =“否”，则SheetB单元格Y1 =“缺少”。依此类推。

因此，我only希望SheetB中具有单元格值=“ Done”的行在那里，因此希望具有单元格值=“ Missing”的行被自动删除。 以这种方式，我将创建一个仅包含指定单元格具有“ Done”值的行的表。

我知道Excel中有宏，但是我从来没有用VBA编写过代码，语言处理程序和变量使我完全逃脱了。

有没有一种方法可以编写可以在公式中调用的宏； 也就是说，例如）if（A10 =“ Yes”，“”， delete row macro here ）？？？

谢谢！

Answer 1

从问题中的措辞看来，您似乎想创建一个可以在将更改其他单元格的单元格中使用的函数。 那是不可能的。 这些函数在公式中使用时，仅限于更改单元格本身，而不是其他单元格。

Answer 2

还有一种为猫皮的方法。 就像安倍说的那样，您不能使用公式来更改其他单元格。 但是您可以使用VBA。 下面的子项将删除范围为1的整个行。但是您可以使其等于所需的任何行。

Sub DeleteRows()
Dim FoundCell As Range
Set FoundCell = Worksheets("SheetB").Range("YourRange").Find(what:=1)
Do Until FoundCell Is Nothing
    FoundCell.EntireRow.Delete
    Set FoundCell = Worksheets("SheetB").Range("YourRange").FindNext
Loop
End Sub

当然，这是额外的工作。 您应该做什么，而不是将数据从A复制到B然后进行处理，只需将完成的单元格从A复制到B。