Question

利用vba筛选数据并将其中的部分结果存为数组

现有逐日的数据，我希望能按月对数据筛选，然后将筛选结果的第13列和第14列提取到两个数组里，请问用vba该如何实现呢？
就假定我要筛选1月的数据，将与1月对应的第13和14列数据存到两个数组里。请问应该怎么写vba代码？
先谢谢了！

Answer 1

Sub Macro1()

dim Month as string

Month="2"

    Rows("1:1").Select

    Selection.AutoFilter

    ActiveSheet.cells.AutoFilter Field:=5, Criteria1:=Month '筛选月份
 
RowCount=[L90000].end(xlup).row'获取总行数
dim arr(RowCount)
dim arr1(RowCount)
num=0
for i=2 to RowCount
arr(num)=range("L" & i).value'将13列写入数组
arr1(num)=range("M" & i).value'将14列写入数组
num=num+1
next

End Sub

请参考