说明: Sub 复制() 'sheet1中的代码复制到激活工作表中的工作表对象中 Dim wb As Workbook, vb1, vb2, str$ Application.ScreenUpdating = False For Each wb In Workbooks If wb.Name ThisWorkbook.Name Then wb.Close True Next Set wb = Workbooks.Open(ThisWorkboo <thomasleader> 上传 | 大小:187kb