使用不断变化的名称查找姓名的最后一行

Question

我真的坚持这个。我有一个包含数千行的电子表格。我使用此代码根据E列中的产品过滤它们。

Sub IsolateCCENCE()
Dim Operations As Workbook
Dim Operations_Sheet As Worksheet
Set Operations = Workbooks("Operations for Macros")
Set Operations_Sheet = Operations.Worksheets("Operations")

Operations_Sheet.Range("$A$6:$AH$13108").AutoFilter Field:=5,      Criteria1:="=CCE" _
    , Operator:=xlOr, Criteria2:="=NCE"
End Sub

哪个有效，让我只有不到1700行。在这些行中，在A列中，有公司名称。每家公司大约需要20行。每行代表付款，并在D列中具有相应的日期。我需要一个宏（我假设有一个循环），然后执行以下操作：

1. 浏览行，找到每家公司的最后一行
2. 在该行中，找到相应的日期
3. 如果该日期是从今天起的30天内，请生成电子邮件

第3部分很简单。但第1部分和第2部分我似乎无法得到。数据总是在变化。

将所有数据复制并粘贴到另一个电子表格然后过滤每个公司，找到最后一行（以及相应的日期）可能会更容易吗？但是，当公司名称不断变化时，我不知道我会定义一个宏来过滤每家公司。

我感谢任何帮助。提前谢谢！

Answer 1

如果说F1中的特定公司名称：

=MIN(IF(A:A=F1,D:D))  

使用Ctrl + Shift + Enter输入应该为您提供F1中命名的公司的最早日期，如果比今天更近（） - 30（或未来远远低于今天（）+ 30？）您可能会用于您的电子邮件触发器（受其他过滤等）。