![](https://img-blog.csdnimg.cn/20201014180756918.png?x-oss-process=image/resize,m_fixed,h_64,w_64)
VBA
kbrskin
这个作者很懒,什么都没留下…
展开
-
csv转xls/xlsx
1.csv转xlsChDir "C:\Users\Administrator\Desktop\新建文件夹" '切换到文件夹,貌似可删除,后面都用的绝对路径Dim sDir As String Dim curdir As String curdir = "C:\Users\Administrator\Desktop\新建文件夹" sDir = Dir(curdir & "\*.csv") While Len(sDir) Workbo转载 2020-08-24 17:50:21 · 743 阅读 · 0 评论 -
VBA代码记录4 - 散点图
目录需求版本一需求表格内某两列的数据分别作为X轴和Y轴,创建带直线与数据标记的散点图版本一Sub 散点图() For i = 2 To Worksheets.Count '遍历需要创建散点图的Sheet Sheets(i).Select lastrow = ActiveSheet.UsedRange.Rows.Count For j =原创 2020-07-17 19:38:11 · 4159 阅读 · 0 评论 -
VBA代码记录3
需求1. 根据一定条件进行筛选,把筛选的结果放到新的工作表中2. 根据筛选条件命名工作表3. 删除空表4.删除第六列、第七列都是-99的行代码Sub proc() '定义三个数组 lastrow = Sheet1.Cells(Rows.Count, 2).End(xlUp).Row For c = 2 To 3 Set dic = CreateObject("Scripting.Dictionary") '创建字典 .原创 2020-07-13 11:06:55 · 389 阅读 · 0 评论 -
VBA代码记录1
需求:1.根据一定条件进行筛选,把筛选的结果放到新的工作表中2.根据筛选条件命名工作表3.删除空表4.删除第六列、第七列都是-99的行第一次用VBA,现查现用,Sub 宏1()' 宏1 宏 0 1 Selection.AutoFilter //开启筛选 ActiveSheet.Range("$A$1:$N$65536").AutoFilt...原创 2019-09-18 09:02:04 · 543 阅读 · 0 评论 -
VBA代码记录2
该段代码踩过的坑:数组定义及初始化for循环,如果step为1,可省略不写;如果step为-1,必须写。Sub 宏1()'' 宏1 宏' For s = 1 To ActiveWorkbook.Worksheets.Count //所有工作表循环 ActiveWorkbook.Worksheets(s).Select ActiveShee...原创 2019-09-25 09:14:53 · 312 阅读 · 0 评论