技术手段VBA之按照任意顺序对sheet进行排序

最新推荐文章于 2025-03-12 12:48:17 发布

ソフト開発王さん

最新推荐文章于 2025-03-12 12:48:17 发布

阅读量2k

点赞数 4

分类专栏： VBA 文章标签： vba excel

本文链接：https://blog.csdn.net/qq_18191333/article/details/114666785

版权

本文介绍了如何使用VBA技术在Excel中获取当前工作表列表，并允许用户手动调整顺序，最后按照用户设定的顺序对工作表进行排序。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

获取当前sheet列表

Sub GetSheetList()
    Dim sht     As Object       '// sheet
    Dim s       As String       '// 追加sheet名
    Dim i       As Long         '// loop count
    
    '// 追加sheet
    Call Sheets.Add(After:=Sheets(Sheets.Count))
    s = "AddSheet"
    ActiveSheet.Name = s
    ActiveSheet.Activate
    ActiveSheet.Range("A1").Select
    
    '// loop worksheet