Excel 2013 VBA用户从筛选列表中填充的数组

Question

我创建了一个VBA例程（使用宏记录），使用两列过滤将产品和数量复制到新的工作表中。 这可以正常工作，但是我想允许用户从两个过滤列表中选择项目和数量，并将它们添加到两个数组中，然后将它们复制到新的工作表中。

数量数组可以简化，因为与制造商数组相关的数量不等于零

代码段；

intCount = ActiveWorkbook.Sheets.Count

Sheets("Materials").Select
ActiveSheet.Range("$A$3:$I$524").AutoFilter Field:=2, Criteria1:=Array( _
    "Castel", "CEM", "Honeywell", "TYCO"), Operator:=xlFilterValues
ActiveSheet.Range("$A$3:$I$524").AutoFilter Field:=8, Criteria1:=Array( _
    "1.00", "10.00", "100.00", "2.00", "20.00", "24.00", "35.00", "4.00", "43.00", "5.00", _
    "96.00"), Operator:=xlFilterValues  

我假设每个数组元素都需要定义为一个变量，然后传递给数组。 我不知道如何向用户展示要过滤的内容。 创建用户表格并填充所有制造商？ 最有效的方法是什么？

Answer 1

您可以（1）设置第一个过滤器，然后将所需的内容复制到新工作表（您提到的已经在工作），然后将过滤器设置为新内容，然后将新结果集附加到新工作表的末尾，或者（ 2）您将结果集“保存”到内存中的数组，然后将数组一个接一个地转储到新表中。 结果是一样的。

因此，在我看来，选择1对您来说应该很容易。 选项2和选项1一样简单。只需将变量变量变暗，然后将其分配给希望存储在内存中的范围即可：

Dim vArray As Variant

vArray = Sheets("Materials").Range("A3:I524")  'the range you wish to copy

我错过了要点还是这是您需要的？