我的天

昨天说到当我想用VBA把一个工作簿里面的某些工作表复制到另外一个工作簿的时候，如果要复制的工作表有多个，复制过程中就会出现闪烁。如果需要复制的工作表很多，闪烁的时间会比较长。我觉得批量选择，最后一次性复制是一个解决办法。如果不是用VBA，而是手动实现这个复制功能，的确会用批量选择，然后再复制。现在按住Ctrl，然后用鼠标选择需要复制的工作表，最后进行复制。如果要在VBA里面实现这个批量选择，该怎么做呢？

一个工作簿里的工作表该如何判断哪些是需要的，哪些是不需要的，对我来说只需要判定工作表的名称就可以，所以我可以对需要的工作表以某种方式结合起来，比如形成一个以固定分隔符的字符串。VBA里要表达批量选择，然后复制，到底该用什么东西呢？这一次我没有搜索，而是直接录制了个宏。结果发现原来批量选择再复制，在宏里默认是通过数组的。需要把目标工作表的名称组合成一个一维数组，然后用最普通的复制方式把拷贝到新的工作簿。所以我要做的就是把目标工作表的名称赋值给一个一维数组。因为不知道到底要复制多少个工作表，所以这个数组应该是一个动态数组，我马上想到的方式就是以默认分隔符打断字符串的方式赋值给一维的动态数组。这个操作非常高效，而且动态数组的大小完全不需要在一开始就定义好，字符串里面有多少东西就可以生成多大的一维数组。

接下来，我要做的是经过一轮循环筛选出某个工作簿里我需要的工作表的名称，然后把这些名称以固定分隔符的方式连接起来。最后在打断之前我还要干掉一个分隔符，因为无论我把分隔符放在最前面还是最后面，整个字符串还是会多一个分格符。我不知道多一个分隔符在赋值给一维数组的时候会不会失败，作为完美主义者，我宁愿手动把那个分隔符去掉。那不过是一个字符串取值的简单操作而已。处理好字符串以后，就可以打断那个字符串赋值给一维数组，最后通过经典的复制方式，把工作簿里的目标工作表拷贝到另外一个工作簿。

我没有测试过这样处理耗时跟基础经典处理有多大差别，但就肉眼来说，差别挺大。因为如果进行这般批量选择一次性复制，基本上可以秒杀完成，但如果使用经典的方法、工作表又比较多，我感觉得闪烁一秒钟以上。秒杀就能完成我感觉那个耗时会在0.3秒以内。

批量选择再复制的确可以秒杀实现拷贝工作表，但是光标会停留在最后一个被复制的工作表里，我需要光标仍然停留在我的点击VBA控件的工作表。所以最后我又增加了一个激活目标工作表，把鼠标锁定在某个单元格的功能。这个功能不是非如此不可的，没有也不影响数据处理本身，但就方便程度而言，这是显而易见的。就如没有初始化和拷贝数据那两个模块，核心功能没问题，但是多了这些贴心的小步骤。整个核对的过程会变得更顺手。

如果使用的时候能更顺畅，我宁愿把代码搞得复杂一些。毕竟复杂的代码是一次性的。

PS：测试
复制19个工作表：批量法0.85秒，经典法7.25秒。
复制8个工作表：批量法0.59秒，经典法3.02秒。
复制4个工作表：批量法0.48秒，经典法1.59秒。

Sub 批量拷贝工作表-批量法()
    Application.ScreenUpdating = False '关闭屏幕刷新
    Dim book As Workbook
    Dim sht As Worksheet
    Dim my_name As String, stringArray() As String
 
    my_name = ""
 
    For Each book In Workbooks
        If book.Name <> "AAA.xlsm" Then
            For Each sht In book.Worksheets
                If Not sht.Name Like "*BBB*" Then
                    my_name = my_name & sht.Name & ","
                End If
            Next
            my_name = Mid(my_name, 1, Len(my_name) - 1)
            stringArray = Split(my_name, ",")
            book.Sheets(stringArray).Copy before:=ThisWorkbook.Worksheets("条件")
        End If
    Next
 
    With ThisWorkbook
        .Worksheets("条件").Activate
        .Worksheets("条件").Range("A27").Select
    End With
 
    MsgBox "完成数据抓取！"
    Application.ScreenUpdating = True '打开屏幕刷新
End Sub
 
************************************
 
