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

最新推荐文章于 2024-06-03 09:37:22 发布

原创最新推荐文章于 2024-06-03 09:37:22 发布 · 3.8k 阅读

1 ·

CC 4.0 BY-SA版权

文章标签：

#vba #工作 #c #2010

VBA 专栏收录该内容

0 篇文章

订阅专栏

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

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