摘要： `Option Explicit Sub 合并() Dim arr Dim i, n As Integer 'i 循环打开的工作薄里的工作表，n 计数用 Dim allwb As String '存放弹出工作薄的名称 Dim wb As Workbook '当前打开的工作薄 Dim x As Int 阅读全文