对多个工作簿进行无重复双因素分析

qiaodong64

这是我录制的宏，不过只能对单工作簿处理。
Sub 无差别双因素分析()
'
' 无差别双因素分析 宏
'

'
     Application.Run "ATPVBAEN.XLAM!Anova3", Sheet1.Range("$A$22:$B$348"), _
        "无重复双因素分析", False, 0.05
End Sub
因为数据太多了，为节省时间 要对多个工作簿处理。求大神写个代码，拜谢！！！

daibao88

dir