VBA代码

合并工作表

Sub 合并工作表() Dim sh As Worksheet, flag As Boolean, i As Integer, hrow As Integer, hrowc As Integer For i = 1 To Sheets.Count If Sheets(i).Name = “合并数据” Then flag = True Next If flag = False Then Set sh = Worksheets.A …

又一个宏,这次是关于查询的

马上春节了,事情不多,今天上午又帮人做了一个查询的宏。 源文件是个极其不规范的表格,里面在数据源中存在很多合并单元格,数据也并非都在一列中,好在每个数据区域还算比较有规律(有固定的行、列数量),索引关键字在每个数据区域内的相对位置也是固 …

郭浩

关注社会、公益、互联网,专注人力资源管理,视HR为企业良心,绰号小百科的伪技术宅。