EXCEL多個sheet合並報錯，代碼如下，總是壹會報錯壹會不報錯有沒有大神告訴我怎麽回事

Sub?hz()

Dim?bt,?i,?r,?c,?n,?first?As?Long

bt?=?1

Cells.Clear

For?i?=?1?To?Sheets.Count

If?Sheets(i).Name?<>?ActiveSheet.Name?Then

If?first?=?0?Then

c?=?Sheets(i).UsedRange.Columns.Count

Sheets(i).Range("A1").Resize(bt,?c).Copy?Range("A1")

n?=?bt?+?1:?first?=?1

End?If

r?=?Sheets(i).Cells(Rows.Count,?"A").End(xlUp).Row

'預防空表格的拷貝出錯

If?r?>?bt?Then?Sheets(i).Range("A"?&?bt?+?1).Resize(r?-?1,?c).Copy?Range("A"?&?n)

n?=?n?+?r?-?bt

End?If

Next

End?Sub

上一篇:壹棕壹白情侶小熊叫什麽

下一篇:黃金礦工單人版的攻略