![](https://img-blog.csdnimg.cn/20201014180756922.png?x-oss-process=image/resize,m_fixed,h_64,w_64)
VBA
Cory_Hu
热爱Linux,Django,桌面运维,服务器运维,网络运维,网络安全运维
展开
-
直接拆分sheet到文件
这里写目录标题一级目录二级目录三级目录 一级目录 二级目录 三级目录原创 2021-11-07 17:41:22 · 95 阅读 · 0 评论 -
拆分和合并excel表 VBA
拆分合并excel表 VBA拆分到表合并excel表 拆分到表 说明:运行后需要输入两个值,如下为值的说明 第一个需要输入的值:如果是需要从A列分类拆分表,请输入1·,如果是B列分类拆分表,请输入2,以此类推 第二个需要输入的值:表头一般都可能不是第一行,所以,如果表头是第一行的,请输入1,如果表头是第二行的,请输入2,以此类推 注意:拆分后将生成"被拆分文件的当前文件夹"下的"excel文件名+时间戳"的文件夹中 Sub 拆分到表() Dim sht As Worksheet Dim k,原创 2021-04-11 18:01:38 · 508 阅读 · 0 评论 -
VBA CVS另存为xlsx
Sub CVS另存为xlsx() Application.DisplayAlerts = False '先禁用excel的告警 Dim i As Integer Dim wb As Workbook Dim SaveAsExcelName As String Dim str() On Error Resume Next '加上以后防止点了取消发生的错误 '打开需要转换的csv文件,可以转换多个 str = Application.GetOpenFilename("Excel数据文件,*.csv", , ,原创 2021-02-22 18:17:41 · 1418 阅读 · 0 评论