写一个EXCEL宏,查找工作表中sheet名字叫中兴通讯成品运输提货单(空运)的sheet,复制并放到新的工作表文件里的第一个sheet,并将新工作表所有sheet的公式内容转换成非公式,提取新工作簿B3到F3单元格里的信息作为后缀,新的工作表文件格式用 '中兴通讯成品运输提货单(空运)-'做前缀,提取到的信息做后缀命名,并将新的工作表放到桌面

时间: 2024-03-16 21:42:12 浏览: 15
以下是使用 VBA 语言编写的 EXCEL 宏,可实现你所需的功能: ```VBA Sub CopySheetAndConvertFormula() ' 定义变量 Dim wbNew As Workbook Dim wsCopy As Worksheet Dim wsPaste As Worksheet Dim ws As Worksheet Dim newName As String Dim suffix As String ' 查找要复制的工作表 For Each wsCopy In ActiveWorkbook.Worksheets If wsCopy.Name = "中兴通讯成品运输提货单(空运)" Then ' 生成新工作表 Set wbNew = Workbooks.Add Set wsPaste = wbNew.Sheets(1) ' 复制工作表 wsCopy.Copy Before:=wsPaste ' 转换公式 For Each ws In wbNew.Worksheets ws.Cells.Copy ws.Cells.PasteSpecial xlPasteValues Next ws ' 获取后缀 suffix = Replace(wsPaste.Range("B3:F3").Value, "/", "-") ' 生成新名称 newName = "中兴通讯成品运输提货单(空运)-" & suffix ' 重命名新工作表 wsPaste.Name = newName ' 保存新工作表 wbNew.SaveAs "C:\Users\" & Environ("USERNAME") & "\Desktop\" & newName & ".xlsx" ' 关闭新工作表 wbNew.Close False ' 结束 Exit Sub End If Next wsCopy ' 如果未找到对应工作表,弹出提示框 MsgBox "找不到工作表 '中兴通讯成品运输提货单(空运)'" End Sub ``` 使用方法: 1. 打开 EXCEL 文件,按下 Alt + F11 进入 VBA 编辑器; 2. 在左侧的项目资源管理器中右键点击 VBAProject,选择 插入 -> 模块; 3. 将以上代码复制粘贴到模块中; 4. 按下 F5 或在菜单栏中点击 运行 -> 运行子过程,执行宏。 注意事项: 1. 由于本宏会在桌面生成新的工作表文件,所以请确保你的电脑中存在桌面,并且你有桌面的写入权限; 2. 如果你的 EXCEL 文件中存在多个工作簿,本宏会将所有工作簿的公式内容转换成非公式,如果不需要,请自行删除相关代码。

相关推荐

zip
VR(Virtual Reality)即虚拟现实,是一种可以创建和体验虚拟世界的计算机技术。它利用计算机生成一种模拟环境,是一种多源信息融合的、交互式的三维动态视景和实体行为的系统仿真,使用户沉浸到该环境中。VR技术通过模拟人的视觉、听觉、触觉等感觉器官功能,使人能够沉浸在计算机生成的虚拟境界中,并能够通过语言、手势等自然的方式与之进行实时交互,创建了一种适人化的多维信息空间。 VR技术具有以下主要特点: 沉浸感:用户感到作为主角存在于模拟环境中的真实程度。理想的模拟环境应该使用户难以分辨真假,使用户全身心地投入到计算机创建的三维虚拟环境中,该环境中的一切看上去是真的,听上去是真的,动起来是真的,甚至闻起来、尝起来等一切感觉都是真的,如同在现实世界中的感觉一样。 交互性:用户对模拟环境内物体的可操作程度和从环境得到反馈的自然程度(包括实时性)。例如,用户可以用手去直接抓取模拟环境中虚拟的物体,这时手有握着东西的感觉,并可以感觉物体的重量,视野中被抓的物体也能立刻随着手的移动而移动。 构想性:也称想象性,指用户沉浸在多维信息空间中,依靠自己的感知和认知能力获取知识,发挥主观能动性,寻求解答,形成新的概念。此概念不仅是指观念上或语言上的创意,而且可以是指对某些客观存在事物的创造性设想和安排。 VR技术可以应用于各个领域,如游戏、娱乐、教育、医疗、军事、房地产、工业仿真等。随着VR技术的不断发展,它正在改变人们的生活和工作方式,为人们带来全新的体验。

