我的天

对别人来说校庆就意味着同学聚会，那是一件非常令人兴奋的事，但对我来说，校庆日只是回去看一看，然后再拿些纪念品什么的。看一看也有吸引力，但对我来说最大的吸引力去拿一些可能微不足道的纪念品，尤其是这一次75周年，据说那个纪念品还很有意义的时候。现在的我有严重的社恐，但是我也心动，而且是非常的心动。学校搞什么活动无所谓，有没有合影，有没有照相也无所谓。对我来说，如果我能悄悄地完成一切，比如拿到我想要的纪念品，同时也作为一个路人甲一样参加了里面的活动就足够了，至于那些活动是不是全部都参与了无所谓，对我来说最完美的是我没有被别人认出，我也没有主动认出别人。当我只有一个人的时候，我不会主动去找老师。广附的老师里面有一些我是很感激也很喜欢的，但是具体要说哪一个，具体要说我跟哪个老师的关系比较好，没有。如果那是小学初中或者大学我还知道我要找哪个老师，但高中真的没有。不想主动去认别人也不想被别人认出其中一个很重要的原因是那个时候跟我最熟悉的那些同学要不没空，要不已经出国了，现在在国外，所以我可以怎么办呢？虽然高中三年我在两个不同的班都各自生活学习了一年半，所以跟我有交集的同学起码有100个，但实际上这100个人里面也就只有那么几个是很熟悉的，其他人就只是同学的关系。只是同学，毕业19年没有见面，没有交流，当他们在班的微信群上聊起某些话题的时候，我甚至有时会厌恶，又或者是打不起兴趣，你叫我怎么跟他们唠嗑呢？估计我不会认出他们，但是有些人除外，除外的那些人是我不想主动被认出的。当我们还是同学的时候，就基本上没什么交流，毕业19年以后，期间几乎没有交流，现在你让我见那种好像认识，又好像不认识，甚至连名字都不能马上反应过来的人，这种事情对我来说除了尴尬就是尴尬。对我这个本来就严重社恐的人来说，这简直就是恐到了极点。如果那完全是一个陌生人，没有任何的问题，但一个不完全陌生的陌生人会让我非常拘束。

如果是没有那些纪念品的吸引，估计我不会回去。因为我很害怕被那些不完全陌生的陌生人抓住聊天又或者合影之类。衣着低调是必须的，口罩是必须带上的，打卡点照相的地方我是不会靠近的。我只想静静地转一圈，到处都看一看。如果当年和我最要好的那些同学都还在，而且会出现的话，我或许会对这个感兴趣，但现在这不可能发生。高中和大学还都存在，会继续有校庆，继续有同学聚会什么的，小学跟初中，基本上这个事情不会发生了。小学还是那个小学，他但校名改了，初中的原址仍然是一间学校，但再也不是初中了。

我不知道我到底是怎么一回事，因为我好像根本没有一个同学的关系是可以一直维持下来的。一起上学的时候都还好，但毕业以后就几乎完全断绝了关系，没有往来，再次见面的时候会让我感到紧张和恐惧。

可能以后的人再也不知道超市是什么，对他们来说可能根本没有机会见识那些超大范围、超级多品种的大卖场。绝大多数人的买买买都是通过网上解决、送货到家，躺在家里动动手指就逛遍世界是唯一的方式。

小时候我一点都不喜欢传统市场，因为那意味着有很多人，地都是湿哒哒的，而且脏兮兮的，污水横流是必然的。有固定摊位，也有移动的走鬼。有些档口会进行现场宰杀，无论是固定式的还是移动式的。虽然我不觉得那有多残忍，但是汁水飞溅总会让我觉得卫生很糟糕。卖东西的人很多，买东西的人很多，到处都是吆喝声。那个时候我更加要抓紧大人的手，又或者拉着他们的衣服，因为可能大人正在挑选的某些东西，没有到手腾出来抓住我的小手。当我知道大人去市场纯粹是为了买菜，而不是为了闲逛的时候，我通常没什么兴趣跟着去。正是因为有这样的反感，所以外婆去买菜的时候我不会去，但是当外公要到其它地方闲逛的时候，如果我知道我一定会跟着去。因为我知道他不会去市场，不会去人很多的地方。去人很多的市场，另外一个让我觉得忐忑的是我会不会跟大人走散呢？小时候我的长辈们经常恐吓我说街上有很多拿着个大袋子的人，专门用来抓小孩，把小孩抓了然后就拿去卖。所以小时候的我很害怕那些人，但实际上他们只是拾荒者，拿着个大袋子捡可以用来卖的东西维持生计而已。现在基本上不会看到这种人，起码在广州绝大多数情况之下都不会再看到。如果真的让你碰到了那些人，估计那不是一个普通的拾荒者，而是一个有精神问题的人。在我小的时候，那种拿着大袋子的乞丐模样的人的确存在，而且数量不少，正是因为这样，大人们才会给我编出那样的恐吓信息。

