摘要：Sub Sample() Dim MyPath As String Dim MyBook Application.DisplayAlerts = False MyPath = ThisWorkbook.Path MyBook = Dir(MyPath & "\*.xlsx") Do While My 阅读全文

摘要：一个工作簿中包括N个工作表，将各个工作表拆分成工作簿。 工作表数量不定，表内内容不限，拆分后保存于当前文件夹内。 Sub Sample() Dim MySheetsCount As Long For MySheetsCount = 1 To Sheets.Count Sheets(MySheetsC 阅读全文

摘要：同一文件夹内N个工作簿 ，每个工作簿里N个工作表，最终合并到一个工作表里的代码。 假设每个表格结构相同，第一行为标题，第二行为表头，表头内容固定，行数不固定，列固定14，工作表数量不固定，工作簿数量不固定。 Sub Sample() Dim MyWb As Workbook Dim MySht As 阅读全文