将字母转换成数字序列来进行EXCEL高级筛选

EXCEL的高级筛选功能及VLOOKUP、HLOOKUP等查找匹配函数不区分大小写,在对一些大小写进行操作时难以正确区筛选。通过VBA将文本转换成数字字符,通过转换后的数字字符进行高级筛选的匹配。思路:逐个个字符提取unicode码后,进行数字序列转换。VBA函数如下:Public Function 字码串(文字) As String Dim i As Integer Dim Str As StringDim L As Integer L = Len(文字) For i = 1 To L Step 1 Str = Str & AscW(Mid(文字, i, 1)) Next i 字码串 = StrEnd Function使用方法1、打卡EXCEL的VBA编辑器，插入模块后，将以上VBA函数代码复制到模块中后保存当前工程；2、在欲高级筛选的目标列后添加空列，第一行标题可写做字码串，对目标列的单元格文字使用此函数进行转换。列入目标列为第A列，插入的空列为B列，在B1单元格内协商标题“字码串”，从单位格B2开始使用此函数公式。B2单元格内使用公式 =字码串（A2），B3以下的单元格用B2的单位格的公式进行填充后，就可以得到转换后的目标列；3、将条件列也进行如第2步一样的转换；4、将转换后的目标列选中并复制，在此列进行选择性粘贴值，这样就除去了转换后的目标列中的公式；5、如步骤4，对转换后的条件列除去公式；4、对转换后的目标列使用转换后的条件列进行高级筛选或进行VLOOKUP查找匹配。