查看: 805|回复: 6
按数值列分别对各小标题的数据分别进行降序排序
阅读权限10
在线时间 小时
如下表所示，要按照数值列分别对各小标题里的内容进行快速降序排序，有什么快捷的方法吗？这个数据还算少的，我这有个表，有好几十个小标题和五百条内容，一个个排序速度很慢，请高手解答，谢谢！
按数值列分别对各小标题的数据分别进行降序排序序号标题1标题2标题3数值标题4标题5标题6标题7　小标题1　　　　　　　1内容2内容内容10000内容内容内容2内容4内容内容3000内容内容内容内容3内容5内容内容1500内容内容内容内容4内容3内容内容1000内容内容内容5内容1内容内容500内容内容内容内容　小标题2　　　　　　　6内容1内容内容600内容内容内容内容7内容2内容50000内容内容内容内容8内容3内容8000内容内容内容内容9内容4内容内容2000内容内容内容内容10内容5内容内容400内容内容内容内容11内容6内容内容300内容内容内容内容12内容7内容内容200内容内容内容内容13内容8内容内容8000内容内容内容内容13内容9内容内容5000013内容10内容内容300013内容11内容内容1000014内容12内容内容1500内容内容内容内容　小标题3　　　　　　　15内容1内容内容200内容内容内容内容16内容2内容内容8000内容内容17内容3内容内容2000内容内容18内容4内容内容400内容内容19内容5内容内容300内容内容20内容6内容内容8000内容内容21内容7内容内容2000内容内容22内容8内容内容30000内容内容内容内容23内容9内容内容10000内容内容内容内容24内容10内容内容5000内容内容内容内容25内容11内容内容9000内容内容内容内容
(7.35 KB, 下载次数: 3)
16:35 上传
点击文件名下载附件
阅读权限95
在线时间 小时
Sub test()
&&Dim i%, r%, r0%
&&r = Cells(Rows.Count, 2).End(xlUp).Row
&&For i = 3 To r + 1
& & If Len(Cells(i, 1)) = 0 Then
& && &If i && 3 Then
& && &&&Range(Cells(r0 + 1, 1), Cells(i - 1, i)).Sort key1:=Cells(r0 + 1, 5), Order1:=xlDescending, header:=xlNo
& && &End If
& && &r0 = i
& & End If
&&Next
End Sub复制代码
阅读权限95
在线时间 小时
是不是这个意思？
16:52 上传
点击文件名下载附件
9.73 KB, 下载次数: 20
阅读权限10
在线时间 小时
太强了！！能解释一下吗？看的不太明白，另外，能否增加恢复原来顺序的功能？
阅读权限10
在线时间 小时
chxw68 发表于
是不是这个意思？
谢谢！能解释一下吗？看的不太明白，另外，能否增加恢复原来顺序的功能？
阅读权限95
在线时间 小时
Sub test()
&&Dim i%, r%, r0%
&&r = Cells(Rows.Count, 2).End(xlUp).Row
&&For i = 3 To r + 1
& & If Len(Cells(i, 1)) = 0 Then
& && &If i && 3 Then
& && &&&Range(Cells(r0 + 1, 1), Cells(i - 1, i)).Sort key1:=Cells(r0 + 1, 1), Order1:=xlDescending, header:=xlNo
& && &End If
& && &r0 = i
& & End If
&&Next
End Sub复制代码
阅读权限95
在线时间 小时
上面代码就是恢复原来顺序的。实际上就是按A列排序。
玩命加载中，请稍候
玩命加载中，请稍候
Powered by
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！ & & 本站特聘法律顾问：徐怀玉律师 李志群律师查看: 1422|回复: 6
指定引用区域按列排序
指定引用区域按列排序。
18:57 上传
点击文件名下载附件
12.66 KB, 下载次数: 30
Sub test()
arr = Range(&a1&).CurrentRegion
ar = Range(&l1:r1&)
ReDim brr(1 To UBound(arr), 1 To UBound(arr, 2))
For y = 1 To 7
k = Application.WorksheetFunction.Match(ar(1, y), Range(&a1:k1&), 0)
For x = 1 To UBound(arr)
brr(x, y) = arr(x, k)
Next x
Next y
Range(&b15&).Resize(UBound(arr), UBound(arr, 2) - 1) = brr
End Sub复制代码
lisachen 发表于
A列也要参与排序的，虽然不用变。
张雄友 发表于
A列也要参与排序的，虽然不用变。Sub test()
arr = Range(&a1&).CurrentRegion
ar = Range(&l1:r1&)
ReDim brr(1 To UBound(arr), 1 To UBound(arr, 2))
For x = 1 To UBound(arr)
brr(x, 1) = arr(x, 1)
Next x
For y = 1 To 7
k = Application.WorksheetFunction.Match(ar(1, y), Range(&a1:k1&), 0)
For x = 1 To UBound(arr)
brr(x, y + 1) = arr(x, k)
Next x
Next y
Range(&a15&).Resize(UBound(arr), UBound(arr, 2)) = brr
End Sub复制代码
lisachen 发表于
k = Application.WorksheetFunction.Match(ar(1, y), Range(&a1:k1&), 0)'加大范围有什么好处？
k = Application.WorksheetFunction.Match(ar(1, y), Range(&A1:H1&), 0)
张雄友 发表于
k = Application.WorksheetFunction.Match(ar(1, y), Range(&a1:k1&), 0)'加大范围有什么好处？
lisachen 发表于
Sub 引用区域排序()
Dim arr, ar, brr
arr = Range(&A1&).CurrentRegion
ar = Range(&L1:R1&) '引用排序条件
ReDim brr(1 To UBound(arr), 1 To UBound(arr, 2))
& & For x = 1 To UBound(arr)
& && &&&brr(x, 1) = arr(x, 1)
& & Next x
& && &&&For y = 1 To 7'这个7 能不能用变量代替？？
& && &&&k = Application.WorksheetFunction.Match(ar(1, y), Range(&A1:H1&), 0)
& && && && &For x = 1 To UBound(arr)
& && && && && & brr(x, y + 1) = arr(x, k)
& && && && &Next x
& && &&&Next y
Rows(&15:60000&).Delete
Range(&A15&).Resize(UBound(arr), UBound(arr, 2)) = brr
|||Excel精英培训
Powered by在Excel中用VBA进行自定义排序
Excel中默认的排序方法是按照字母或拼音顺序排序的，如果要使用Excel内置的自定义序列或自己添加的自定义序列排序，可参考本站其他文章。本文介绍一下用VBA来实现自定义排序的方法。一、用工作簿内其他工作表中的序列进行自定义排序假如在Book1.xls工作簿的Sheet1表中有如图所示的工资表，现在需要将“姓名”列按Sheet3表B3:B12中的序列排序。
在模块中插入下列代码：Sub CustomSort1() & & &'用指定列中的序列自定义排序 & && Dim n As Integer & && n = Application.CustomListCount & && Application.AddCustomList (Worksheets(&Sheet3&).Range(&b3:b12&)) & && Range(&b3:g12&).Sort key1:=Range(&b2&), order1:=xlAscending, OrderCustom:=n + 2 & && Application.DeleteCustomList n + 1 & &End Sub说明：1. Application.CustomListCount属性返回工作簿中所有自定义序列的数量。从下图的“自定义序列”对话框中可以看到，Excel默认已内置了11个自定义序列。在用户没有添加自定义序列的情况下，Application.CustomListCount的值为11。 n = Application.CustomListCount语句在排序前先取得自定义列表中的自定义序列数量。2.& Range.Sort 方法中包含参数“OrderCustom”表明进行自定义排序，同时“OrderCustom”参数的值指明用哪个自定义序列排序。从Excel 2003的“排序选项”对话框中可以看出，默认的排序方法为“普通”，当省略OrderCustom参数或指定其值为1时，则按“普通”（即非自定义序列）方法排序。当使用自定义排序时，将“OrderCustom”参数设置为指定的序列在自定义列表中的顺序加1即可。如自定义序列“一月,二月……,十二月”在下图中的位置为8，如果要用该自定义序列排序，则需指定OrderCustom的值为8。 本例中OrderCustom:=n + 2即OrderCustom:=13（n=11)表示用新增的自定义序列排序。3. Application.DeleteCustomList(ListNum)方法删除自定义序列，ListNum指定所删除的自定义序列在自定义序列列表中的位置（不包含“普通”）。本例中新增的自定义序列在自定义列表中处于第12位，由于n=11，Application.DeleteCustomList n + 1将删除新增的自定义序列。二、用数组中的序列自定义排序下面的代码直接将自定义序列放置在数组中，用Application.AddCustomList 方法添加到自定义列表。Sub CustomSort2() & & &'用数组中的序列自定义排序 & & &Application.AddCustomList ListArray:=Array(&张梅&, &黄中&, &李秋霞&, &应军军&, &孙萍&, &刘梅波&, &李菲&, &吴燕&, &艾筱竹&, &王佳&) & && Range(&b3:g12&).Sort key1:=Range(&b2&), order1:=xlAscending, OrderCustom:=Application.CustomListCount + 1 & && Application.DeleteCustomList Application.CustomListCount & &End Sub三、用其他工作簿中的某列数据进行自定义排序将“ 姓名”列按照同一文件夹中Book2.xls工作簿的&Sheet1&中B3:B12区域中的序列自定义排序。Sub CustomSort3() & &&'用其他工作簿中的某列数据自定义排序 & & Dim wbk As Workbook & & Dim n As Integer & & Dim Arr As Variant & & Application.ScreenUpdating = False & & n = Application.CustomListCount & & Set wbk = GetObject(ThisWorkbook.Path & &\& & &Book2.xls&) & & Arr = wbk.Worksheets(&Sheet1&).Range(&b3:b12&).Value & & wbk.Close False & & Set wbk = Nothing & & Application.AddCustomList ListArray:=Arr & & Range(&b3:g12&).Sort key1:=Range(&b2&), order1:=xlAscending, OrderCustom:=n + 2 & & Application.DeleteCustomList n + 1 & & Application.ScreenUpdating = True & &End Sub四、用内置的自定义序列排序对指定的数据用自定义序列“一月,二月……,十二月”排序：Sub CustomSort4() & & &'用内置的自定义序列排序 & && Range(&B21:C32&).Sort key1:=Range(&b1&), order1:=xlAscending, OrderCustom:=8 & &End Sub
问题：玩转Excel数据02：自定义排序
回答：Excel中内置了对文本进行笔划排序和字母排序共两种方式，假设我们只是想要将相同类别的数据放到一起，然后按自己定义的某种依据进行排序，那么问题来了，怎么样打破Excel默认对文本进行的排序方法呢？
其实我们是可以使...
问题：Word表格制作全套教程 共22课GIF动画演示
回答：...、菜单栏绘制表格
Word2003中自己手工绘制表格技巧
Word中用+、-加减号也可以绘制表格
Word中复制、剪切和粘贴表格
Word中移动和复制表格技巧
Word表格怎么添加和删除某行和某列
Word中设置表格的边框线样式和颜色
Word表格中...
问题：在Excel2013中按照自定义序列排序
回答：众所周知，Excel2013是自带了排序功能的，不管你需要排序的是字母、数字还是文本，它都有它自己的一套排序方法。但如果很不巧的，我们的需要按照自定义的文本序列来给Excel表格排序，我们又该怎么办呢？
具体做法是这样...
问题：Excel表格怎样自动排序号
回答：...A4单元格起A列其他单元格。
参考回答：
一、Excel自定义排序 设定自己需求的排序方法； 现在我有一张表，有“日期”和“地点”，我希望将“地点”按照我的方式如：北京、上海、天津、广州，这样来排序；（如）地点排序...
问题：53、Excel2003视频教程：自定义排序的设置
问题：在PowerPoint2007中用日历展示需要待办的事项
回答：俗话说的好，好记性不如烂笔头，事实也确实如此，在好的记性都不如用笔牢牢记在本子上。在PowerPoint2007中，我们可以制作一个动态的日历待办事项，让当天需要做的事情，呈现在自己的眼前，不遗漏任何一项。
相关知识：
问：新建一个2007Excel工作表，在VBA中是ThisWorkbook中输入以下代码，关闭并切换到
答：什么叫做vba自定义的函数公式？你是想说：如何进入vba代码编辑窗口吗？不要把代码放在表格的代码里，插入一个新模块，代码放在模块里
用VBA在excel中插入函数公式
Excel 公式 函数 VBA
话题：在EXCEL中用VBA来自定义函数的问题如何自定义这么一个函数:比如一个人在日参加工作,到2008年4 月22日,他的工龄还是六年,到日,他的工龄就是七年了,我所说的工龄是整整经历的整年数(周年),比如参加工作的话题：EXCEL中用VBA得到的值赋予某自定义名称！求助问：例如：在Sheet1中我想把当前光标位置的行号和列号分别赋予自定义名称“行号”
答：Private Sub Worksheet_SelectionChange(ByVal Target As Range)Sheet1.Names.Add"行号",Target.Row Sheet1.Names.Add"列号",Target.Column End Sub 不知道
Excel中，用VBA能不能调用到自
请大家帮助用excel VBA编写一个
话题：请问如何在excel中用vba自定义单元格格式，如输入数字5“，答：Private Sub Worksheet_Change(ByVal Target As Range)Target.NumberFormatLocal="#""元"""End Sub 这个是工作表事件,输入完之后自动变更单位为"元
excel中如何用VBA判断一个单元格
EXCEL VBA 取出某一单元格里文本
话题：求会计函数高手(在EXCEL中用VBA自定义一个大写金额转换的函数,问：求会计函数高手(在EXCEL中用VBA自定义一个大写金额转换的函数,例如：1560890 转
答：(IF(E10=0,"",IF(TRUNC(E10)=0,"",NUMBERSTRING(TRUNC(E10),2)&"元"&IF(OR(CEILING(REPLACEB(RIGHT(FIXED(E10,2),4),2,1,"")/99,1)=1,CEILING(RIGHT(FIXED(E10,2
excel 的vba用function自定义
excel中怎样将数值转换为金额话题：在excel中用VB进行排序的问题问：有没有懂VB的啊？在EXCEL中实现排序功能，有的话加下Q一三五九六七四六三四。我
答：方法一是利用工具～宏～录制宏，然后把排序操作手动完成一遍，然后停止录制，按ALT+F11就可以查看到代码。第二种方法，直接写代码，按ALT+F11打开VBE窗口，然后
excel中用 VB编写排序
vb判断excel排序问题
话题：如何在excel中用VBA代码实现有条件的累加,变量是数组的，循环如何在excel中用VBA代码实现有条件的累加,变量是数组的，循环结束后一次性将结果返回到表里假设表1从A2到A102有101行数据Sub mypro()Dim arrA(100)As Single rem 定义数组arrA 来储存A列的数据话题：EXCEL中用VBA编写自动流水号问：在EXCEL中如何用VBA编写流水号，要求第次打开表格自动增加1？还可以自定义流水号
答：假设流水号保存在Sheet1工作表的A1单元格 把下面的代码添加到文件的THISWORKBOOK模块 Private Sub Workbook_Open()Sheets("Sheet1").Range("A1").Value=Sheets(
对EXCEL表格自动编流水号
在Excel中用VBA编写一个程序
话题：Excel VBA自定义函数问：在excel中，用VBA自定义了一些函数，但如何能够做到像内嵌的函数那样，输入“=
答：可以实现，但是很麻烦，我也没具体看，估计看了也不会 : club.excelhome./viewthread.php?tid=252256&replyID=&skin=0
Excel中怎样自定义函数
Excel VBA自定义函数求和？
话题：在excel中用vba实现与sql数据库的数据比较问：我想将excel中，一个字段中的数据与sql中某个表中的某个字段中的数据进行比较，
答：先建立一个sheet通过数据页签中自其它来源,将数据库中的资料导入。然后再建立一个sheet通过数据页签中的现有连接，然后通过sql语句就可以比较那两个sheet中的
Excel VBA 连接SQL数据库后的
用VBA语言调用sql数据库数据到
为您推荐：
在Excel 中设置图标集条件格式时...
Excel中默认的排序方法是按照字母或拼音...
在Excel中通过改变单元格的值来更换图片...
在Excel中可通过内置或自定义的单元格样...请教大神，如何使用vba实现列的自动排序_vba吧_百度贴吧
&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&签到排名：今日本吧第个签到，本吧因你更精彩，明天继续来努力！
本吧签到人数：0成为超级会员，使用一键签到本月漏签0次！成为超级会员，赠送8张补签卡连续签到：天&&累计签到：天超级会员单次开通12个月以上，赠送连续签到卡3张
关注：6,532贴子：
请教大神，如何使用vba实现列的自动排序收藏
为了减轻工作压力，想做一个表实现列的自动排序。每输入一个数字，就会自动排序的那种。要求：A（组别，）B（人数），C（产量），D（备注），在C列种一次输入数字，实现A、B、C、D随着数字大小自动排序。范围:A2:D301。求大神知道，最好能帮我编写一个。谢谢！！！
3D双端东方魔幻网游「大青云」勾魂公测,穿越逆转,封神故事,全新演绎!
录制宏后修改。　　　　　　　　　　　　　　//尾巴~　--来自　风zhi轨迹　~魔方万能公式入口
教程免费看，开放性的源码免费看，不是什么时候都是免费的哦。。。赶紧抢先吧，搜 思必达学院
登录百度帐号推荐应用
为兴趣而生，贴吧更懂你。或