Exce使用VBA对多于4列的数据进行组合排序

password318

于 2010-04-13 22:47:00 发布

阅读量3.7k

点赞数

CC 4.0 BY-SA版权

分类专栏： VBA 文章标签： vba 工作 c 2010

本文链接：https://blog.csdn.net/password318/article/details/5483045

VBA 专栏收录该内容

0 篇文章

订阅专栏

本文介绍了一段使用VBA实现的Excel表格数据排序与汇总的宏代码。该宏首先确定了工作表中数据的最后一行与最后一列，然后定义了整个工作区域，并对该区域的数据进行了倒序排列。此外，还在最后一行添加了汇总行，用于显示每列的计数，并对汇总行进行了格式设置。

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

Sub Sort() ' ' Sort Macro ' 宏由 zhengzhe 录制，时间: 2010-4-13 ' Dim workArea As Range ' 定义工作区域 Dim LastColumn As Long ' 最后一列 Dim LastRow As Long ' 最后一行 Dim sumRange As Range ' 汇总行区域 Application.ReferenceStyle = xlR1C1 With ActiveSheet LastColumn = .Cells(1, .Columns.Count).End(xlToLeft).Column LastRow = .Cells(.Rows.Count, "A").End(xlUp).Row End With Set workArea = Range(Cells(1, 1), Cells(LastRow, LastColumn)) workArea.Select '使用倒排序方式对多列进行排序 For col = LastColumn To 2 Step -1 workArea.Sort Key1:=Cells(1, col), Order1:=xlAscending Next col sumRow = LastRow + 1 sumCol = LastColumn + 1 Set sumRange = Range(Cells(sumRow, 1), Cells(sumRow, LastColumn)) With sumRange .Cells(1, 1).Value = "总计" .Cells(1, 1).Offset(0, 1).Activate ActiveCell.FormulaR1C1 = "=COUNT(R2C:R[-1]C)" Selection.AutoFill Destination:=Range(Cells(sumRow, 2), Cells(sumRow, LastColumn)), Type:=xlFillDefault .Font.Bold = True .HorizontalAlignment = xlCenter .VerticalAlignment = xlCenter With .Interior .ColorIndex = 15 .Pattern = xlSolid End With End With End Sub