大家好！
如果你是文职类工作，可能会遇到下面这种情况：
经常面对各种各样的表格，并且很多都是制式的，里边又充满个各种各样的格式，其中就有今天的主角儿：合并单元格。
而你的工作看似也不复杂，就是把合并单元格中显示不全的内容，通过调整单元格的大小来显示出来。
这种痛苦，只有手动调整过的人能懂。
所以，通过今天的案例讲解，将解决你的烦恼，文末视频对这个过程做了详细的讲解演示，希望对你有帮助。
以下是VBA代码。详细解析请看文末的视频。
调整合并单元格行高：
1234567891011121314151617181920212223242526272829303132333435363738Sub 调整合并单元格行高() Dim cel As Range Dim rng As Range Dim n, r, c Dim mergeWidth, newHeight, celWidth Set rng = Range("B4") For Each cel In rng If cel.MergeCells Then ...
大家好！今天回答一位粉丝朋友的提问。
问题是：将多个工作簿中的所有工作表合并汇总，要求名称相同的工作表内容要合并在一起，名称不同的要单独作为一个工作表。
为此，我模拟了一份数据，结构如下图：
这个问题，其实是我之前分享的【案例011合并工作表】和【案例013汇总工作簿】的融合版。方法非常的相似。其实对于工作簿和工作表的合并与拆分的操作，之前的案例基本都分享完了。只要融会贯通，举一反三，相信这种问题将迎刃而解。
效果就不演示了，以下是VBA代码。详细解析请看文末的视频。
123456789101112131415161718192021222324252627282930313233343536Option ExplicitSub 汇总合并工作簿() Dim shtName Dim sht As Worksheet For Each sht In ThisWorkbook.Worksheets shtName = shtName & "," & sht.Name Next Dim filePath$, fi ...
大家好！
上一篇内容分享了，用VBA合并单元格的两个方法。本期就来看一下如何取消合并的单元格。
同样的，WPS内置了一键取消合并单元格并填充内容的功能，而Excel用户只能流下羡慕的泪水。
这次介绍两个方法，来实现和WPS一模一样的功能。
第一个方法：使用录制宏的操作，把平时手动取消合并的操作记录下来，并对代码加以修改，来达到目的。第二个方法：使用的循环单元格判断是否合并的方法，其中有几个常用的属性是我们必须要了解掌握的。
两个方法都比较简单。大家可以根据实际情况，酌情选择适用的方法。
以下是VBA代码。详细解析请看文末的视频。
方法一：1234567Sub 宏2() Range("a1:a20").UnMerge Range("a1:a20").SpecialCells(xlCellTypeBlanks).FormulaR1C1 = "=R[-1]C" Range("a1:a20").Value = Range("a1:a20").ValueEnd Sub
方法二 ...
大家好！这次分享的是非常经典的案例：合并工作簿。
相信大家已经很熟悉这个问题了，就是把多个工作簿里的工作表合并到同一个sheet里。
这次同样分享两个方法，以下是VBA代码。详细解析请看文末的视频。
自定义函数：
1234567891011121314151617Private Function filelist(folderspec, Optional pstr = "*.txt") On Error GoTo errline Dim fs, f, f1, fc, i, farr Set fs = CreateObject("Scripting.FileSystemObject") Set f = fs.GetFolder(folderspec) Set fc = f.Files ReDim farr(1 To fc.Count) For Each f1 In fc If f1.Name Like pstr And Not f1.Name Like "*~$*" T ...
大家好！书接上文，继续聊一聊拆分工作表的第二个方法。
众所周知，字典中的值不仅可以是数字、字符串，还可以是数组和对象！
上一个方法是将数组装到了字典里，这第二个方法想必大家已经猜到了，就是把对象装进字典里。
首先简单介绍一下Union函数的使用方法。Union：返回两个或多个区域的合并区域。
语法： Union(Arg1, Arg2, Arg3, Arg4, Arg5, Arg6, Arg7, Arg8, Arg9, Arg10, Arg11, Arg12, Arg13, Arg14, Arg15, Arg16, Arg17, Arg18, Arg19, Arg20, Arg21, Arg22, Arg23, Arg24, Arg25, Arg26, Arg27, Arg28, Arg29, Arg30) AS Range参数： Arg1 必需 Range类型。 Arg2 必需 Range类型。 Arg3– Arg30 可选 Variant类型。返回： Range类型。另外一点需要强调的是，VBA中给对象变量赋值使用Set，并且Set不能省略。
以下是VBA代码。 ...
大家好！如何按照表中的某一列，拆分成独立的Sheet? 如下：
这是一个特别常见常用的问题，本期分享本人用的最多的两个方法中的第一个。
因为确实不太容易理解，所以分为两部分。
这个方法非常的实用，在其他地方也可以发挥很大的作用，所以墙裂推荐大家掌握！
以下是VBA代码。详细解析请看文末的视频。
12345678910111213141516171819202122232425262728293031323334353637383940Sub 数组装进字典() Dim i, j, k Dim ar, tmp() Dim d As Object, kw$ Set d = CreateObject("Scripting.Dictionary") 'd.CompareMode = vbTextCompare '不区分大小写 ar = Range("a1:e" & [a65536].End(3).Row) Dim irow For i = 2 To UBound(ar) ...
导语：“正所谓伟大的董事会创造伟大的公司。”董事会作为公司内部治理结构的核心，是公司治理制度完善的关键。无论采用什么样的公司治理模式，董事会的质量都是决定公司治理水准高低的核心要素。企业能否具有活力、能够在竞争中脱颖而出，关键在于董事会。正确处理好董事会与各层之间的关系，不断完善符合公司自身经营特点的董事会运行机制，是一个企业得以长久屹立之根本所在。
1、董事会的基本解读？答： 在现代法人治理结构体系中，董事会是链接股东和管理层的“桥梁”，是其他治理机制发挥作用的重要“平台”，也是基础的公司治理机制的内部控制系统。所以，董事会的质量是决定一个公司未来业绩好坏和股权回报的重要指标。董事会作为一个企业的经营决策机构，主要由董事们组成。
除了董事，董事会还有一些附属机构或者岗位，比如董事会秘书、董事会专业委员会，这些机构与岗位都由董事会组建或者任命，辅助董事会开展具体决策与经营活动，对董事会负责。
2、董事会在公司治理中的地位以及功能？答： 在整个公司治理内部机制中，董事会治理居于核心地位。作为股东利益代表的董事会具有双重功能：一方面作为经营者要负责公司的重大经营决策；制定政策和制度；对全体 ...
XX工程招投标管理情况专项审计调查审计结果根据《中华人民共和国审计法》的规定，XX审计X于202X年4月1日至202X年8月30日，对W建设有限公司（以下简称“W公司”）、XX历史文化街区和历史建筑保护管理中心（以下简称“区历保办”）等14家单位工程招投标管理情况进行了专项审计调查，同时延伸审计XX科技经济开发建设有限公司等27家建设主体下属单位。现将审计结果公告如下：
一、基本情况及审计评价2018年6月国家发改委第16号令《必须招标的工程项目规定》正式实施，明确施工单项合同估算价在400万元人民币以上；重要设备、材料等货物的采购，单项合同估算价在200万元人民币以上；勘察、设计、监理等服务的采购，单项合同估算价在100万元人民币以上的项目必须招标。《规定》实施已近两年时间，为了解国家重要政策在我区落实情况，X审计X对201X年6月至202X年3月XX工程招投标管理情况进行专项审计调查。
本次调查抽查工程项目共计354个（包含施工类、采购类及勘察、设计、监理等服务类），其中限额以上80个，限额以下274个。354个工程项目中，交易方式为公开招标项目187个，其中限额以上71个、限额以 ...
一般情况下，只有大型企业、财团或权贵才有资格和能力创办私营高校，也就是有营业执照的私营非盈利机构。
这类高校的内审也应像企业一样，也可以从财务视角出发，虽说它是非盈利机构，但企业经营的根本目的终归离不开利润。
哪怕初衷是为了其他，如果一直赔钱，很难持续经营，最起码也要自负盈亏！
本文只介绍高校内审可关注的风险点：每一个点都可以成为一项大型专项审计。
一、收入1.学杂费：学费、课后服务费分析和评估学费的收取率和欠费数据，分析欠费原因？
确认和评估助学贷款办理的及时性和完整性。
服务费，包括各类考证培训、对外的社会成人课堂、专业技能培训等收入的完整性。
教师对外的各种服务性收费一定要经学校授权，私自学校更是要求严格，除非劳动合同内有约定。
2.住宿费主要查看空铺率、收费率，查验原因和评估现状。
3.政府补贴、接收捐赠和税收优惠能享受的税收优惠一定要申请享受，审计人员需要查看下当地的税收优惠政策有哪些，对比看一下。
私营非盈利机构一般能享受一定的税收优惠，主要税种：所得税、印花税、土地使用税、房产税。
至于政策补贴和接收捐赠，业务量不会太大，要么是当地政策的问题，要么是资质的问题。重点看是否 ...
1建筑防火一、土建防火封堵不到位1、给水管道穿越楼板、墙体部位未封堵。
2、电气管、桥架穿越越楼板、墙体部位未封堵。
3、穿越平层及竖向的桥架内未采用防火封堵。
4、通风、空调、防排烟管道越楼板、墙体部位未封堵。
5、土建预留洞口后开孔未封堵。
6、土建风道未封堵。
7、玻璃幕墙与楼板隔墙处的缝隙未用不燃材料填充密实。
8、防火墙未到顶。
9、防火分区未形成。
二、土建防火门1、防火门安装反向，未开向疏散方向。
2、封闭楼梯间及防烟楼梯间开设了非疏散门、洞。
3、防火门检测报告与实体不符，防火门身份标示未张贴。
4、闭门器、顺序器未安装。
5、应设置单向逃生部位处未设置相应的开启装置。
6、未按设计要求安装防火门。
三、消防车道1、车道宽度不能满足规范要求。
2、消防扑救面未形成。
3、环形车道未形成或回车场未形成。
4、消防扑救面有高大树木或有障碍物。
四、正压送风防烟楼梯间无前室、或消防电梯合用前室未设计正压送风系统。
五、防火卷帘1、导轨与墙体及柱体之间未封堵。
2、卷顶部未完全封堵。
3、双轨卷帘一侧未封堵到顶，形成单轨卷帘。
4、穿越卷帘包厢的管道及桥架未封堵。
5、疏散通道 ...
