一个50多万行数据的数组里，循环筛选一直报错，运行错误为6，

变量r1是不是也该Long起来

建个临时记录集，将筛选的记录先保存到记录集内。
处理完后，将用copyfromrecordset的方法贴到sheet里面。
这样处理，速度快很多
处理前加上：
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
处理完后加上：
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
溢出，一般是源数据有问题，自己查一下源数据

r1溢出了呀，你50万数据，excel单行肯定装不下呀，用多列装数据。