Sub 批量拷贝工作表-经典法()
    Application.ScreenUpdating = False '关闭屏幕刷新
 
    Dim book As Workbook
    Dim sht As Worksheet
    For Each book In Workbooks
        If book.Name <> "AAA.xlsm" Then
            For Each sht In book.Worksheets
                If Not sht.Name Like "*BBB*" Then
                    sht.Copy before:=ThisWorkbook.Worksheets("条件")
                End If
            Next
        End If
    Next
 
    With ThisWorkbook
        .Worksheets("条件").Activate
        .Worksheets("条件").Range("A27").Select
    End With
 
    MsgBox "完成数据抓取！"
    Application.ScreenUpdating = True '打开屏幕刷新
End Sub

星期天的晚上，我觉得自己睡了个寂寞。本来就很晚才去睡觉，再加上睡觉之前我正在想某些很烧脑的事情，所以现在躺在床上，我觉得整个晚上我的脑子里都是那些烧脑的玩意。在迷迷糊糊之中睡觉，我也说不准自己到底是清醒的还是睡着的。在睡梦之中我还在为那个睡觉之前折腾的问题烦恼，但醒了以后，我实在不记得睡梦之中我做了什么方案，所以说在其实在睡觉之前真的不应该努力思考，那样的话不仅仅会很久都睡不着，睡着了以后也会很挣扎。但我读书的时候不会这样，话说回来，读书的时候我就从来没有为某些问题主动这么努力过。如果是老师出的某些习题，通常都会有标准的答案。那个时候我们都不会自找麻烦，故意给自己制造难题，又或者说即便在那个时候我们找到了什么问题，你自己解决不了的，我也会主动去找同学或者直接去找老师。退一步说，我们找的那些答案只要到那是某些习题本上或者卷子上的题目，那些东西绝大多数情况之下都有标准答案，所以找到那个标准答案就好了，有可能是配套的答案也有可能是某些教辅的书籍里面有相关类似的解题说明。

现在我做的那些事情，我感觉没有一个标准答案。不同的人会用不同的方式去实现。不仅仅是实现的工具不一样，即便是一致的工具，也会有不同的实现思路。就我自己的实际情况而言，即便只是我一个人，可能今天跟明天的想法也会有区别，即便我把某个VBA脚本写得我自己满意，但说不准过上一段时间我又会有新的想法，觉得某些地方可以做某些改进。之所以这样，是因为首先我还一直在思考。其次，之所以一开始想得不周全，是因为我根本不知道周全应该是怎么样的，很多方法是参照过来的，可能在其它的编程里面是那么个用法，但什么才是最适合在VBA里实现的，又是另外一回事。比如其实VBA通过api是可以调用Excel自己前端函数，但那一定不是VBA最高效的方式。在VBA里，只要你玩好了判断和循环，对高手来说，就能解决几乎所有的问题。数组才是VBA的核心，但是数组不仅仅是一回事。可能是我一开始学VBA的时候并没有意识到原来数组是那么的复杂。因为在我印象之中，C语言的数组不是这样的。

VBA里的数组千变万化，虽然都用数组去命名，但实际定义赋值使用等等完全不一样，又或者是说它们的确有共性，但是它们的特性会让你觉得它们大概都是一回事的人无数次掉坑里，我就是这样的人。当我掉坑里很多次以后，我才发现原来它们是有很多特性的。

要清楚了解我的工具是做什么的。可以怎么用，然后我才能在用的时候得心应手。什么场合应该用什么样的数组，得到了数组以后，我又可以对那进行什么样的改造都是我应该烂熟于心的。

大概一周之前，我跟网友谈起我在VBA里遇到的烦恼的时候，我的网友说了一句，可能你连怎么VBA里调试都不知道。其实调试我是会的，因为如果我完全不懂调试的话，搞循环就是在数组瞎掰，显然除了碰壁就是碰壁。但是我真的没有系统的学习过在VBA里怎么高效调试。既然知道自己弱在哪里，我就得把这个补回来。现在我的调试要比之前高效那么一点点了。

在AI流行的现在，我还靠我自己写VBA，写那个超级八股又非常奇怪的编程语言，在别人看来非常反人类反潮流，但是当你从不大认识到比较熟悉一种编程语言，当你能得心应手轻而易举实现之前你想做到，但是却无法做到的事情的时候，那种成就感是无法言语的。

