永发信息网

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

答案:4  悬赏:20  手机版
解决时间 2021-07-19 05:13
  • 提问者网友:富士山上尢
  • 2021-07-19 01:21

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

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

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

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

最佳答案
  • 五星知识达人网友:怀裏藏嬌
  • 2021-07-19 01:45
一个比较笨的方法:增加一列,然后将属于同一户的序号为同一序号,然后用排序功能,再将辅助列删除。
全部回答
  • 1楼网友:爱难随人意
  • 2021-07-19 03:30
假设数据在A1:E9999里,表头在第一行。 在F2里输入公式 =IF(A2="",F1,E2),copy直到F9999。 选中A:F列排序,已F列为基准,完成后将F列删除。 完成。
  • 2楼网友:枭雄戏美人
  • 2021-07-19 03:21

'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 '转换前:

转换后:

  • 3楼网友:走死在岁月里
  • 2021-07-19 03:00

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

我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息,可以点下面链接进行举报!
点此我要举报以上问答信息
大家都在看
推荐资讯