excel宏保存如何命名

1.Excel 怎样让宏自动为文件命名

使用vba函数能实现Sub ml()Dim sht As Worksheet, k&[a:a] = ""'清空A列数据[a1] = "目录"k = 1For Each sht In Worksheets'遍历工作簿中每个工作表k = k + 1'累加K值Cells(k, 1) = sht.Name'将工作表名称依次放入表格A列NextEnd SubSub rename()Dim shtname$, sht As Worksheet, i&On Error Resume Next'当程序运行中出现错误时，继续运行For i = 1 To Cells(Rows.Count, 1).End(3).Row'遍历当前表格A列的数据shtname = Cells(i, 1)'将表格A列的值，赋予变量shtname'之所以将shtname的变量类型定义为文本，是防止A列数据为数值时和sheet序列引用产生冲突。

Set sht = Sheets(shtname)If Err = 0 Then'如果工作簿存在sht表，则更名Sheets(shtname).Name = Cells(i, 2)Else'如果工作薄不存在sht表，则清除错误，对下一个值判断处理Err.ClearEnd IfNextEnd Sub两段代码 你去调试下就可以。

2.求宏要求:将EXCEL表中A1单元格里的图片另存为JPG格式,放

就不上附件了，记得把用不着的图片在Excel里删掉，免得导出时出错。

Sub 导出图片（） Application。ScreenUpdating = False Dim pic As Shape With ActiveSheet For Each pic In 。

Shapes If pic。Type = 13 Then pic。

Copy With 。ChartObjects。

Add(0, 0, pic。Width, pic。

Height)。Chart 。

Paste 。 Export ThisWorkbook。

Path & "\图片\" & pic。TopLeftCell。

Offset(0, 2)。Value & "。

jpg" 。Parent。

Delete End With Next End With Application。 ScreenUpdating = True End Sub。

3.excel里怎么使用宏命令批量求和

其实 根据你目前的 问题判断 还是建议你别用 宏命令了 只要试用一下公式 就可以了……

你需要 说说 你的明细数据表的结构…… 然后 再给你具体答案！

先假设 你的明细数据表 与 图示的表格 结构一致 只不过是 同部门、同名、同种类 下又多次的重复（可能根据销售时间不同记录的明细）……

假设 这些数据 都在A、B、C、D列 明细数据 在 “明细表”内！

则图示表的 D2 输入如下公式：

D2 =SUMPRODUCT（（明细表！A$1:A$1000=A2）*（明细表！B$1:B$1000=B2）*（明细表！C$1:C$1000=C2）*明细表！D$1:D$1000)

然后 向下复制这个公式就可以了！

你还可以 通过数据透视表的方式 来完成 你的统计工作 详细参看数据透视表 这个帮助吧