用VBA对一个EXCEL中的多个工作表排序

最新推荐文章于 2024-08-14 11:01:49 发布

holly666

最新推荐文章于 2024-08-14 11:01:49 发布

阅读量7.4k

点赞数

分类专栏： Office/VBA 文章标签：工作 excel VBA

本文链接：https://blog.csdn.net/holly666/article/details/53787263

版权

本文记录了使用VBA对Excel中多个工作表进行相同排序的过程，作者从录制宏开始，然后逐步调整代码，尽管仍存在不足，但作为初尝试是一个重要的里程碑。

摘要由CSDN通过智能技术生成

要求：对一个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("工作表名")也需要修改