应用程序或对象错误

Question

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以上代码出现应用程序或对象错误！！ 什么原因

Answer 1

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