要求:对一个EXCEL中的多张工作表进行相同的排序
第一次进行VBA代码实际操作,先录制的宏,然后再对代码进行微调。
虽然还有所欠缺,不过是第一次,记在这里做个小纪念,继续努力!
Sub 排序排序() '遍历所有工作表 For i = 1 To Sheets.Count Sheets(i).Select '选择第一张工作表 Range("A3:G9").Select '选择需要排序的单元格 Range(Selection, Selection.End(xlDown)).Select ActiveWorkbook.Sheets(i).Sort.SortFields.Clear '这里录制宏为sheets("工作表名"),把它改成了sheets(1),研究了一会儿功夫,总算成功了 ActiveWorkbook.Sheets(i).Sort.SortFields.Add Key:=Range("C3:C562"), _ '这边的sheets("工作表名")也需要修改 '##################################排序过程###################################### SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
'这边的sheets("工作表名")也需要修改