下面几个步骤可以给你做参考:
1.
你可以先新建一个Excel表格名称:A.xlsx
2.
在A中点击查看宏,输入宏的名称(如:另存为),点击创建
3.
在跳出的VB窗口中,将下面代码复制进去,然后关闭VB窗口
Sub
另存为()Dim
wb
As
WorkbookDim
s
As
WorksheetFor
Each
wb
In
Workbooks
If
wb.Name
<>
"A.xlsx"
Then
Set
s
=
wb.Worksheets("保存名称B4单元格所在的sheet名称")
wb.SaveAs
"C:\Users\Administrator\Desktop\新建文件夹\"
&
s.Cells(4,
2)
&
".xlsx"
wb.Close
True
'打开的需要另存的文件要不要自动关闭,如果不要自动关闭,把这一行删除。True代表关闭并保存,False代表关闭但不保存
End
IfNextEnd
Sub4.
在A表格中点击查看宏,点击选项,自己输入一个快捷键。
5.
在A.xlsx打开的情况下,打开每个你要另存的Excel表格,按自己定义的快捷键(通常是Ctrl+Shift+一个键)即可。
追问你好输入的时候要在什么位置换行?我每次换行都会提示缺少结束语句之类的