Excel中怎样利用vba实现-全选-复制-新建Excel文件-选择性数值粘贴到新文件-保存，保存文件名为某一单元格

Question

一张表格为母版！其中有rand()函数，所以想变化以后一键实现这些功能，把sheet1中的内容全选复制，然后新建一个Excel表格，选择性粘贴到新建表格的sheet1中，然后保存！保存文件名为新表中某一单元格内容！

Answer 1

既然都可以说得那么清楚，我就把说明与注意点，直接备注在代码中了，完整代码如下

Sub admin()
Dim xWk As Workbook, xSh As Worksheet, xRan As Range
Dim nWk As Workbook

'要复制内容为当天工作表
Set xWk = ActiveWorkbook
Set xSh = ActiveSheet
'保存的文件名为A1单元格里的内容，如果是其它单元格，修改这里
Set xRan = xSh.Range("A1")

Set nWk = Workbooks.Add
xSh.Cells.Copy
nWk.Worksheets(1).Range("A1").PasteSpecial xlPasteValues
'保存在与复制内容同一目录下
nWk.SaveAs xWk.Path & "\" & xRan.Value

End Sub

Answer 2

又不是什么复杂的操作，直接通过录制宏即可实现

Answer 3

录制宏最简单易懂

Answer 4

你这个需要用vba写代码的，请提供一下原表格，我可以帮你写。发我邮箱吧。

Answer 5

不会重名吧 , 1052974911@qq.com