![](https://img-blog.csdnimg.cn/20201014180756930.png?x-oss-process=image/resize,m_fixed,h_64,w_64)
宏
毛维
7ed13a4a-35d9-457f-8102-715d41bae08b
展开
-
【将一个xls文件内的第一个sheet的数据(其中第一行是列名)按照指定行数进行切割,并生成新的xls文件进行保存,用宏代码实现】
【代码】【将一个xls文件内的第一个sheet的数据(其中第一行是列名)按照指定行数进行切割,并生成新的xls文件进行保存,用宏代码实现】原创 2023-05-15 14:31:06 · 199 阅读 · 0 评论 -
宏/VBA批量将文件夹下的csv文件转换成xlsx
Sub change_CSV_to_XLSX() ChDir "C:\Users\Administrator\Desktop\新建文件夹" Dim sDir As String Dim result_dir As String result_dir = "C:\Users\Administrator\Desktop\新建文件夹" sDir = Dir(result_dir & "\*.csv") While Len(sDir) Workbooks.Open Filename:=res.原创 2021-10-20 22:39:05 · 1431 阅读 · 0 评论 -
解决原始文件(包含2个标题行第一行是合并单元格数据内容)根据行数切割失败办法
解决原始文件(包含2个标题列第一列是合并单元格数据内容)根据行数切割失败办法暂时解决办法如下:假设原始文件内容如下:请先将第一行中ABC单元格的内容先暂时保存一下:客户数据导入模板注意请XXXXXXXXXXXXXXXXXXXXXXXX将第一行内容保存之后,请在原始文件中删掉第一行在删掉第一行中的原始文件中执行切割文件的宏Sub splitexcel()Dim r, c, i, totalhangshu, fileshu, bt As LongApplication.ScreenU原创 2021-02-07 18:16:39 · 327 阅读 · 0 评论 -
简单excel宏工具对数据进行脱敏
简单excel宏工具对数据进行脱敏宏代码Sub aa() Dim col As String Dim maxrow Dim stratpoint&, changdu& Set Rg = Application.InputBox("请您选择需要脱敏的数据后一列!", Title:="提示", Type:=8) stratpoint = Val(Application.InputBox("请您输入脱敏的起始位置?")) changdu = Va原创 2021-01-28 10:20:15 · 5350 阅读 · 1 评论 -
EXCEL宏根据指定行数来切割excel文件内容成新文件
EXCEL宏根据指定行数来切割excel文件内容成新文件宏内容Sub splitexcel()Dim r, c, i, totalhangshu, fileshu, bt As LongApplication.ScreenUpdating = FalseApplication.DisplayAlerts = FalsetRow = Val(Application.InputBox("请您输入需要切割的行数?"))If tRow = 0 Then MsgBox "您未输入行数,程序退出!": E原创 2021-01-27 16:17:04 · 3123 阅读 · 1 评论