VBA 把电信的电话费用表转换成部门电话费用明细表(图文)
今天同事要做一个这样的工作,就是把电信发来的费用表,转换成按部门划分的电话费用表,100多部电话,如果一个个去核对,真还是需要些时间的。问题来了,有更好的方法么,我们来看一下。
电信公司给的费用明细是这个样子的,单个号码与费用合计并不在一起。
先通过Excel的筛选功能,去掉号码的空格行,这样把号码和费用放的近一点,因为中间的数据行数不是固定的,这样至少只差一行,就好办多了。
由于错开一行,把费用行数据整体剪切上移一行即可与号码在同一行。再把没有用的行列删除即可。
这是转换后的结果,如A列和C列。由于部门费用表中并没有区号显示,所以两者进行对接需要对号码进行处理一下,这不把A列截取右边8位即可。有一个宽带号码特殊的情况,需要手动处理一下。
这个就是部门费用表,上面的数据需要对应号码更新费用到下面这个表里面。原来的两张费用表用着不方便先放到一个Sheet中,这样查找起来方便多了。
写一个VBA的程序,对整理的号码进行循环,然后在部门号码表里查找,找到的话就将右边的值进行替换。这里面进行了一个出错的处理,否则如果不处理的话有找不到号码的时候就会报错而执行不下去。
Sub getDate()On Error Resume Next '不报错继续执行For cln = 1 To 147PhoneNumber = Sheets("sheet1").Cells(cln, 2)money = Sheets("sheet1").Cells(cln, 3)Dim rng As RangeSet rng = Worksheets("总公司").Range("E1:E187").Find(PhoneNumber, , , 1)' MsgBox (rng.Address)rng.Offset(0, 1).Value = money '向右偏移一列即为费用值If Err.Number = 0 ThenSheets("sheet1").Cells(cln, 4) = "OK" '成功标识End IfIf Err.Number <> 0 ThenSheets("sheet1").Cells(cln, 4) = "Error" '错误标识,重点查看即可Err.Number = 0End IfNextEnd Sub
程序都执行完了,再核对一下,对特殊的几个号码再处理一下就OK了。
VBA 把电信的电话费用表转换成部门电话费用明细表(图文)相关推荐
- ORACLE普通表转换成分区表
转http://mp.weixin.qq.com/s?__biz=MzAwMjkyMjEwNg==&mid=2247484761&idx=1&sn=ce080581145931 ...
- badatatable转成json_数据表转换成json(DatatableToJson)
#region 转换Table为JSON数据 /// /// 转换Table为JSON数据 /// /// /// public static string TableToJson(DataTable ...
- C语言:将邻接表转换成邻接矩阵算法
题目 设计一个将邻接表转换成邻接矩阵的算法. 分析 初始时将邻接矩阵 g 中所有对应的元素值设置为 0,扫描邻接表 G 的所有单链表,通过第 i 个单链表查找顶点 i 的相邻结点 p,通过邻接矩阵 g ...
- mysql宽表优化_将MySQL的窄表转换成宽表的方法
将MySQL的窄表转换成宽表的方法 在扩展设计中,使用窄表可以很方便的增加新的项.如果用宽表,就会需要修改表结构,很不方便. 而使用宽表在查询过滤数据的时候会比窄表方便很多,数据的记录量也会少很多. ...
- Java案例:数据表转换成XML文档
将数据表查询内容转换成XML文件,便于在网络上进行传输,具有一定的实用价值. 1.数据表(student) 2.数据库连接管理类 /*** 功能:获得数据库连接* 作者:华卫* 日期:2010年4 ...
- 序列表转换成横向菜单
如何把一个无序列表转换成横向菜单 首先建立一个无序列表 <html> <body> <div id='item'> <ul> <li>星期 ...
- doc转换成html接口,九云图文档转换接口在线word转pdf,pdf转html,doc转pdf等各种文档相互转换的接口...
当前,针对文档的 WEB 展现,特别是在移动端 WEB 展现,缺少成熟通用的技术方案.一些应用不得不采取变通的办法,比如阿里钉钉把文档页转成了图片.QQ 邮箱丢失字体轮廓特征.微信则要下载后通过第三方 ...
- 怎么word转换成html,如何将word转换成html word转html图文教程
如何将Word转换成HTML?这还真是我工作这么多年来头一次见到这样的提问.不管是为了方便阅读.不会编写代码,还是什么其它原因,我的答案是:用 为什么我会说迅捷PDF转换器可以把Word转换成HTML ...
- 二维表 转一维表 mysql_Excel二维表转换成一维表(2种方法)
今天大年初四,春节假期还剩三天了,每逢佳节胖三斤,亲们可要注意控制饮食了,要不然春节后无脸见人哟.闲话少说,今日分享如下. 在做数据处理的时候,有的时候为了处理方便我们需要将二维的数据表处理成一维的数 ...
- ORACLE 普通表转换成分区表(在线重定义)
在一个高可用系统中,如果需要改变一个表的定义是一件比较棘手的问题,尤其是对于7×24系统.Oracle提供的基本语法基本可以满足一般性修改,但是对于把普通堆表改为分区表,把索引组织表修改为堆表等操作就 ...
最新文章
- 简述ajax的重构原因,Ajax 重构的步骤
- Servlet HTTP Status 405 - HTTP method GET is not supported by this URL
- java代码块的定义_Java几种代码块的定义与常见问题
- Go Web 编程--应用 ORM
- Linux lsof命令使用小结
- 漫画:应用程序被拖慢?罪魁祸首是 Log4j!
- project项目导入java路径_Eclipse项目怎么导入IDEA并运行(超详细)
- sql not exists用法_牛客网数据库SQL实战详细剖析(5160)(更新完结)
- 使用OpenCore引导黑苹果
- 外贸业务员常用询盘报价邮件模板
- java shopnc,ShopNC商城系统
- Oauth2.0 QQ微信微博实现第三方登陆
- 自动回复邮件 html,创意十足的邮件自动回复
- OLED屏幕的IIC驱动程序
- bga bond焊盘 wire_BGA焊盘分类和阻焊层要求
- Jsp中有哪些内置对象?作用分别是什么?
- 光明旅者的冲刺挑战成就
- [Javascript]:BOM对象详解和BOM与DOM的层次关系
- 一步一步学习Vim 全图解释
- Vue+Spring Boot+MyBatis实现Eshop电子商城(已烂尾,等以后有时间再继续完善)