应用程序或对象错误

[weixin_44626038]

Sub 合并2()
Dim fn$, rng1 As Range, rng2 As Range, n%
Range("a6:ac1000").ClearContents
fn = Dir(ThisWorkbook.Path & "\*.xlsx")
Do
n = n + 1
Workbooks.Open (ThisWorkbook.Path & "\" & fn)
Set rng1 = ActiveWorkbook.Sheets(1).Range("a6", [ac6].End(xlDown)) 这句错误
Set rng2 = ThisWorkbook.Sheets("合并").Cells(Rows.Count, 1).End(xlUp)(2, 1)
rng1.Copy rng2
ActiveWorkbook.Close 0
Loop Until fn = ""
End Sub

以上代码出现应用程序或对象错误！！ 什么原因

[脆皮大雪糕]

[ac6].End(xlDown) 改成 range("AC6").End(xlDown) 试试