公式化地对excel数据进行排序

Question

由于我的组织的组策略设置强制用户显式单击以启用 office 文件中的宏，我想要一种解决方法来使用 vba 来实现相同的结果（并且无需单击任何东西作为额外的奖励）。数据透视表也是不可能的。

我有一个工作表，其中位置作为列标题 (A1:E1)，事件作为行标题 (A2:A50)。剩余的单元格 (B2:E50) 填充了日期，这些日期表示每个地点的下一个活动将在何时举行。并非所有地点都服务于每个事件，因此“N/A”是可能的。活动可能在同一天在同一地点举行。

事件数据：

我的目标是提供数据的辅助视图，显示每个位置（列标题）下方的当前和下个月即将发生的事件（作为行条目）。这（相对）足够简单，只需上下复制一个数组公式。

公式：=IFERROR(INDEX(Master!$A$6:$A$15,SMALL(IF(Master!B$6:B$15<>"N/A",IF((Master!B$6:B$15<DATE(YEAR(TODAY()),MONTH(TODAY())+1,1))*(Master!B$6:B$15>=DATE(YEAR(TODAY()),MONTH(TODAY()),1)),ROW(Master!B$6:B$15)-5)),ROWS(A$3:A3))),"")

输出：

但是，事件按照它们出现在主工作表中的方式列出，而不是按我喜欢的时间顺序列出。我在每个事件旁边添加了一个日期列，但这不可排序，因为数组公式使所有内容保持动态。

所需的输出摘录：

Tampa   
19-Jan-15   Intermediate I
24-Jan-15   Introduction
26-Jan-15   Beginner I

Answer 1

在 Upcoming 工作表中，如果 A1 中的 January 实际上是一个日期，即相关月份的 1 号，那么在本例中为 2015 年 1 月 1 日。

如果需要，您可以将 A1 的格式自定义为“mmmm”以仅显示 January 或“mmmm-yy”以显示 January-15

现在在 A3 中使用此公式来按顺序获取相关月份和城市的日期（无论是否有重复都有效）：

=IFERROR(SMALL(IF(Master!B$6:B$15>=$A$1,IF(Master!B$6:B$15<=EOMONTH($A$1,0),Master!B$6:B$15)),ROWS(A$3:A3)),"")

用 CTRL+SHIFT+ENTER 确认并向下复制列

注意：您不必在公式中明确排除 "N/A" 文本值 - 无论如何这些都将被忽略

现在在 B3 中复制下来，如果您没有特定城市的重复日期，您可以使用这个非数组公式：

=IF(A3="","",INDEX(Master!$A$6:$A$15,MATCH(A3,Master!B$6:B$15,0)))

如果您可能有重复的日期，请使用此“数组公式”代替描述

=IF(A3="","",INDEX(Master!$A$6:$A$15,SMALL(IF(A3=Master!B$6:B$15,ROW(Master!$A$6:$A$15)-ROW(Master!$A$6)+1),COUNTIF(A$3:A3,A3))))