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

最新推荐文章于 2025-09-12 20:58:11 发布
原创 最新推荐文章于 2025-09-12 20:58:11 发布 · 1.4k 阅读 · 0 ·
CC 4.0 BY-SA版权
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
文章标签：

#excel #文档 #报表

博客主要围绕企业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

以此类推



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

cnming
关注
VBA颜色转换 中英互译
Ailsa2019的博客
12-28 859
英转中 Sub 颜色英中转换() Cells.Replace What:="White and Black", Replacement:="白+黑" Cells.Replace What:="Rose Red", Replacement:="玫红" Cells.Replace What:="AS PIC", Replacement:="如图" Cells.Replace What:="Darkblue", Replacement:="深蓝" Cells.Replace
Excel文档处理之Open XML
Farmer
07-05 8378
通过Open XML对Excel进行创建、载入、单元格读写、改变单元格样式、添加超链接等。
excel怎么能把含阿拉伯数字筛选出来
缘 源 园
10-10 2361
目前有一批数据，但是中间混有阿拉伯数字和汉字数字区分开呢。可以用这个函数解决 =IF(SUMPRODUCT(--ISNUMBER(FIND(10-ROW($1:$10),A1)))>0,A1,"") 然后Ctrl+d下拉填充去区分。 此时，我们已经区分出来了，汉字数字则是空白显示。B列就是我们的结果。 ...
学习笔记（转义字符）
qq_52454367的博客
01-12 434
所有的ASCII码都可以用“\”加数字（一般是8进制数字）来表示。而C中定义了一些字母前加""来表示常见的那些不能显示的ASCII字符，如\0,\t,\n等，就称为转义字符，因为后面的字符，都不是它本来的ASCII字符意思了。 \a 响铃(BEL) 007 \b 退格(BS) 008 \f 换页(FF) 012 \n 换行(LF) 010 \r 回车(CR) 013 \t 水平制表(HT) 009 \v 垂直制表(VT) 011 \ 反斜杠 092 ? 问号字符 063 ’ 单引号字符 039 " 双引号字
EXCEL（替换单元格内字符串）
qq_33450463的博客
11-19 1438
Sub Replacement() Range("A:A").Replace _ What:="市", Replacement:="区", _ LookAt:=xlPart, SearchOrder:=xlByRows, _ MatchCase:=True End Sub 参数选择和find方法类似。 表达式.Replace(What,R...
Excel的VBA中Selection(或Cell).Replace的参数含义
vipul的博客
05-26 7750
Range.Replace(…) 方法 返回 Boolean，它表示替换指定区域内单元格中的字符。使用此方法并不会更改选定区域或活动单元格。 语法 表达式格式： Replace(What, Replacement, LookAt, SearchOrder, MatchCase, MatchByte, SearchFormat, ReplaceFormat) 表达式 一个代表 Range 对象的变量...
excel中复合型数字递增
03-14
excel单元格中有多个数字需要不同步递增。本资源给你解决这个问题
PHP删除字符串中非字母数字字符方法总结
12-20
可以使用preg_replace（）函数删除非字母数字字符。此函数执行正则表达式搜索和替换。函数preg_replace（）搜索由pattern指定的字符串，如果找到则用替换替换模式。 代码示例： 方法1：正则表达式’/ [\ W] /’匹配...
excel用数组公式获取一列中非空（非零）值.docx
09-26
Excel 数组公式获取一列中非空（非零）值 Excel 是一个功能强大的电子表格软件，经常被用于数据分析和处理。在数据处理中，常常需要提取特定的数据，例如获取一列中非空（非零）值。本文将介绍使用 Excel 数组公式...
Excel删除重复数据java_合并Excel范围中的数据，删除空白和重复项
weixin_32280593的博客
02-26 338
这是一种方法 .CODE (TRIED AND TESTED)Option ExplicitSub Sample()Dim ws As WorksheetDim LastRow As Long, lastCol As Long, i as LongDim Rng As Range, aCell As RangeDim MyCol As New Collection'~~> Change th...
Excel 表格的【超级查找功能】EXCEL表格自动查找
VB973490770的专栏
11-08 632
excel自带的表格查找不好用，所以我就自己创造了个自动查找的表格。
excel表格乱码修复_修复从数据库复制的空白Excel单元格
culiao2169的博客
08-14 879
excel表格乱码修复 修复从数据库复制的空白Excel单元格 (Fix Blank Excel Cells Copied From Database) When you copy data to Excel, from another application, blank cells in the data can cause problems. Everything looks okay, a...
数据清洗宝箱第一弹：批量替换
qq_39677320的博客
06-14 513
工具虽小，但是很实用一、不废话，直接上宏 Sub batchReplace()'' 批量替换 宏''字符串声明 Dim str1 As String Dim str2 As String'两层循环嵌套，i表示行号 For i = 1 To 500'拼接An，并取其中的值    'str1为A列为批量替换中原值，str2为B列为替换后的值。     str1 = Sheets("Sheet2").C...
Excel导出文件一行内容出现了换行
上官云霆的博客
07-30 6018
当我们要把excel中的文件导出到txt文件中时，有的列会在文本中自动换行，当文本数的行数比较小时，可以手动去修改下； 但是当文本内的行数较大，几千行时这就不能手动修改，只能自动修改。   中国银联支付标记(00010030) 另存为txt时 会变成换行 中国银联支付标记
No.4-谷歌商店格式整理vba （下载量转汉字）
weixin_30872733的博客
04-02 149
'转换大小写 Sub Macro1() Columns("G:G").Select Selection.Replace What:=",", Replacement:="", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False Selection.R...
VBA里的文本函数 find() search() substitute() replace() match() large() 在EXCEL工作表使用和VBA中使用差别的对比
热门推荐
奔跑的犀牛先生
02-25 1万+
3.1 find() 语法 Find(What, After, LookIn, LookAt, SearchOrder, SearchDirection, MatchCase, MatchByte, SearchFormat) find()一般是为了查询结果，返回的是找到的对象 range Sub test301() Dim a As Object 'find返回的应该是 ra...
Excel如何快速判断指定位置字符是不是数字
llrraa2010的专栏
04-09 1870
https://jingyan.baidu.com/article/b7001fe148e2a14f7382dd0c.html =IF(ISNUMBER(-RIGHT(C2,2)),LEFT(C2,LEN(C2)-2),IF(ISNUMBER(-RIGHT(C2,1)),LEFT(C2,LEN(C2)-1),C2)) 使用“-”来将文本型转为数字型。最后利用ISNUMBER函数来判断是不是数字。 ...
How to work with merged cells in Excel with `openpyxl` in Python?
最新发布
shizidushu的博客
09-12 234
Import module and read the workbook: Print merged cells: Check the type of Refer the below link for CellRange and MergedCellRange:Check the type of , it is . Check type of again: Refer the link for method on sheet: https://openpyxl.readthedocs.io/e
matlab 如何读取txt文件中非数字的内容
09-19
在MATLAB中，如果你想要读取.txt文本文件中的非数字内容，通常可以使用`textread`函数配合正则表达式来实现。`textread`函数主要用于从文本文件中读取数据到数组中，而正则表达式可以帮助我们过滤出非数字的部分。 ...
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值