这个问题提问过一次,不是什么省将自动排序的问题
我想说明一下,我的意思是我想把有地址的那一栏排序,但是下面家庭人员不要动,就是比如:王勇 胡梅 王炳晨这三个人还要在一起,因为他们是一户的,然后下面是李乾军一户3人在一起,只要这一户的开头这个人排序就可以了,也就是带地址的那一个人排序,但是下面家庭人员不要排序,也不要弄到后面。这样可以么?
(((序号和家庭住址是对应的,要求排序,但是不需要删除家庭其他人员)
就是这个意思。追加分,在线等!
这个问题提问过一次,不是什么省将自动排序的问题
我想说明一下,我的意思是我想把有地址的那一栏排序,但是下面家庭人员不要动,就是比如:王勇 胡梅 王炳晨这三个人还要在一起,因为他们是一户的,然后下面是李乾军一户3人在一起,只要这一户的开头这个人排序就可以了,也就是带地址的那一个人排序,但是下面家庭人员不要排序,也不要弄到后面。这样可以么?
(((序号和家庭住址是对应的,要求排序,但是不需要删除家庭其他人员)
就是这个意思。追加分,在线等!
'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 '转换前:
转换后:
用辅助列,先填充,再排序吧!