大家好！ 如果你是文职类工作，可能会遇到下面这种情况： 经常面对各种各样的表格，并且很多都是制式的，里边又充满个各种各样的格式，其中就有今天的主角儿：合并单元格。 而你的工作看似也不复杂，就是把合并单元格中显示不全的内容，通过调整单元格的大小来显示出来。 这种痛苦，只有手动调整过的人能懂。 所以，通过今天的案例讲解，将解决你的烦恼，文末视频对这个过程做了详细的讲解演示，希望对你有帮助。 以下是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 ...

大家好！书接上文，继续聊一聊拆分工作表的第二个方法。 众所周知，字典中的值不仅可以是数字、字符串，还可以是数组和对象！ 上一个方法是将数组装到了字典里，这第二个方法想必大家已经猜到了，就是把对象装进字典里。 首先简单介绍一下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代码。 ...

大家好！ 上一篇内容分享了，用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 方法二 ...

大家好！今天我们分享一个有关VBA自动填充表单的案例，帮助大家简化表单填写的过程，提高工作效率。 我们经常需要填写大量重复的表单，例如报销单、数据输入表格等，并且每个表单都有各自的字段需要填写。手动逐个填写这些表单既耗时又容易出错。 使用VBA自动填充表单可以极大地简化这一过程，让我们能够更专注于其他重要的工作。 譬如说，现在有两个表格，一个是人员清单，另一个的表单。 现在要做的是，将人员清单中的每一行信息，填到表单里，并导出为一个单独的工作簿。 下面是VBA的代码分享，你也可以观看下方的视频解析： 方法一：1234567891011121314151617181920212223Sub 表格填充() Dim i, j, k Dim xinXiSht As Worksheet Dim qingDanSht As Worksheet Set xinXiSht = ThisWorkbook.Worksheets("信息卡") Set qingDanSht = ThisWorkbook.Worksheets("人员清单" ...

审计笔记14.0固定资产 一、固定资产的准备工作先容我唠叨几句…固定资产 一般情况下的审计应对主要包括： （1）监盘； （2） 检查 重大资产 购置 协议、发票、设备启用单据等入账依据； （3）检查资产 产权证明（如房产证、车俩行驶证） ； （4）检查是否存在租入资产、专用借款利息资本化等情况； （5）重新计算折旧计提及分摊情况等。 BUT,由于需要复（dai）核（bian）附注，固定资产对比其他科目，比较恶心的一个点是需要披露发生额…大概披露格式长这样： 所以，从结果出发，先来介绍下固定资产常见的几个大坑… 1. 内控缺陷见票做账…这个可以说是最坑的一个，详细点说就是来了发票才确认资产，没有发票用包浆了也做账…说白了，这种方式下并没有按照准则以资产达到预计可使用状态作为转固判断标准，进而衍生出如下问题 ①： 比如买了台设备，供应商按照付款金额上年开了80%金额的发票，本年开了20%金额的发票，然后卡片里就会很神奇的出现上年0.8台设备和本年0.2台设备的魔幻卡片…既不完整还跨期…你说闹心不闹心… ②：发票时点可能与实际达到预计可使用时点存在重大时间差，就导致了折旧及期 ...

案例1、针对国有资产管理不善，固定资产底数不清问题 整改措施： 一是修订《医院国有资产管理办法》，规范国有资产的管理。二是委托北京XX会计师事务所清查医院国有资产，建立医院国有资产台账，对本部2006年至2020年固定资产明细账进行梳理并查阅凭证，对资产的名称、规格、型号、数量等信息进行录入。目前，共梳理出资产数目8.8万条，已核对盘点2万余条。三是修订《医院公有住房管理规定》，成立专项工作小组，全面清查和管理公有住房。 案例2、针对招投标程序不规范的问题 整改措施： 为进一步规范医院招标采购活动，提高采购质量和效率，避免风险点过于集中，医院实施“招、采、用”分离，成立招标采购办公室，制定《XX省人民医院采购管理规定（试行）》、《XX省人民医院招标采购管理规定实施细则（试行）》，规范招标采购流程。出现投标单位有相关利益联系的，依法依规废除投标资格且上报相关管理部门。合理制定项目参数，确保招投标工作公平公正。 案例3、针对干部违规兼职取酬问题 整改措施： 一是立行立改，疫控中心违规兼职的11名干部全部辞去兼任职务回原单位工作，领取的兼职报酬、奖金、津贴等额外收入均已上缴至国库或本单位 ...

序号 存在的主要问题 违反的规范条文 条文类型 专业类型 1 防火分区的疏散楼梯均合用，未设置独立的安全出口。 《建筑设计防火规范》GB50016-2014(2018年版)第5.5.8条 强制性条文 建筑 2 设备用房的门直接开向封闭楼梯间或防烟楼梯间前室。 《建筑设计防火规范》GB50016-2014(2018年版)第6.4.2.2条和6.4.3.5条 强制性条文 建筑 3 地下室设备区的安全出口与汽车坡道间未采取防火分隔措施；汽车疏散出口与人员安全出口未分开设置。 《汽车库、修车库、停车场设计防火规范》GB 50067-2014第6.0.1条 强制性条文 建筑 4 固定窗未设置在楼梯间顶部。 《建筑防烟排烟系统技术标准》GB51251-2017第3.3.11条 强制性条文 建筑 5 部分房间的疏散门未向疏散方向开启。 《建筑设计防火规范》GB50016-2014(2018年版)第6.4.11条 强制性条文 建筑 6 安全出口的疏散宽度小于设计疏散宽度。 《建筑设计防火规范》GB50016-2014（2018年版）第5.5.21条 强制性条文 建筑 ...

高校审计发现共性问题清单