永发信息网

EXCEL自动排序问题,在线等!

答案:4  悬赏:20  手机版
解决时间 2021-07-19 05:13

这个问题提问过一次,不是什么省将自动排序的问题

我想说明一下,我的意思是我想把有地址的那一栏排序,但是下面家庭人员不要动,就是比如:王勇 胡梅 王炳晨这三个人还要在一起,因为他们是一户的,然后下面是李乾军一户3人在一起,只要这一户的开头这个人排序就可以了,也就是带地址的那一个人排序,但是下面家庭人员不要排序,也不要弄到后面。这样可以么?

(((序号和家庭住址是对应的,要求排序,但是不需要删除家庭其他人员)

就是这个意思。追加分,在线等!

最佳答案
一个比较笨的方法:增加一列,然后将属于同一户的序号为同一序号,然后用排序功能,再将辅助列删除。
全部回答
假设数据在A1:E9999里,表头在第一行。 在F2里输入公式 =IF(A2="",F1,E2),copy直到F9999。 选中A:F列排序,已F列为基准,完成后将F列删除。 完成。

'VBA很好实现,假设你的表格格式跟我的是一样的

Option Explicit Sub Test() Dim Temp As String Dim i As Long Application.ScreenUpdating = False For i = 1 To 256 ^ 2 If Cells(i, 2) = "" Then Exit For If Cells(i, 5) <> "" Then Temp = Cells(i, 5) Else Cells(i, 5) = Temp End If Next Cells.Select Selection.Sort Key1:=Range("E2"), Order1:=xlAscending, Header:=xlGuess, _ OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, SortMethod _ :=xlPinYin, DataOption1:=xlSortNormal

For i = 1 To 256 ^ 2 If Cells(i, 2) = "" Then Exit For If Cells(i, 1) = "" Then Cells(i, 5) = "" Next Application.ScreenUpdating = True End Sub '转换前:

转换后:

用辅助列,先填充,再排序吧!

我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息,可以点下面链接进行举报!
大家都在看
求一首歌的名字哦
姚明姓什么?|
下周股票怎么操作
姐姐们,教教偶怎样选择BB霜啦
这样的选择杂办、
怎么快速减肥呀?在一个周内,我手有点胖
高温费是否真的实现到没人单位?
铲车上的机油散热器在哪安装则?
设a,b,c是互不相等的实数,关于x的方程x平方+a
麦克不好使怎么办
敢问乔丹能创35秒13分的奇迹吗
魔兽世界法师单刷强吗?还有他的暴风雪和霜之
长沙那里可以学室内手绘培训班
类似于when you believe之类的英文歌曲
zai 是谁?
推荐资讯
怎么和女的搭讪?
诺基亚的总经理为什么压榨员工
suger瑞士糖广告曲和成长快乐广告曲
秦皇岛现在哪在招工啊?
新浪足球比赛集锦
那名落孙山啥意思啊大神们帮帮忙
求减小肚腩的秘方,简单点,不要减肥药!
做梦做到死人复活。。代表什么
轮滑运动有什么好处
谁能告诉我哪有window7中文版文件包下载啊?
高三了 晚上睡不着觉怎么办?
200和250之间有没有表现爱的的数字?
正方形一边上任一点到这个正方形两条对角线的
阴历怎么看 ?