最新推荐

recommend-type

python 实现读取一个excel多个sheet表并合并的方法

今天小编就为大家分享一篇python 实现读取一个excel多个sheet表并合并的方法,具有很好的参考价值,希望对大家有所帮助。一起跟随小编过来看看吧
recommend-type

利用Java实现复制Excel工作表功能

主要给大家介绍了关于如何利用Java实现复制Excel工作表功能的相关资料,文中通过示例代码介绍的非常详细,对大家学习或者使用java具有一定的参考学习价值,需要的朋友们下面来一起学习学习吧
recommend-type

Java根据模板导出Excel报表并复制模板生成多个Sheet页

本文主要介绍了Java根据模板导出Excel报表并复制模板生成多个Sheet页的方法,具有很好的参考价值。下面跟着小编一起来看下吧
recommend-type

从有规律的多个sheets表里提取数据到一个新sheet里.docx

比如多个年级的课表,有固定格式,想从里面,按特定顺序提取出各个sheet的名字及课表科目 word里包括截图及vba代码
recommend-type

python利用openpyxl拆分多个工作表的工作簿的方法

主要介绍了python利用openpyxl拆分多个工作表的工作簿的方法,文中通过示例代码介绍的非常详细,对大家的学习或者工作具有一定的参考学习价值,需要的朋友们下面随着小编来一起学习学习吧
recommend-type

zigbee-cluster-library-specification

最新的zigbee-cluster-library-specification说明文档。
recommend-type

管理建模和仿真的文件

管理Boualem Benatallah引用此版本:布阿利姆·贝纳塔拉。管理建模和仿真。约瑟夫-傅立叶大学-格勒诺布尔第一大学,1996年。法语。NNT:电话:00345357HAL ID:电话:00345357https://theses.hal.science/tel-003453572008年12月9日提交HAL是一个多学科的开放存取档案馆,用于存放和传播科学研究论文,无论它们是否被公开。论文可以来自法国或国外的教学和研究机构,也可以来自公共或私人研究中心。L’archive ouverte pluridisciplinaire
recommend-type

实现实时数据湖架构:Kafka与Hive集成

![实现实时数据湖架构:Kafka与Hive集成](https://img-blog.csdnimg.cn/img_convert/10eb2e6972b3b6086286fc64c0b3ee41.jpeg) # 1. 实时数据湖架构概述** 实时数据湖是一种现代数据管理架构,它允许企业以低延迟的方式收集、存储和处理大量数据。与传统数据仓库不同,实时数据湖不依赖于预先定义的模式,而是采用灵活的架构,可以处理各种数据类型和格式。这种架构为企业提供了以下优势: - **实时洞察:**实时数据湖允许企业访问最新的数据,从而做出更明智的决策。 - **数据民主化:**实时数据湖使各种利益相关者都可
recommend-type

list根据id查询pid 然后依次获取到所有的子节点数据

可以使用递归的方式来实现根据id查询pid并获取所有子节点数据。具体实现可以参考以下代码: ``` def get_children_nodes(nodes, parent_id): children = [] for node in nodes: if node['pid'] == parent_id: node['children'] = get_children_nodes(nodes, node['id']) children.append(node) return children # 测试数
recommend-type

JSBSim Reference Manual

JSBSim参考手册,其中包含JSBSim简介,JSBSim配置文件xml的编写语法,编程手册以及一些应用实例等。其中有部分内容还没有写完,估计有生之年很难看到完整版了,但是内容还是很有参考价值的。