|
楼主 |
发表于 2018-2-22 08:16
|
显示全部楼层
- Sub CreateNew()
- Application.ScreenUpdating = False
- Dim wk As Workbook
- Set wk = Workbooks.Add
- ActiveSheet.Columns("A:d").Formula = ThisWorkbook.Sheets("考场打印").Columns("A:d").Value
- wk.SaveAs Filename:=ThisWorkbook.Path & "\打印标签用" & Format(Now, "YYYYMMDD_HHMMSS") & ".xlsx", _
- FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
- wk.Close
-
- ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Clear
- ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Add Key:=Range("A2:A24") _
- , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
- With ActiveWorkbook.Worksheets("Sheet1").Sort
- .SetRange Range("A1:D24")
- .Header = xlYes
- .MatchCase = False
- .Orientation = xlTopToBottom
- .SortMethod = xlPinYin
- .Apply
- End With
-
-
- Application.ScreenUpdating = True
- End Sub
复制代码 加上了,中间一段,可是,显示下标越界。我想旧表不动,只是新表按照A列升序,请老师抽时间帮我看看
|
|