excel表格里怎么排姓氏笔划

在Excel表格中对姓氏按笔划排序，可以通过以下方法：使用Excel自定义排序功能、利用辅助列和函数计算笔划、使用VBA宏进行排序。下面将详细解释其中的利用辅助列和函数计算笔划的方法。

一、利用辅助列和函数计算笔划

在Excel中，直接对汉字进行笔划排序比较复杂，但可以通过辅助列和函数来实现。具体步骤如下：

1、创建辅助列

首先，我们需要在Excel表格中创建一个辅助列，用于存储每个姓氏对应的笔划数。

2、编写计算笔划数的函数

由于Excel本身并没有直接计算汉字笔划数的功能，我们可以借助自定义函数（UDF）来实现。以下是一个简单的VBA代码，来计算汉字的笔划数：

Function GetStrokeCount(c As Range) As Long
    Dim str As String
    Dim i As Integer
    Dim strokes As Long
    strokes = 0
    str = c.Value
    For i = 1 To Len(str)
        strokes = strokes + GetCharStrokeCount(Mid(str, i, 1))
    Next i
    GetStrokeCount = strokes
End Function
Function GetCharStrokeCount(ch As String) As Long
    Dim strokes As Long
    strokes = 0
    Select Case AscW(ch)
        Case 19968 To 40869
            strokes = GetStrokeFromUnicode(AscW(ch))
        Case Else
            strokes = 0
    End Select
    GetCharStrokeCount = strokes
End Function
Function GetStrokeFromUnicode(unicode As Long) As Long
    ' 简单的Unicode到笔划数的映射，可以自行扩展
    Dim strokesMap As Object
    Set strokesMap = CreateObject("Scripting.Dictionary")
    ' 示例映射
    strokesMap.Add 19968, 1  ' 一
    strokesMap.Add 19969, 2  ' 丁
    strokesMap.Add 19970, 3  ' 七
    ' ... 更多映射
    If strokesMap.exists(unicode) Then
        GetStrokeFromUnicode = strokesMap(unicode)
    Else
        GetStrokeFromUnicode = 0
    End If
End Function

将以上代码复制到Excel的VBA编辑器中（按 Alt + F11 打开VBA编辑器，插入一个模块，然后粘贴代码）。

3、使用自定义函数

在辅助列中，使用自定义函数 GetStrokeCount 来计算每个姓氏的笔划数。例如，假设姓氏在A列，从A2开始，在B2输入以下公式：

=GetStrokeCount(A2)

向下拖动填充公式，计算出所有姓氏的笔划数。

4、对辅助列进行排序

最后，对辅助列进行升序排序，即可按照姓氏的笔划数进行排序。

二、自定义排序功能

除了利用辅助列计算笔划数，还可以通过Excel的自定义排序功能进行姓氏的笔划排序。以下是具体步骤：

1、选择要排序的区域

首先，选择包含姓氏的区域。

2、打开排序对话框

在Excel中，点击“数据”选项卡，然后选择“排序”按钮。

3、添加排序条件

在排序对话框中，点击“添加条件”，选择“列”列出姓氏所在的列，选择“排序依据”为“值”，选择“次序”为“自定义列表”。

4、创建自定义列表

点击“次序”下拉菜单中的“自定义列表”，在弹出的对话框中，输入按照笔划顺序排列的姓氏列表。例如：

一, 丁, 七, 万, 丈, 三, 上, 下, 丌, 不, 与, 丑, 专, 且, 丕, 世, 丘, 丙, 丞

点击“添加”按钮，然后“确定”。

5、应用排序

回到排序对话框，点击“确定”按钮，Excel将根据自定义列表对姓氏进行排序。

三、使用VBA宏进行排序

另一种方法是编写VBA宏来自动化排序过程，以下是一个示例VBA代码：

Sub SortByStrokeCount()
    Dim ws As Worksheet
    Dim rng As Range
    Dim cell As Range
    Dim dict As Object
    Dim i As Long
    Set ws = ThisWorkbook.Sheets("Sheet1")  ' 替换为你的工作表名称
    Set rng = ws.Range("A2:A" & ws.Cells(ws.Rows.Count, 1).End(xlUp).Row)
    Set dict = CreateObject("Scripting.Dictionary")
    ' 示例映射，添加更多姓氏及其笔划数
    dict.Add "一", 1
    dict.Add "丁", 2
    dict.Add "七", 3
    ' ... 更多映射
    For Each cell In rng
        If dict.exists(cell.Value) Then
            cell.Offset(0, 1).Value = dict(cell.Value)  ' 假设辅助列在B列
        Else
            cell.Offset(0, 1).Value = 0
        End If
    Next cell
    rng.Resize(, 2).Sort key1:=rng.Offset(0, 1), order1:=xlAscending, Header:=xlNo
End Sub

将代码复制到Excel的VBA编辑器中（按 Alt + F11 打开VBA编辑器，插入一个模块，然后粘贴代码），运行此宏即可按笔划数对姓氏进行排序。

四、总结

通过上述方法，您可以在Excel表格中实现对姓氏按笔划排序。利用辅助列和函数计算笔划数的方法比较灵活，可以处理复杂的笔划计算。自定义排序功能适合已经知道笔划数的简单情况。使用VBA宏的方法则可以自动化整个排序过程，提高效率。希望以上内容对您有所帮助。