根据特定条件填充 Table
Populate a Table Based on Certain Criteria
如何使用这样的数据填充右侧的粗体 table?尝试根据位置用日期及其相关现金流量填充 table(无需手动或 copy/pasting)。有公式吗?已经尝试过 FILTER 和所有 IF 函数。
您需要的是高级过滤器。它需要一些设置,因为您需要定义 3 个命名范围以便于执行。
- 数据库 - 您的数据 table
- Criteria - 您的选择标准。
- 提取 - 您希望将匹配数据复制到的位置。
此外,您必须使用与数据库中的名称完全相同的标准和提取范围,这样您就不会获得所需的标题。不过,您可以将那些带有标记形状的单元格叠加起来解决问题。
完成所有这些后,您可以录制宏以创建代码 运行。
Option Explicit
Sub CashFlow()
Application.CutCopyMode = False
Range("A1:G7").AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Range("N2:N3"), _
CopyToRange:=Range("H2:I2"), Unique:=False
End Sub 'CashFlow
如何使用这样的数据填充右侧的粗体 table?尝试根据位置用日期及其相关现金流量填充 table(无需手动或 copy/pasting)。有公式吗?已经尝试过 FILTER 和所有 IF 函数。
您需要的是高级过滤器。它需要一些设置,因为您需要定义 3 个命名范围以便于执行。
- 数据库 - 您的数据 table
- Criteria - 您的选择标准。
- 提取 - 您希望将匹配数据复制到的位置。
此外,您必须使用与数据库中的名称完全相同的标准和提取范围,这样您就不会获得所需的标题。不过,您可以将那些带有标记形状的单元格叠加起来解决问题。
完成所有这些后,您可以录制宏以创建代码 运行。
Option Explicit
Sub CashFlow()
Application.CutCopyMode = False
Range("A1:G7").AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Range("N2:N3"), _
CopyToRange:=Range("H2:I2"), Unique:=False
End Sub 'CashFlow