Excel文档中非阿拉伯数字的查询处理

在企业报送的Excel报表中，存在他们使用这样的数字来记账的问题
①②③④⑤⑥⑦⑧⑨⑩
⑴⑵⑶⑷⑸⑹⑺⑻⑼⑽⑾⑿⒀⒁⒂⒃⒄⒅⒆⒇
壹贰叁肆伍陆柒捌玖拾
一二三四五六七八九十

我如何查找出大于xxx的数据？

 

把数据复制到另外一个表，然后通过你的宏自动转换数据，然后就可以完成查找

    Cells.Replace What:="①", Replacement:="1", LookAt:=xlPart, SearchOrder _
        :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
    Cells.Replace What:="⑴", Replacement:="1", LookAt:=xlPart, SearchOrder _
        :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
    Cells.Replace What:="壹", Replacement:="1", LookAt:=xlPart, SearchOrder _
        :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
    Cells.Replace What:="一", Replacement:="1", LookAt:=xlPart, SearchOrder _
        :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False

以此类推

 

然后使用任意的想要的查询方式