写一个EXCEL宏,查找工作表中sheet名字叫中兴通讯成品运输提货单(空运)的sheet,复制并放到新的工作表文件里,并将新工作表所有公式内容转换成非公式,新的工作表文件用 中兴通讯成品运输提货单(空运) 和B3到F3单元格内容 命名,并将新的工作表放到桌面
时间: 2024-03-16 14:41:04 浏览: 103
python 将目录中所有excel合并到一个excel中 openpyxl 复制sheet工作表到另一个工作簿
好的,以下是你需要的 VBA 代码:
```VBA
Sub CopySheet()
Dim ws As Worksheet '定义工作表变量
Dim newWs As Worksheet '定义新工作表变量
'遍历所有工作表
For Each ws In ActiveWorkbook.Worksheets
'判断工作表名称是否为指定名称
If ws.Name = "中兴通讯成品运输提货单(空运)" Then
'复制工作表到新工作簿
ws.Copy after:=Workbooks.Add.Sheets(1)
'获取新工作表对象
Set newWs = ActiveSheet
'重命名新工作表
newWs.Name = "中兴通讯成品运输提货单(空运) 和B3到F3单元格内容"
'将公式转换成数值
newWs.Cells.Copy
newWs.Cells.PasteSpecial xlPasteValues
'保存新工作簿到桌面
ActiveWorkbook.SaveAs Filename:="C:\Users\" & Environ("USERNAME") & "\Desktop\" & newWs.Name & ".xlsx", FileFormat:=xlOpenXMLWorkbook
'退出循环
Exit For
End If
Next ws
End Sub
```
请将此代码复制到 Excel 宏编辑器中,并保存文件为宏启用的 Excel 文件。运行此宏后,工作簿中名为 "中兴通讯成品运输提货单(空运)" 的工作表将被复制到新的工作簿文件中,并且将所有公式转换为数值。新工作簿文件将以 "中兴通讯成品运输提货单(空运) 和B3到F3单元格内容" 为名称保存到桌面。
阅读全文