alt+f11打开vba编辑器 点插入模块 容纳后复制粘贴如下代码
Sub 根据单元格另存表名()
ActiveWorkbook.SaveAs Filename:=ActiveWorkbook.Path & "\" & Selection & ".xls", FileFormat:= _
xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False
End Sub
然后回到表中 选中目标单元格 按下alt+f8 点击运行 然后就可以将表另存为当前单元格名称
温馨提示:内容为网友见解,仅供参考