excel 宏（VB）实现复制一列并按第二列的单元格长度排序

最新推荐文章于 2025-05-19 20:58:37 发布

inurlcn

最新推荐文章于 2025-05-19 20:58:37 发布

阅读量1.6k

点赞数

CC 4.0 BY-SA版权

本文链接：https://blog.youkuaiyun.com/inurlcn/article/details/49043351

本文介绍了一个利用VBA（Visual Basic for Applications）编写宏，通过复制、粘贴和排序操作来实现Excel中特定列数据的高效管理。具体步骤包括选择目标列、复制数据、插入数据到右侧并进行排序。特别地，宏利用了Excel的公式和函数（如LEN）来按列长度自动排序数据，从而简化了常规排序操作。最后，宏确保所有操作在完成之后自动保存工作簿。

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

Sub 复制排序()

    Columns("B:B").Select
    Selection.Copy
    Columns("C:C").Select
    Selection.Insert Shift:=xlToRight
    Range("E1").Select
    Application.CutCopyMode = False
    

'排序的话应该有更好的方式，直接按单元格长度排序，没时间弄

    Dim t As Double


    t = ActiveSheet.[A1048576].End(xlUp).Row '针对EXCEL2010
    
    
    ActiveCell.FormulaR1C1 = "=LEN(RC[-2])"
    Range("E1").Select
    Selection.Copy
    Range(Cells(t, 5), Cells(1, 5)).Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    
        ActiveSheet.Sort.SortFields.Clear
    ActiveSheet.Sort.SortFields.Add Key:=Range("E1"), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveSheet.Sort
        .SetRange Range(Cells(1, 1), Cells(t, 5))
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    ActiveWorkbook.Save
    
    
End Sub