qqq1256

摘要： '收集各个excel文件的首个sheet，并组成包含这些sheet的新excel文件 Sub 合并() Application.ScreenUpdating = False With Application.FileDialog(msoFileDialogFolderPicker) .Initial 阅读全文

摘要： 1、 workbook表示一个工作簿 workbooks表示多个工作簿 workbooks（2）表示指定位置的工作簿 workbooks（”名称“）表示指定名称的工作簿 thisworkbook表示代码所在的工作簿 2、工作簿常用属性 fullname=path+name 3、创建工作簿和创建已有工 阅读全文

摘要： 0、for each j in worksheets next for each等同于下面这两句： 1、提取所有sheet的名称 for each j next 不把汇总表名称提取出来，就加一个if不，才能执行语句排除一下 如果名称不是汇总才让提取 2、 删除工作表，只保留其中一个sheet。使用i 阅读全文

摘要： 1、自定义函数，和自定义sub一致。。。。。。。不过函数名类似于f（X），下面给f（X）赋值 有返回值的代码往往采用函数，没有返回值的采用sub来编写 先在函数中设置好函数的式子，然后在sub中调用函数（），函数有输入的，也给输入 【】如果没有在sub中明确是哪个sheet的单元格，代码就会默认运行 阅读全文

摘要： 1、对象 2、给变量赋值对象的格式 给数据变量赋值要使用let，但是可以省略 给对象变量赋值要使用set，不准省略 从这个地方就相当于用一个变量代表对象，起到一个代词的作用，之后就不用每次都把繁复的对象一次次重写 3、分过程写各个子过程，之后通过呼叫来在一个sub里面汇总使用 【】第一个表格被汇总表 阅读全文

摘要： 1、 表用sheets表示 2、选中工作表 sheets（”名称“） 单张工作表的写法，指定名称 sheets（数） 单张工作表的写法，指定位置 sheets（”名称“）.select 选中某一个表，是这个对象的函数 sheets.select 选中所有工作表 3、工作表重命名 sheets（”名称 阅读全文

摘要： 1、do while 循环 while只要判断条件真假，只要条件为真就一直执行，相当于射线。 for循环，有明确的起点和终点，是线段 2-1、少数民族加五分表格 Sub 加分()Dim i i = 2 Do While Range("A" & i) <> "" If Range("b" & i) < 阅读全文

摘要： （一）变量Dim和常量Const 定义变量格式 Dim 变量名 Dim i 定义变量i 定义常量格式 Const 常量名 Const a 定义常量a 【】名称不能数字开头 【】名称大小写无差异，看个人习惯 （二）数据 数值型的不加双引号，非数值型的都要加双引号代表是一个字符 sub 程序名（） en 阅读全文

摘要： 第一项：绝对引用下的自动化 （一）、日报表从其他报表上搬数据： 简介：一般一个数据源报表vlookup过去，或者数据源先过一遍数据透视再vlookup过去。 具体步骤： 1开发工具 录制宏（千万不可点击相对引用），命名为“自动化报表”，添加快捷键ctrl+q 2在报表中，使用vlookup查找源数据 阅读全文

摘要： 第一季 000、环境设置 1\自定义功能区启用开发工具+信任中心启用所有宏 2\下载wps的vba插件，才能使用vba编辑器，不然只有wps编辑器 001、一个excel里面批量创建工作表 比如建立一个标有每天日期的工作表组 1、a1单元格输入“标题”，第一列其余单元格输入要插入的内容比如1月1日到 阅读全文