如何解决EXCEL中的上千行数据升序排数问题

显示全部楼层 · 2011-3-16 20:08:40

能不能用公式做给你啊如果行的你就Q215467350 我可以用公式做给你，然后你可以把数据复制到原来位置也就不管上万行都行了...

千问 · 2011-3-16 20:08:40

假设数据在sheet1,按alt+f11,双击sheet1,输入如下代码:Sub aa()
Application.ScreenUpdating = False'关闭屏幕更新
irow = Range("A65535").End(xlUp).Row '取得表中最大行数
Dim arr(6)
'定义数组
F...

千问 · 2011-3-16 20:08:40

如果不用宏，用函数公式，其实也简单。假如数据在A1:F1000单元格。在H1中输入公式：=SMALL($A1:$F1,COLUMN(A1))选中H1向右拉填充公式至M1，然后选中H1:M1单元格向下填充公式至1000行。选中H1:M1000单元格复制，然后在A1单元格右击，选“选择性粘贴”为“数值”即可。...

千问 · 2011-3-16 20:08:40

自己录制宏--然后选排序，再修改。。...