随笔分类 -  VBA宏

多个sheet拆分为独立的Excel文件
摘要：Sub sheet转独立文件()Dim sht As WorksheetApplication.ScreenUpdating = Falseipath = ThisWorkbook.Path &"\"For Each sht In Sheetssht.CopyActiveWorkbook.SaveA 阅读全文
posted @ 2021-03-27 00:51 小湖123 阅读(464) 评论(0) 推荐(0) 编辑
按某列的值拆分多个sheet
摘要：Sub CFGZB() Dim myRange As Variant Dim myArray Dim titleRange As Range Dim title As String Dim columnNum As Integer myRange = Application.InputBox(pro 阅读全文
posted @ 2021-03-27 00:49 小湖123 阅读(283) 评论(0) 推荐(0) 编辑
根据文件名自动插入本地图片到Excel，并对齐单元格
摘要：Sub PicturesInsert()Attribute PicturesInsert.VB_ProcData.VB_Invoke_Func = "f \n14" Dim i, arr, str, typ, shp On Error Resume Next '忽略运行中可能出现的错误 Applic 阅读全文
posted @ 2021-03-27 00:39 小湖123 阅读(923) 评论(0) 推荐(0) 编辑
VBA批量导出图片并重命名
摘要：Private Sub 导出图片_Click() Application.ScreenUpdating = False On Error Resume Next MkDir ThisWorkbook.Path & "\图片" ActiveSheet.Shapes For Each PIC In Sh 阅读全文
posted @ 2021-03-27 00:32 小湖123 阅读(1152) 评论(0) 推荐(0) 编辑

点击右上角即可分享
微信分享提示