Excel写个VBA谁会?Count）.Name=a-1Worksheets（Worksheets.Count）.Range（\d1\）.Resize（UBound（arr，1），1）=WorksheetFunction.Index（arr，...