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
以上代碼出現應用程式或物件錯誤！！ 什么原因
uj5u.com熱心網友回復：
[ac6].End(xlDown) 改成 range("AC6").End(xlDown) 試試轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/31837.html
標籤：VBA
上一篇：SVN的Blame例外求助，實在沒地方發了，還是發自己喜歡的MFC區吧
下一篇：vb6.0