把这句改一下试试
Sub 汇入总表()
With Sheets("总表")
.Range("A2:F65536").ClearContents
For i = 1 To 3
W = Sheets(i).Range("A65536").End(3).Row
Set RN = .Range("A65536").End(3)(2)
Sheets(i).Range("A2:E" & W).Copy RN
RN.Offset(, 5).Resize(W - 1, 1) = Sheets(i).Name
Next
End With
End Sub