大型的超市跟传统的市场有非常大的区别，在大型超市出现之前百货商场已经是我觉得最厉害最豪华的地方了。那里很大、有很多东西卖，而且还有空调。那些名字叫做购物中心的通常都要比百货商店强很多，那些叫商场的也肯定要比商店大很多。在广州第一次见超市估计是天河城-1层的吉之岛，那个叫未来街市的地方。无论是百货商店、百货商场还是购物中心，你要买某件东西，选好了以后是需要售货员给你开一张票，然后去缴费，接着才能拿货，但是在吉之岛里，在那个叫做未来街市的地方，货架就摆在那里，你可以随便拿随便挑，最后到一个结账的地方一次性付款。这样的话，你根本不需要为商品先开票。因为有某些设备，所以当你有不轨企图，想蒙混过关夹带商品的时候，报警器会响起。第一次吃寿司，估计就是亲戚在吉之岛买的。后来出现了万客隆、好又多、家乐福。百佳、华润万家等等大型超市。售卖的形式跟吉之岛类似，但是卖场更大，种类更多。现在这些大型超市正在日益衰落，因为网上购物的崛起。网购不需要大卖场，不需要大租金，也不需要很多服务人员，因为这些费用都不需要，所以在商品价格就可以定得更有优势。日积月累，从前那些我经常去、我非常喜欢去的大型超市慢慢地没落、逐渐消失。

我挺舍不得的。

上一次来大姨妈已经是3月份的事。打诺雷得的6个月里，大姨妈是肯定不会来的，接下来是唯散宁。11月2日下班的时候，我跟往常一样走下楼梯，像以前那样摸了一摸乳房的外侧，居然弱弱地感觉到有点胀，那种大姨妈快来了之前的那种胀。所以这是不是意味着可能子宫内膜增厚了，会来大姨妈？在打最后一针诺雷得之前做的那个阴超显示我的子宫内膜已经测不出厚度了，只有一条线。这几个月一直在吃唯散宁，但是子宫内膜依旧没有打诺雷得的时候那么变态，完全不增厚而且还缩小。诺雷得那个东西不仅仅把子宫内膜变薄了，整个子宫的体积也缩小了。我不知道现在子宫的大小还有子宫内膜到底怎么样，7月底做过那次阴超以后，我就再也没有做过了。医生说3~6个月要进行B超复查，所以我应该11月就去做复查，还是挺到下一个月呢？

乳房有点胀这个问题我也说不准是意味着姨妈快要来了，所以乳房胀还是说因为唯散宁实际上是一种孕激素，所以理论上那个东西是会对乳腺有影响的。唯散宁用孕激素控制住雌激素，制造出一种假怀孕的状态。怀孕的时候乳房增大增生很正常，所以当第二次去开药医生依旧是开一个月的唯散宁和半个月的散结镇痛胶囊以后，我妈就觉得那个散结镇痛胶囊虽然写是写针对子宫内膜异位症的，但实际上可能散的那种主要针对乳腺。

