qq_30687601-CSDN博客

转载 VBA 复制同文件夹下多工作簿中同名工作表分别粘贴至同一工作簿的不同工作表

学习日志复制指定目录下excel工作簿中同名工作表，该代码将在相同目录下创建汇总工作簿，各工作簿中同名工作表将被分别复制到汇总工作簿的不同表中（汇总工作簿中各工作表以分工作簿名命名）。所有要汇总的工作簿在同一个文件夹中，这里以后缀为.xlsx为例；ALL excelfilesSub allexclefiles() Dim path As String, filename As St...

2019-02-10 20:41:56 9568

转载 VBA 合并同文件夹下多工作簿中同名工作表到一工作簿一工作表

学习日志批量合并excel工作簿中同名工作表，适用条件：1、所有要汇总的工作簿在同一个文件夹中，这里以后缀为.xlsx为例；2、需要合并的工作表名称相同（如： “sheet1”）,且数据字段一样（如：A列表示序号，B列表示姓名，C列表示月工资等）；3、需要合并的数据所在区域起始行列一致（如：有相同的表头）ALL IN ONEOption ExplicitSub allinone()...

2019-02-10 20:27:05 11737 5

转载学习日志全民一起VBA提高篇第十二回同是藏身文件夹相逢何必问姓名

学习日志全民一起VBA提高篇第十二回同是藏身文件夹相逢何必问姓名相关知识点 Dim path As String, filename As String path = "C:\12" filename = Dir(path & "\*.xlsx") Do While filename <> "" 对每个文件的处理 ...

2019-02-10 19:23:03 454

转载学习日志全民一起VBA提高篇第十一回文本文件逐行读取，输入输出操作自如

学习日志全民一起VBA提高篇第十一回文本文件逐行读取，输入输出操作自如相关知识点 open fullfilename for input as #代号 do while not eof(代号) line input #代号，字符串变量 loop close #代号 open fullfilename for output as #代...

2019-02-10 19:22:01 637

转载学习日志全民一起VBA提高篇第十回 split拆解字符串，动态数组接受结果集

学习日志全民一起VBA提高篇第十回 split拆解字符串，动态数组接受结果集相关知识点1、split(待拆分字符,分隔符字符) 将字符串按指定分隔符拆分为多个子串，需用数组接受结果集（动态数组）; 再用for 循环将每个元素赋值给单元格例如： dim a() as string,i% a=split(s,&quot;,&quot;) ...

2019-02-10 18:46:32 854

转载学习日志全民一起VBA提高篇第九回万千数据划归同组，排列有序统一命名

学习日志全民一起VBA提高篇第九回万千数据划归同组，排列有序统一命名相关知识点1、dim a(9) as long 这样定义的数组有10个元素从 a(0)开始到a(9) dim a(3 to 6) 从a(3) 到 a(6) 对于数组中每个元素循环时可用 for i = lbound(a) to upbound(a) next i 公元2019...

2019-02-10 18:46:08 365

转载学习日志全民一起VBA提高篇第八回文本字符也是数字，编码函数两界穿梭

学习日志全民一起VBA提高篇第八回文本字符也是数字，编码函数两界穿梭相关知识点1、excel工作表中，只能存放1900年以后的日期，所以遇到之前日期，可以先转换为字符串再保存到单元格中。2、asc() 返回字符对应的编码如 asc("A")=653、chr() 返回数字对应的字符如 chr(65)="A"4、chr(13)回车符 chr(10) 换行符将日期转换为字符串，...

2019-02-10 18:45:31 427

转载学习日志全民一起VBA提高篇第七回数据原形轻松识破四舍五入务必当心

学习日志全民一起VBA提高篇第七回数据原形轻松识破四舍五入务必当心相关知识点一、判断数据类型isdate() 判断是否为日期isnumeric() 判断是否为数字typename() 判断变量类型二、转换数据类型cint()clng()cstr()ccur()cdate()cbool()cdbl()csng()...

2019-02-10 18:45:16 444

转载学习日志全民一起VBA提高篇第六回 GOTO语句不走寻常路，EXIT跳出轮回圈

学习日志全民一起VBA提高篇第六回 GOTO语句不走寻常路，EXIT跳出轮回圈相关知识点'exit do ; exit for ; exit sub ; exit function 'exit 只能跳出它所在的那一层循环'goto 可以跳转到同一过程（函数）内的任意一行退出循环 exitOption Explicit'用逻辑变量控制流程Sub...

2019-02-10 18:44:59 831

转载学习日志全民一起VBA提高篇第五回逻辑终将分真伪判断实则看是非

学习日志全民一起VBA提高篇第五回逻辑终将分真伪判断实则看是非相关知识点dim a as boolean城市涂色Option ExplicitSub paintcities() Dim paint As Boolean, i&amp; paint = False i = 4 Do While Trim(Ce...

2019-02-10 18:44:40 418

转载学习日志全民一起VBA提高篇第四回日期类型穿梭岁月时间函数算尽光阴

学习日志全民一起VBA提高篇第四回日期类型穿梭岁月时间函数算尽光阴相关知识点一、获取当前系统时间 1、 date() 或date 可获得日期如 2019/2/1 2、 time() 或time 可获得时间如 16:21:30 3、 now() 或now 如 2019/2/1 16:21:30二、时间数据解析 year()、month()、day...

2019-02-10 18:44:20 352

转载学习日志全民一起VBA提高篇第三回莫让电脑猜大小巧用符号标类型

学习日志全民一起VBA提高篇第三回莫让电脑猜大小巧用符号标类型相关知识点'dim a&amp;amp;amp; a as long 4字节'dim a% a as integer 2字节'dim a$ a as string'dim a@ a as currency 8字节货币类型精确四位小数点'dim a# a as double 8字节不够精确'd...

2019-02-10 18:44:00 260

海豚