明明想好了，要早点回宿舍动感单车，但是还是不知不觉的拖到了9点多。明明想好了回到宿舍就不再开电脑做VBA相关的东西，结果还是忍不住，我满脑子都是那个玩意。所以周四的晚上，我又只是匆匆忙忙我完成了一个30分钟的动感单车课程。理论上周三对我来说是动感单车的大课，但实际上我只上了一节15分钟的Y5强度，虽然强度很够意思，但持续时间太长短。周四晚上，本来我打算好好干一场，结果又被时间所限。

周四晚上11点多我才开始研究把字符串分组连接的数组。思路很简单，就是建立一个字典，如果键是相同的，就把键值通过顿号连接起来。这只需要一个循环就能做到，但我在那里磨叽了好久，最大的原因是我没有踏踏实实地手动进行前几轮的试验，而是大概凭感觉写好就丢给程序，于是一次又一次地被程序报错。有些时候是下标超限。有些时候是出来的结果完全不是我想要的。最终我整出来了，但就好像只是运气，碰对了。最让我觉得自己很无语的是，明明我在里面设置了if，如果这个键跟上一个键的内容是一样的，那么就把这个数值通过顿号连接到上一个键的键值那里，但是我却一直没有写 else，实际上我只需要再写一条，余下的就把这个数值成为这个键的键值。我处理的是非常典型的字典，没有比这更近更简单的了，但是我却在那里兜圈子，我自己也觉得自己很无语。

搞定了这个字典以后，我又试着把之前已经汇总好的表跟这个字典合并起来。思路也是非常简单，因为我只需要在原来的那个表那里加一列。当那个字典里面的键等于这个表某一列的某个数据，那么就把这个键值放在数据所在行最后一列的下一列你。结果我折腾了半天，为什么就是没有结果呢？最后发现我一直被数组的最大值给搞迷糊了。什么是1，什么2。通常来说我喜欢从1开始计数，但实际上记录集直接输出来数组是从0开始的，而且那个行列结构刚好和从单元格获取数据形成数组是一个转置的关系，本来1和2就已经迷糊，然后还得实际上得2变成1。因为我要新增一列，所以应该是加在什么地方呢？大半夜脑子本来就不太好使，再加上这种转置加1就让我更加迷糊。所以我已经不记得系统弹出过多少次下标超限。最后还是那一招，当系统说我超限的时候，我用鼠标看一下参数，果然发现了我进行for循环的那些设置都是乱来的，虽然肯定就是两个循环一次互换的操作，但里面的i，j我乱写，于是我又在那里折腾了好长时间。搞笑的是那个合并的数组的确没有问题了，在用Ctrl+F8运行的时候，我的确看到那个数组的里面已经齐全了我要的东西，但为什么输出到工作表的单元格就是看不到我想要的呢？最终发现又是数组最大行与列的问题。显然我的大脑非常不善于处理这个。因为我需要的那个数据在我单元格输出区域以外的地方，所以工作表里死活看不到。如果我一开始就耐心点的，我就不需要走这些弯路，但是这两个数组方案我都是一开始抱着大概差不多的心态瞎写的。

学习C语言的时候，我没有现在那么好的调试工具，现在的调试工具时的确强大了，尤其是如果我在VSCode里面写python，但就是因为这些东西很强大，它们可以把我的问题描述得很清楚，所以一定程度上我也习惯了大概差不多瞎写，出现什么问题再去改，但是这种习惯如果用在VBE里就会让我经常碰壁、非常绝望。

花了大概两天的时间呢，我做出了大部分的VBA+ADO+SQL的跨表查询。之所以说是大部分，准确来说应该是绝大部分，有一个功能暂时我还做不到的，那就是在分组的时候对字符串进行合并。如果我用的是MySQL，一个group.concat就可以做到了,但问题是SQL in Excel没有这个功能。有些人用一些非常复杂的手段实现这个，但我不确定那个方案是不是只能用在 SQL server上面。 SQL这个东西不同地方用的函数真的很不一样，像是Excel这种明显阉割版的，基本上我已经不抱什么希望了。最坏的打算是把最后那个分组前的记录及输出到一个数组，在数组的层面进行字符串的合并，对这个合并结果做一个字典，然后把之前其它东西已经合并好的东西也输出到数组，分别做两个循环合并到第三个新数组。或许不需要这样，如果我能把已经做好的那个字典作为SQL查询的一部分，我就可以继续以一个左外的方式连接除了这个需要合并字符串的以外的部分了。于是问题的关键似乎又回到了起点。在Excel的VBA里面，我到底能不能把数组作为SQL的数据源呢？这个数组里没有空值。

