我对这种排序毫无经验求解论坛的大神们，感激不尽！

WONIUWANG

mjjsum 发表于 2015-12-15 17:17
先在自定义序列中添加 户主。妻，兄弟，姐姐，妹妹，子，孙 这个排序序列，然后在表中再排序即可

这怎么弄  您说的是排序的关键字吗

mjjsum

WONIUWANG 发表于 2015-12-15 17:53
这怎么弄  您说的是排序的关键字吗

你百度一下 自定义序列，我的版本是2013，你找一下你对应版本所对应的在哪里添加

一指禅62

1. Sub 排序()
   
2.     Dim R As Long
   
3.     Sheet1.Select
   
4.     R = Range("A65536").End(3).Row
   
5.     Application.ScreenUpdating = False
   
6.     Range("G1") = "附列"
   
7.     Range("G2").Resize(R, 1).FormulaR1C1 = "=VLOOKUP(RC6,C11:C12,2,0)"
   
8.     Range("A1:G" & R).Sort Key1:=Range("E2"), Order1:=xlAscending, Key2:=Range _
   
9.         ("G2"), Order2:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase _
   
10.         :=False, Orientation:=xlTopToBottom, SortMethod:=xlPinYin, DataOption1:= _
    
11.         xlSortNormal, DataOption2:=xlSortNormal
    
12.     Range("G:G").ClearContents
    
13.     Application.ScreenUpdating = True
    
14. End Sub

复制代码

chenbiao2012

WONIUWANG 发表于 2015-12-15 00:35
d ＝1*10∧(-9)这是什么意思   大神能否给我讲讲思路

其实用vba也是用的自定义序列，但是一般我们在排序时肯定是从大到小的，所以我要考虑到出生的日期，d=1*10^(-9)就是给字典赋值为0.000000001