Question

Excel怎么以自己某一单元格内容自动保存并重命名文件？

加入excel表格中A1单元格内容为[a-123]，我想在按了按钮后；自动保存表格并把文件名字重命名为A1单元格的内容

Answer 1

如果仅仅需要按A1的内容重命名表格的话，可以这样:创建宏-开始录制-选择单元格所在的表格-文件-另存为-xxx.xlsx-停止录制-查看宏-把("xxx")改成(a1).value即可。

追问

重命名后变成(a1.value.xlsx)了。请问怎么改？
还有就是能不能变成执行后可以让你自己选择保存路径？

追答

这个不会，不过如果变更文件夹不频繁的话，可以用笨方法，如图，把路径也放到单元格里边来：

Answer 2

下面几个步骤可以给你做参考：
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+一个键）即可。

追问

你好输入的时候要在什么位置换行？我每次换行都会提示缺少结束语句之类的

Answer 3

代码类似于
Sub test()
Dim A1, str
A1 = Range("A1") '提取A1单元格的值
str = ThisWorkbook.Path '提取工作簿路径
ActiveWorkbook.SaveAs Filename:=str & "\" & A1 & ".xls"
End Sub