excel里怎么按姓氏笔画排序

Excel里按姓氏笔画排序的方法包括：使用辅助列、建立自定义排序规则、使用VBA代码。这些方法可以帮助用户有效地根据中文姓氏的笔画进行排序。 下面将详细介绍其中的一种方法：使用辅助列来实现按姓氏笔画排序。

一、使用辅助列

1、创建辅助列

在Excel中，首先需要插入一个辅助列，用于存放每个姓氏的笔画数。假设我们有一列A，存放的是需要排序的姓名，那么我们可以在B列创建一个辅助列。

2、建立笔画数对照表

在Excel的某个空白区域建立一个汉字与其笔画数对应的对照表。例如：

汉字  |  笔画数
----------------
赵    |  9
钱    |  10
孙    |  6
李    |  7
...

3、使用查找函数

在辅助列中使用VLOOKUP函数来查找每个姓氏的笔画数。例如，在B2单元格输入公式：

=VLOOKUP(LEFT(A2, 1), 对照表区域, 2, FALSE)

这个公式的作用是从姓名（例如A2单元格中的“赵四”）中提取姓氏（第一个汉字“赵”），并在对照表中查找其对应的笔画数。

4、拖动公式

将B2单元格的公式向下拖动，填充整个辅助列。

5、按辅助列排序

选择整个数据区域，然后根据辅助列（笔画数）进行升序或降序排序。

二、建立自定义排序规则

1、定义自定义排序顺序

在Excel中，点击“文件”->“选项”->“高级”，找到“常规”部分，点击“编辑自定义列表”。在弹出的对话框中，手动输入姓氏按笔画数排序的顺序，例如：

赵, 钱, 孙, 李, 周, 吴, 郑, 王, ...

点击“添加”后保存。

2、应用自定义排序

选择需要排序的列，点击“数据”选项卡下的“排序”，在“排序依据”中选择姓名列，在“次序”中选择自定义排序顺序，即刚刚定义好的列表。

三、使用VBA代码

1、打开VBA编辑器

按 Alt + F11 打开VBA编辑器，插入一个新模块。

2、编写VBA代码

输入以下VBA代码，用于根据姓氏笔画数进行排序：

Function GetStrokeCount(ch As String) As Integer
    Dim strokes As Object
    Set strokes = CreateObject("Scripting.Dictionary")
    strokes.Add "赵", 9
    strokes.Add "钱", 10
    strokes.Add "孙", 6
    strokes.Add "李", 7
    ' 继续添加其他姓氏及其笔画数
    If strokes.exists(ch) Then
        GetStrokeCount = strokes(ch)
    Else
        GetStrokeCount = 0
    End If
End Function
Sub SortBySurnameStrokes()
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets("Sheet1") ' 修改为实际表名
    Dim lastRow As Long
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
    Dim i As Long
    For i = 2 To lastRow
        ws.Cells(i, "B").Value = GetStrokeCount(Left(ws.Cells(i, "A").Value, 1))
    Next i
    ws.Range("A1:B" & lastRow).Sort Key1:=ws.Range("B1"), Order1:=xlAscending, Header:=xlYes
End Sub

3、运行VBA代码

关闭VBA编辑器，回到Excel，按 Alt + F8 打开宏对话框，选择 SortBySurnameStrokes 宏并运行。

四、总结

以上介绍了三种在Excel中按姓氏笔画排序的方法。使用辅助列的方法较为直观，适合不熟悉编程的用户；建立自定义排序规则的方法灵活性较高，适合需要频繁排序的用户；使用VBA代码的方法则适合处理大量数据或需要自动化操作的用户。选择合适的方法可以大大提高工作效率。