在巧囊之前我根本不知道有这种东西，也不知道有卵巢囊肿，当然也不会去在意什么子宫内膜癌，乳腺癌之类的玩意，总觉得那些东西跟我半毛钱关系都没有，但是当我自己真的遇到了以后，我觉得到处都是坑。抑制住雌激素，基本上就把子宫卵巢之类的这些东西控制住了，但用什么东西去抑制雌激素呢？诺雷得是促雌激素生成素的类似物，唯散宁则是孕激素。孕激素的使用非常容易导致乳腺方面的各种问题。之前我觉得女人的问题大概都能在妇科解决，但实际上妇科解决的只是子宫卵巢内的问题，胸以上乳房那方面的问题应该去找乳腺外科。于是我就有了这么个疑问，妇科的人要控制住病情，就得控制住雌激素，会不会乳腺外科的人要控制住病情，就得控制住孕激素呢？一定程度上，在各自的内分泌治疗的时候，二者是不是有点矛盾？如果把雌激素跟孕激素都控制住，那么我感觉女人就类似于是绝经状态。绝经状态打诺雷得的时候我算是体验过了。毫无征兆的潮热、睡眠非常浅，很容易就醒过来，非常不容易才能睡着，醒过来了以后人还容易胡思乱想，于是莫名其妙就有可能进入抑郁状态了。

会不会有些女人为了不想被这些东西烦恼，所以选择主动切除乳腺、主动切除子宫及附件呢？对某些有乳腺癌家族病史的人来说，她们需要持续关注，非常有可能得在很年轻的时候就主动选择切除乳房，但我觉得对绝大多数的女人来说，子宫卵巢是非保不可的玩意，有些人甚至会为了保住子宫、用自己的命去赌博。

没有了乳房、没有了子宫及附件，女人大概就不能称之为女人了。这些东西真的让女人比男人多很多烦恼。

睡觉之前用脑过度就会导致大脑过于活跃，躺在床上就会睡不着了。通常来说我不是这种人，但是每个月的固定时间会是个例外，比如每个月的最后一天。对别人来说，每个月的最后一天就是一天，没什么特别，如果遇到什么五一十一元旦之类的，或许还有点意义，因为那一天意味着马上要放假了，所以可能提前就请假，又或者是一直堵在去某个地方的路上。对我来说每个月的最后一天是个死磕的日子，因为所有数据都得等那一天的作业结束，然后进行汇总，接着出各种报表，做各种账本，打印各种凭证。这种月末焦虑症，我已经不记得到底持续了多长时间，基本可以这么说，从来就没有缓解过，只有严重一点的时候和没那么严重的时候。当所有事情都落在我一个人肩膀上的时候，我的焦虑症会严重一些，当我觉得还有些责任可以分担一下，有些活儿我必须留给别人做一下的时候，可能我知道自己手头上没有那么多非如此不可，我会稍微好过一些。

10月的最后一天有点特殊，因为11月1日开始，另外一个统计就要去出差检查别人了。所以她那份工作我也得全部做了，虽然名字依然不是我签。虽然我已经在叫她在走之前把可以提前做的都提前做了，但是当我接手那摊东西的时候，我才意识到有些东西是我预料不到的。之所以会存在这种问题也说不准到底是我太懒惰没有起到监督的作用，还是说我过于信任导致我根本不会想象得到那种低级的问题居然会发生。这种事情已经不是第一次，之前已经有同事跟我反映遇到了这种事情。这种东西完全不是能力的问题，出现这种状况会让人直接觉得这是态度有问题。你可以理解为那是粗心大意，但也可以理解为类似得过且过以应付式完成需要完成的事情。怎么去判断某些事情到底行不行？我会问自己的良心，我过意得去吗？毕竟这些东西摆出来给别人检查，不仅仅代表你个人，而是代表了这个单位。虽然数据是没有错误的，但是那种表现形式会让别人觉得非常随意。这种非常随意我们已经不是第一次见识到。在第一次宿舍检查的时候，我们就见过非常随意到底是怎么一个状态。跟现在我们遇到工作上的问题是一样的，我们无论如何都料想不出，居然可以随意到这种程度。

人已经出去检查了，我遇到的事情也只能我尽可能补救，但要打印出一个高仿的手写签名实在是一件非常难的事，起码对我来说非常的难。一直以来我都有攻克这个的想法，我也尝试了很多方式，只能在必要的时候凑合一下，但是在不是非如此不可的情况之下，我不会这么干。现在直接就把我逼上了梁山。我不得不折腾了一番，虽然效果不太好。最后我还是找到了解决方案，因为在出差之前她先签的一张空白表放在桌面，其实没跟我说，但我整理其它的时候发现了，所以我可以先复印那张工空白表，然偶再在上面打印数据。复印出来的效果远远要比我折腾一大轮制作电子手工签名来得好。

虽然很折腾，但总算某个烦心的问题算是暂时解决了。

昨天说到当我想用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