用VBA快速新建4个工作表名字分别为“加,减,新款,旧款”如果已经存在同名...答:'新建工作表 Sub newsheet()Application.ScreenUpdating = False Dim sh As Worksheet, arr, brr(), s, i As Byte, n As Byte n = Worksheets.Count ReDim brr(1 To n)For i = 1 To n brr(i) = Sheets(i).Name Next arr = Array("加", "减", "新款", "旧款")For Each s ...