2022-11-08 07:58来源：m.sf1369.com作者：宇宇
用excel中的VBA实现排列组合的方法：
例如：
用1-12这12个数字，从中选取6个数字做无顺序的组合数据，即一共为C(12,6)=924组数据，一组数据显示一行，如，第一组数据为“1 2 3 4 5 6”，第二组数据在第二行中显示“1 2 3 4 5 7”。
编写如下即可：
aaa=array(1,6,8,18,19,20,25,62,63,64)for i=0 to ubound(aaa) msgbox(aaa(i))next
把成绩输入到excel表格，数据--排序，选成绩项，然后用升序或降序排列，之后第一成绩的新一列输入1，然后用鼠标在该格右下角往下拉出各成绩排名
执行如下VBA程序即可：Sub PaiXu()Dim arr(1 To 6), tempDim i, nFor i = 1 To 6 arr(i) = Range("A" & i).ValueNext iFor n = 6 To 2 Step -1 For i = 2 To n If arr(i)
一、插入超级表
首先我们需要点击表格然后按下快捷键Ctrl+T将表格转换为超级表。我们这个做是为了在新增数据的时候表格也能实现自动排序的效果
二、录制宏
首先我们需要明白你想要按照哪一列进行排序，在这里我们想要根据总分这一列数据来排序。
我们点击【开发工具】功能组，随后在其中找到录制宏，会自动跳出录制宏的界面，我们将宏名称设置为【排序】然后点击确定。因为刚才将普通表转换为了超级表，表头字段的右下角是有排序按钮的，我们在这里直接选择降序，就是从大到小的排列数据，排序完毕后点击一下单元格，然后在录制宏中点击停止录制，这样的话宏就录制完毕了
三、引用录制宏
紧接着我们在【打开工具】这个功能组中点击【vislua basic】进入vba的编写界面。现在我们是在sheet1这个表格中操作数据，所有需要在这个界面中点击下对应的表格名称，随后在跳出的界面中将通用设置为【worksheet】，然后在右上角选择【change】将多余的代码删除掉，随后在中间输入【排序】就是刚才定义的宏名称，这样的话就设置完毕了，直接关闭掉即可
四、更改样式
随后点击表格，在表设计中将表的样式设置为无样式，然后将筛选按钮的对勾去掉，为总分这一列数据添加一个数据条即可，至此就设置完毕了，我们更改数据他就能实现自动排序的效果了
在这里需要注意的是因为利用了录制宏，直接保存的话会提示不能保存vb项目，我们需要将文件另存为可以保存宏的格式，常用的就是xlsm格式。
不用VBA，用数据中的分类汇总就可以：先按部门排序。
然后分类汇总，汇总时勾选每组数据分页。如果不想打印汇总行，可以通过筛选，隐藏。如果不想用辅助列，可以直接用年龄为汇总项。
1、首先光标定位在表格中，点击数据-排序。
2、接着会弹出排序对话框，点击添加条件。
3、然后设置主要关键字为月份，次要关键字为金额，并全部升序排序。
4、经过以上的操作就可以按我们需要的条件进行排序。
以上的排序方法还有更简单的操作方法，光标分别金额和月份那边，并都按升序排序，也能完成条件排序。
VBA中，对范围单元格的排序，是通过Sort方法来实现的。
用法
expression.Sort(Key1, Order1, Key2, Type, Order2, Key3, Order3, _
Header, OrderCustom, MatchCase, Orientation, SortMethod, _
DataOption1, DataOption2, DataOption3)
Key1~3 排序的field。即需要排序的列 or 单元格范围。
Order1~3 顺序or降序。可能值是 顺序 xlAscending，降序 xlDescending
Type 排序种类
Header 是否指定标题行，标题行不参与排序。可能值：xlGuess（Excel自动判断），xlNo（不指定标题行），xlYes（指定标题行）
OrderCustom 定制排序。
MatchCase 是否区分大小写。
Orientation 排序的方向 可能值 xlTopToBottom（行方向优先） xlLeftToRight（列方向优先）
SortMethod 排序方法 可能值包括xlPinYin（拼音排序），xlStroke(笔画排序)
DataOption1~3 Excel2002新追加参数。
无标题行，对A列按升序排序
Sub Macro1()
Range("A1").Select
Range("A:A").Sort Key1:=Range("A1"), Order1:=xlAscending, Header:= _
xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
SortMethod:=xlPinYin, DataOption1:=xlSortNormal
End Sub
实际上，自己录制宏就知道了。
一、插入超级表
首先我们需要点击表格然后按下快捷键Ctrl+T将表格转换为超级表。我们这个做是为了在新增数据的时候表格也能实现自动排序的效果
二、录制宏
首先我们需要明白你想要按照哪一列进行排序，在这里我们想要根据总分这一列数据来排序。
我们点击【开发工具】功能组，随后在其中找到录制宏，会自动跳出录制宏的界面，我们将宏名称设置为【排序】然后点击确定。因为刚才将普通表转换为了超级表，表头字段的右下角是有排序按钮的，我们在这里直接选择降序，就是从大到小的排列数据，排序完毕后点击一下单元格，然后在录制宏中点击停止录制，这样的话宏就录制完毕了
三、引用录制宏
紧接着我们在【打开工具】这个功能组中点击【vislua basic】进入vba的编写界面。现在我们是在sheet1这个表格中操作数据，所有需要在这个界面中点击下对应的表格名称，随后在跳出的界面中将通用设置为【worksheet】，然后在右上角选择【change】将多余的代码删除掉，随后在中间输入【排序】就是刚才定义的宏名称，这样的话就设置完毕了，直接关闭掉即可
四、更改样式
随后点击表格，在表设计中将表的样式设置为无样式，然后将筛选按钮的对勾去掉，为总分这一列数据添加一个数据条即可，至此就设置完毕了，我们更改数据他就能实现自动排序的效果了
在这里需要注意的是因为利用了录制宏，直接保存的话会提示不能保存vb项目，我们需要将文件另存为可以保存宏的格式，常用的就是xlsm格式。
一、插入超级表
首先我们需要点击表格然后按下快捷键Ctrl+T将表格转换为超级表。我们这个做是为了在新增数据的时候表格也能实现自动排序的效果
二、录制宏
首先我们需要明白你想要按照哪一列进行排序，在这里我们想要根据总分这一列数据来排序。
我们点击【开发工具】功能组，随后在其中找到录制宏，会自动跳出录制宏的界面，我们将宏名称设置为【排序】然后点击确定。因为刚才将普通表转换为了超级表，表头字段的右下角是有排序按钮的，我们在这里直接选择降序，就是从大到小的排列数据，排序完毕后点击一下单元格，然后在录制宏中点击停止录制，这样的话宏就录制完毕了
三、引用录制宏
紧接着我们在【打开工具】这个功能组中点击【vislua basic】进入vba的编写界面。现在我们是在sheet1这个表格中操作数据，所有需要在这个界面中点击下对应的表格名称，随后在跳出的界面中将通用设置为【worksheet】，然后在右上角选择【change】将多余的代码删除掉，随后在中间输入【排序】就是刚才定义的宏名称，这样的话就设置完毕了，直接关闭掉即可
四、更改样式
随后点击表格，在表设计中将表的样式设置为无样式，然后将筛选按钮的对勾去掉，为总分这一列数据添加一个数据条即可，至此就设置完毕了，我们更改数据他就能实现自动排序的效果了
在这里需要注意的是因为利用了录制宏，直接保存的话会提示不能保存vb项目，我们需要将文件另存为可以保存宏的格式，常用的就是xlsm格式。