当我知道VBA里面做汇总可以用字典也可以用SQL以后，我马上觉得我能不能把我之前已经整理好的数组放到SQL里，然后做汇总？但那个时候我没有找到答案明确地告诉我可以这么干，应该怎么操作。通常各种教程里面说到VBA+ADO+SQL的时候，通常都会说怎么把SQL的结果也就是记录集输出到数组，但是从来就没有反过来干。因为别人的脑洞默认是你的SQL是从工作表里面直接取数，而不需要用数组从工作表里面取数，经过某些整理以后再传给SQL，但实际上对我这个半生不熟，只比新手老一点点的人来说，我经常是哪里会用就用哪个，哪个先学到就哪个在前面，前面的部分我已经用数组做完了，接下来的用数组好像有点麻烦，所以我就想后半部分能不能用SQL解决。

很多VBA问题大家经常是数组+字典，SQL+数组也有，但是好像没有先做数组再传入SQL。而之所以要这样，肯定是因为我的SQL水平还不到位。高手是那种你给他任何一个工具，他都能做出你想要的东西的存在，而我是那种做某件事就必须给我恰当的工具，否则我就做不出来的人。情况就有点像某些人写字就必须得用那那支笔，如果不是那支笔的话，他的字就写不漂亮了。在拧螺母这件事上，没有扳手、没有呆头扳手我就很难固定住螺母，但是对高手来说，呆头扳手、活动扳手，甚至你只给他一个钳子，他也依然能把螺母固定好。

最后这个分组字符串，我一定会继续努力的，希望 SQL in Excel有它自己的解决方案。

说到就做到的，感觉非常的美妙。

前天说到我应该可以在VBA上更进一步，把数据整理以及最基本的汇总通过VBA一步搞定，结果我昨天真这么做到了。前天也说到VBA的copy让我非常的烦恼，但在我印象之中，以前我的烦恼并没有这么明显，之所以这样是因为以前粘贴时我不是直接粘贴单元格的内容，而是先把单元格的内容赋值给数组，然后处理数组，然后再贴回单元格。copy看上去很简单，但是在单元格的层面直接赋值好像无论如何都没有任何效果。把所选区域赋值给数组，相对好理解一些，但是要把数组再贴回单元格，相对于python的解决方案来说，VBA就很不人道了。因为我习惯了用python的方风格，所以回到Excel，之所以贴来贴去贴半天都得不到结果，就是因为我在数组复制内容到单元格的时候并没有设定单元格区域。不设定那个区域，永远都是贴了个寂寞。除非你使用Excel自己的那个方案，那个特殊粘贴的方案。我觉得这挺奇怪，既然我用特殊粘贴的方案可以不选定区域，为什么我直接粘贴数组就必须得这样呢？情况就像数组一开始就得设定好，得多大。当然有些数组是不需要事先设定长度，比如如果那个数组传入的数据是一个被打断的字符串。我不知道为什么被打断的字符串就不需要这么干。VBA数组一旦设定了大小，很难改变的。长度如果一开始长了，但最终你没用那么多，我也知道了最终的长度是多少，今天我的解决方法是先把这个二维的数组转置，在保留原数据的基础上限定最终的长度，然后我再把数组转置回来。之所以这么绕，是因为VBA只允许修改最后一个维度的长度。如果你是一个二维的数组。第1个维度是行，第2个维度是列，所以我的方式是行列转置，再转回来，但如果数组是三维的或者多维的，中间的某些要改，显然就不能这样了，但如果你执意要这么干的话，估计可以再建一个数组，设定好目标长度，通过套叠循环的方式把前一个数组的数据赋值到下一个数组里。但是为什么非得这样干呢？如果要限定数据输出的话，你只要限定数据输出的单元格是你最终的范围就可以了。但实际上，像我这种得到了这个数组之后，还得加工，还得在这个基础上汇总，我的数组就不能有空行。比如这一次我要在得出的数组的基础上再进行一个多条件的单汇总，如果我的数组里面有空行，最终得到的字典将出现一个键的内容为空，键值为0的玩意。我也不想这么折腾但是不这么折腾，真的没法玩，当然了，在输出字典的时候依然可以先做一个判断，让键是空的内容不输出。

字典这个概念，我首先是在学习python的时候了解到的。在学习python字典的时候，我就曾经用字典做过字母或者单词的数量计算。现在，如果我要进行前面我说到的多条件单汇总，我就需要用到字典。

至于在VBA里怎么用字典法实现我的目标，下回分解。