|
在工作中不同的人选择录入数据的方式五花八门，为了方便做数据统计和汇总，我认为在同一工作簿内进行操作是首选，但有很多人偏偏将工作薄当成工作表来使用，要知道工作薄就像是一本厚厚的书，工作表就是其中的一页纸，2007之前的版本，一个工作簿最多只能有255个工作表，如果是2007以后的版本，理论上一个工作簿可以包含无限多个工作表，取决于您的电脑内存容量大小。1个工作薄满足大众的需求绰绰有余。 案例：假如我们要进行一次社区大排查核对工作，现已到了收尾整理材料阶段，那么，在录入数据时，小林将每个人放在单独的工作薄内，已经将工作薄当成工作表来使用，500个人就有500个工作薄，如果里面除了核对表之外还有其他的辅助表，那何止500个工作表，里面的核对表没有以姓名作为工作表名称，这种情况下要做出一个全社区的信息汇总表，会面临什么棘手的问题呢？如果你是小林应该怎么样处理这个问题？ 第一个问题：如何将多个工作薄内的工作表放在同一个工作薄内？ 第二个问题：当工作表都放在同一个工作薄内出现了许多不需要的工作表如何删除？ 第三人问题：保留下来的工作表名字不符合实际的需求怎么办？ 第四个问题：如何进行各类数据分类汇总？ 解决问题一些的思路 对于第一个问题，用到了VBA来解决，我原来发表关于合并工作薄的文章，一篇是合并成单一工作表，另一篇是合并成多个独立的工作表。大量的工作薄合并不是问题，只要电脑配置好速度就一个爽字！ 第二个问题还是用到了VBA来解决，真的没有办法，表格数量少可以手动按Ctrl和Shift加选、连选，遇到大批量工作表这些方法就难办了，还好VBA可以实理批量的删除工作表，或且提取符合条件的工作表。 第三个问题依然是用到VBA来实现。本次我重点说关于第三个问题的思路及方法，这里说的变更工作表名称可是有要求的，已经合并在同一个工作薄内的工作表名称有其规律和特点，我们要细心观察分析，旧的工作表名称有相同的部分并按顺序依次命名，比如出现：核对表、核对表（2）、核对表（3）、核对表（4）、核地表（5）、核对表（6）等等，在每个核对表中都有对应的名字，张三、李四、王五，这些名字就我们想要的，接下来该怎么办呢？思路是旧的工作表名称和新的工作表名称对应好后套用VBA进行批量变更。获得工作表名称可以利用函数公式来完成，含超链接的公式代码如下： =IFERROR(HYPERLINK(INDEX(shName,ROW()) & "!A1",TRIM(MID(INDEX(shName,ROW()),FIND("]",INDEX(shName,ROW()),1)+1,100))),"") 以上代码可以获得工作簿内所有工作表的名称，我们称之为旧名称，得到了旧的工作表名称就要想如何得到对应的新名称，张三、李四、王五怎么来？有上百个工作表怎么办？打开工作表然后复制粘贴就算了。这时我们利用函数公式可以帮助到我们，利用INDIRECT函数，该函数的作用是将文本字符串转换为单元格引用，构造成“常量+常量“，”静态+动态“相结合的单元格引用，如何通俗理解呢！我对比发现张三、李四、王五所在单元格的地址有规律，=核对表!B2、=核对表（2）!B2、=核对表（3）!B2，单元格”B2”没有变，变的是表的名称，这不正是我们上面等到的旧名称吗，我们用代码来构建一个自动的引用地址，代码：=INDIRECT("'"&$E1&"'!B2")，“E1 “就是我们的旧名称” 核对表“所在单元格地址，公式往下拖动，对应的地址也就跟着变，名字张三、李四、王五、隔壁老王也就跟着一起出来了。现在新的工作表名有了，将新名称纵向放在A列，记得A1对应第一个工作表，接下来就套用VBA代码就可以完成，VBA代码如下： Public Sub 批量重命名工作表标签() Dim i As Byte '定义变量 i = 1 Do While Worksheets(1).Cells(i, 1) <> "" '判断第一张工作表A列不等于空 Worksheets(i).Name = Worksheets(1).Cells(i, 1) '将第一张工作表A列的内容依次用于重命名工作表标签 i = i + 1 '变量循环加1 Loop End Sub 第四个问题，话题讲得有点大了，我觉得有了表格基础的情况下最重要的是解决思路和计划方面的事情，从一开始的每一张小表到最终的汇总表，都是环环相扣，小表可是大有乾坤，设定格式、内容、公式，能想到的尽量追求完美，前期是一个小表，后期量多就是大表了。关于表格尽量往动态方面设计，这里我推荐大家认识一下offset函数，还有传说中没有门槛而且是殿堂级的工具-数据透视表，其实有很多方法，因人而异。只要我们主动学习不断提高工作技能，没有什么难得了我们，学习，不仅是学，最重要是练习，所以分享就是学习的互动！ 针对以上提出的问题，解决之道受个人能力水平限制，有待高人指点提高。 |
|
|
