Sub WorkSheetsConsolidate() Rem 设置求和区域为 单元格区域;单元格区域 Const Setting As String = "A1;B2:C4" Dim StartTime As Variant Dim UsedTime As Variant StartTime = VBA.Timer AppSettings True Dim Wb As Workbook Dim Sht As Worksheet Dim OneSht As Worksheet Cons…