首页
学习
活动
专区
工具
TVP
发布
精选内容/技术社群/优惠产品,尽在小程序
立即前往

将宏放在单独的工作簿中以定位工作簿,将工作表中的值复制并粘贴到新工作簿中,并保存到原始工作簿的位置

宏(Macro)是一种用于自动化执行任务的代码片段。在Excel中,宏可以用于执行各种操作,例如复制、粘贴、格式化等。下面是一种实现将工作表中的值复制并粘贴到新工作簿中,并保存到原始工作簿位置的方法:

  1. 打开Excel,并打开包含要操作的工作表的工作簿。
  2. 按下Alt + F11,打开Visual Basic for Applications(VBA)编辑器。
  3. 在VBA编辑器中,选择插入(Insert)-> 模块(Module),创建一个新的模块。
  4. 在新的模块中,编写以下VBA代码:
代码语言:vba
复制
Sub CopySheetToNewWorkbook()
    Dim newWorkbook As Workbook
    Dim currentWorkbook As Workbook
    Dim currentSheet As Worksheet
    
    ' 创建一个新的工作簿
    Set newWorkbook = Workbooks.Add
    
    ' 获取当前工作簿的引用
    Set currentWorkbook = ThisWorkbook
    
    ' 获取当前工作表的引用
    Set currentSheet = currentWorkbook.ActiveSheet
    
    ' 将当前工作表的值复制到新工作簿中
    currentSheet.Copy Before:=newWorkbook.Sheets(1)
    
    ' 关闭新工作簿的其他工作表
    Do While newWorkbook.Sheets.Count > 1
        newWorkbook.Sheets(newWorkbook.Sheets.Count).Delete
    Loop
    
    ' 保存新工作簿到原始工作簿的位置
    newWorkbook.SaveAs currentWorkbook.Path & "\" & "新工作簿名称.xlsx"
    
    ' 关闭新工作簿
    newWorkbook.Close
    
    ' 清理对象引用
    Set newWorkbook = Nothing
    Set currentWorkbook = Nothing
    Set currentSheet = Nothing
End Sub
  1. 关闭VBA编辑器。
  2. 在Excel中,按下Alt + F8,打开宏对话框。
  3. 选择刚刚创建的宏(CopySheetToNewWorkbook),并点击运行。

这样,宏将会在单独的工作簿中创建一个新的工作表,并将原始工作表的值复制到新工作表中。然后,新工作簿将保存在原始工作簿的位置。

腾讯云相关产品和产品介绍链接地址:

  • 腾讯云对象存储(COS):提供高可靠、低成本的云端存储服务,适用于图片、音视频、文档等各类数据的存储和管理。详情请参考:https://cloud.tencent.com/product/cos
  • 腾讯云云服务器(CVM):提供弹性计算能力,支持按需购买、弹性扩容、自定义配置等特性,适用于各类应用的部署和运行。详情请参考:https://cloud.tencent.com/product/cvm
  • 腾讯云数据库(TencentDB):提供多种类型的数据库服务,包括关系型数据库、NoSQL数据库等,适用于各类应用的数据存储和管理。详情请参考:https://cloud.tencent.com/product/cdb
页面内容是否对你有帮助?
有帮助
没帮助

相关·内容

VBA代码:拆分工作簿示例——工作簿每个工作保存为单独工作簿

标签:VBA 有时候,我们想将工作簿每个工作都保存为一个单独工作簿。 你可以使用下面的操作逐个保存工作: 1.在工作标签单击右键。 2.选取“移动或复制…”命令。...3.选择“(新工作簿)”。 4.保存该工作簿。 图1 这样,有多少工作,你就要操作上面的步骤多少次。 然而,如果存在很多个工作簿,这样重复工作使用VBA是最合适。...msoFileDialogFolderPicker) .InitialFileName =Application.DefaultFilePath & "\" .Title = "选择保存工作位置...Next wks Application.ScreenUpdating = True Application.DisplayAlerts = True End Sub 只需在要拆分工作簿运行上述代码...,就可将该工作簿所有工作全部保存为单独工作簿

3.8K10

VBA: 多个工作簿第一张工作合并到一个工作簿

文章背景: 在工作,有时需要将多个工作簿进行合并,比如多份原始数据附在报告之后。...一般操作方法是打开两个工作簿(目标工作簿和待转移工作簿),然后选中需要移动工作,右键单击以后选择“移动或复制”。接下来在对话框里面进行设置。 这种方法适合在移动少量工作时候使用。...在目标工作簿内,插入一个模块,然后导入如下代码: Option Explicit Sub MergeWorkbook() '多个工作簿第一张工作合并到目标工作簿...End Sub (1) 目标工作簿和待转移工作簿放在同一个文件夹内; (2)上述代码要实现功能是,将同一个文件夹内所有工作簿(目标工作簿除外)第一张工作拷贝到目标工作簿内,并将名设置为拷贝前所属工作簿名称...转移前: 转移后: 参考资料: [1] 如何使用Excel VBA多个工作簿全部工作合并到一个工作簿(https://zhuanlan.zhihu.com/p/76786888)

5.3K11

VBA代码:整个工作簿所有公式转换为

标签:VBA 这是不是工作簿每个公式转换为最快、最有效方法,请大家评判。 有趣是,不管工作簿中有多少张,它都是用一个操作来处理。...通常情况下,都是试图通过遍历工作来做到这一点,然而并没有那么有效。...Selection.PasteSpecial Paste:=xlPasteValues ActiveSheet.Select Application.CutCopyMode = False End Sub 如果工作簿中有隐藏工作...HiddenSheets() As Boolean Dim Goahead As Integer Dim n As Integer Dim i As Integer Goahead = MsgBox("这将不可逆地工作簿所有公式转换为...,vbOKCancel, "仅确认转换为") If Goahead = vbOK Then Application.ScreenUpdating = False Application.Calculation

71840

问与答93:如何工作簿引用文件全部复制汇总到指定文件夹

Q:我在做一个非常巨大数据,一个主工作簿,还有非常多个被引用数据工作簿散布在计算机很多位置。...因为很多数据是临时来,时间一长,我已经搞不清到底引用了哪些工作簿,有没有办法自动把相关工作簿打包在一起? A:这只能使用VBA来解决了。...例如下图1所示,在工作簿工作Sheet1有几个单元格分别引用了不同位置工作簿数据,我们要把引用这几个工作簿复制到该工作簿所在文件夹。 ?...strFind2 As String Dim iPos2 As Integer Dim strPath As String Dim strFile As String '设置工作且将该工作公式单元格赋给变量...'则将文件复制到当前文件夹 If strPath "" AndstrFile "" And strPath ThisWorkbook.Path &"\

2.4K30

Excel数据分割(实战记录)

在左侧“项目资源管理器”窗格,找到你工作簿双击打开。 在VBA编辑器窗口中,插入模块(Insert -> Module)。 将上述代码复制贴到模块。 关闭VBA编辑器。...End Sub 请注意,此代码创建工作簿,并在每个新工作簿复制相应数据。你可以根据需求修改代码保存路径和文件名。运行代码后,显示一个弹出窗口,指示成功分割为多少个。...End Sub 这段代码将会根据每个起始行和结束行,原始数据对应部分复制,保证每个数据只出现在一个表格,同时每个包含连续10行数据。...请注意,在代码,我假设原始数据从第一行开始,且每个都保存为单独Excel文件。你可以根据实际需求进行修改。...End Sub 这段代码在每个通过标题行和对应数据行复制到新工作簿来实现分割。新工作簿第一行是标题行,接下来行是对应数据行。

28120

一起学Excel专业开发18:Excel工时报表与分析系统开发(2)——创建特定应用加载(续)

工时输入工作簿副本保存到预先设定好合并区 图1所示自定义工具栏第一个按钮作用是工时输入工作簿副本保存到合并区,其代码如下: '保存已完成工时输入工作簿副本到指定合并位置 Public...'如果是,保存工时输入工作簿到该位置 '如果不是,提示用户指定合并路径,保存该位置到注册 '保存工时输入工作簿到该位置 sSavePath...如果存在输入错误,则向用户显示出错信息退出过程,否则就为工作簿创建一个唯一名称,然后在注册查询合并区路径。如果合并区路径并未保存到注册,则会给出提示信息并要求用户指定其路径。...最后,调用Workbook对象SaveCopyAS方法工作簿副本保存到合并区,给出提示信息告诉用户操作成功。...2.复制新添加行上面一行数据,并将其粘贴到加入行内。这样可将各种保证表格正确操作和显示设置(如函数、格式和数据验证等)添加到加入行。 3.新添加行数据全部清除,为数据输入做好准备。

1.2K20

EXCEL VBA语句集300

 工作簿 (8) Workbooks.Add() ‘创建一个工作簿 (9) Workbooks(“book1.xls”).Activate ‘激活名为book1工作簿 (10...‘工作簿平铺方式排列 (17) ActiveWorkbook.WindowState=xlMaximized ‘当前工作簿最大化  工作 (18) ActiveSheet.UsedRange.Rows.Count...A1,粘贴到单元格B1 Range(“A1:D8”).Copy Range(“F1”) ‘单元格区域复制到单元格F1开始区域中 Range(“A1:D8”).Cut Range(“F1”)...2A1起始单元格区域中 注:CurrentRegion属性等价于定位命令,由一个矩形单元格块组成,周围是一个或多个空行或列 (39) ActiveWindow.RangeSelection.Value...(74) Sheets(“Chart2”).ChartArea.Interior.ColorIndex=2 ‘更改图表工作图表区颜色 (75) Charts.Add ‘添加图表工作

1.7K40

Excel编程周末速成班第3课:Excel对象模型

复制和移动工作 可以整个工作复制或移动到原始工作簿位置或其他工作簿,其语法如下(使用Move方法移动工作;语法与Copy相同): 工作.Copy(Before,After) 工作是对要复制工作引用...如果要复制原始工作簿某个位置,使用参数Before或参数After(但不能两个都使用)指定要在其之前或之后放置复制工作现有工作。...要将工作复制到另一个工作簿,省略After和Before参数。Excel创建一个工作簿,然后工作复制到其中。 提示:无法工作直接复制或移动到现有工作簿。...为此,必须使用Range对象数据复制到Windows剪贴板,然后数据粘贴到位置。有关详细信息,请参见本书后续内容。 要点回顾 你编写任何VBA程序都将取决于Excel对象模型。...你可以根据需要添加、删除、复制和移动工作。 自我测评 1.属性和方法之间主要区别是什么? 2.如何对象添加到集合? 3.命名集合一般规则是什么?

5K30

一起学Excel专业开发21:Excel工时报表与分析系统开发(3)——自定义用户界面

设置背景图片 最简便方法是应用程序工作簿一个工作作为其“桌面”,向其中添加背景图片,并将工作簿最大化,设置工作显示属性使其显示范围扩大到整个Excel窗口,去除工作簿窗口中控制框和最大最小化按钮...代码如下: '从加载复制背景工作簿到新建工作簿并进行配置 Sub PrepareBackDrop() Dim wkbBook As Workbook '已经有背景对象吗?...Exit For End If Next If gwbkBackDrop Is Nothing Then '从本工作簿复制背景工作...如果应用程序使用基于工作用户接口,则应该工作作为主要数据录入界面和显示报表界面,而对话框应只用于少量任务和向导程序。...,我们使用加载和模板创建每周工时并将它们存储到工作区,ConsolidateWorkbooks过程用来获取这些工时表工作簿并将它们合并和分析。

1.9K10

工作必会57个Excel小技巧

文件图标显示为图片形式 把A.xlsx修改为 A.Jpg 12、把工作另存为excel文件 在工作标签上右键 -移动或复制 -移动到”新工作簿” 二、窗口设置 1、同时打开对比两个或多个excel文件...视图 -全部重排 -选排列方向 2、同时查找一个工作簿两个工作 视图 -新建窗口 -全部重排 -选排列方向 3、隐藏或显示excel最上面的功能区 Ctrl+F1 4、隐藏excel工作界面...7、输入身份证号或以0开始数字 把单元格格式设置成文本,然后再输入 8、快速删除空行 选取某列 - ctrl+g定位 -定位条件 -空 -删除整行 9、快速插入空行 在右侧输入序号1,2,3....10、快速合并多行数据 插入批注 -选取多列数据复制 -粘贴到批注,然后再从批注复制至单元格区域中即可。...ctrl+g定位 -定位条件 -对象 -删除 2、工作插入背景图片 页面布局 -背景 -选择插入图片 3、插入可以打印背景 插入 -页眉页脚 -选取页眉后点图片 -选取图片拖入 八、打印设置 1

4K30

ChatGPT与Excel结合_编写VBA

案例1 比如我需求是:写一个基本Excel vba,用于表格第3行到第9行每一行数据转换为一个工作簿 VBA如下: Sub SplitRowsToNewWorkbooks()...End Sub 请将代码"路径\文件名.xlsx"替换为你希望保存路径和文件名。运行该后,会将第3行到第9行每一行数据复制到一个工作簿,并将其保存在指定路径下。...”生成表格,但“回炉再造”一遍就好,重要是学会ChatGPT与Excel结合来编写VBA ---- 案例2 又比如我需求是:编写一个Excel VBA工作薄,每个工作图片,移动到A1...End Sub 运行该后,它会遍历工作每个工作,并将每个作图片移动到A1单元格位置。在移动图片之后,会弹出一个提示框显示操作已完成。...End Sub 运行该后,它会遍历当前Excel工作簿每个工作删除每个工作所有图片。在删除图片之后,会弹出一个提示框显示操作已完成。

42020

ChatGPT与Excel结合_编写VBA

案例1 比如我需求是:写一个基本Excel vba,用于表格第3行到第9行每一行数据转换为一个工作簿 VBA如下: Sub SplitRowsToNewWorkbooks()...End Sub 请将代码"路径\文件名.xlsx"替换为你希望保存路径和文件名。运行该后,会将第3行到第9行每一行数据复制到一个工作簿,并将其保存在指定路径下。...”生成表格,但“回炉再造”一遍就好,重要是学会ChatGPT与Excel结合来编写VBA ---- 案例2 又比如我需求是:编写一个Excel VBA工作薄,每个工作图片,移动到A1...End Sub 运行该后,它会遍历工作每个工作,并将每个作图片移动到A1单元格位置。在移动图片之后,会弹出一个提示框显示操作已完成。...End Sub 运行该后,它会遍历当前Excel工作簿每个工作删除每个工作所有图片。在删除图片之后,会弹出一个提示框显示操作已完成。

47210

最全Excel 快捷键总结,告别鼠标!

F7 F7 :显示“拼写检查”对话框,检查活动工作或选定范围拼写。 Ctrl+F7 :如果工作簿窗口未最大化,则按 Ctrl+F7 可对该窗口执行“移动”命令。...Ctrl+F8:当工作簿未最大化时,按 Ctrl+F8 可执行“大小”命令 Alt+F8:可显示用于创建、运行、编辑或删除”对话框。 F9 F9:计算所有打开工作簿所有工作。...Ctrl+C:复制选定单元格。 Ctrl+D:使用“向下填充”命令选定范围内最顶层单元格内容和格式复制到下面的单元格。 Ctrl+E:使用列周围数据多个添加到活动列。...Ctrl+L:显示“创建”对话框。 Ctrl+N:创建一个空白工作簿。 Ctrl+O:显示“打开”对话框打开或查找文件。...Ctrl+R:使用“向右填充”命令选定范围最左边单元格内容和格式复制到右边单元格。 Ctrl+S使用其当前文件名、位置和文件格式保存活动文件。 Ctrl+T显示“创建”对话框。

7.2K60

Excel教程 (介绍与基本使用)

AutoCAD2000)等对VBA支持,这些软件也已进入到了VBA控制范 围;2、可以将用VBA编写程序复制到Visual Basic调试运行,从而实现用Visual Basic来控制有关应用程序...工作索引号表明该工作工作标签位置:第一个(最左边工作索引号为1,最后一个(最右边 )为Worksheets.Count。...该图表既可为嵌入式图表(包含在ChartObject),也可为一个分开单独)图表工作。...图表工作索引号表示 图表工作工作簿工作标签栏上位置。...如下例工作”Sheet1″A1单元格赋给Integer变量I,并将I+1赋给当前工作B1单元格: Dim I As Integer I=Worksheets(“Sheet1”).Cells

6.3K10

Python操控Excel:使用Python在主文件添加其他工作簿数据

标签:Python与Excel,合并工作簿 本文介绍使用Python向Excel主文件添加数据最佳方法。该方法可以保存主数据格式和文件所有内容。...注意,它返回一个Sheets对象,是Excel工作集合,可以使用索引来访问每个单独工作。要获取工作名称,只需调用.name属性。 图3 接下来,要解决如何数据放置在想要位置。...这里,要将数据放置在紧邻工作最后一行下一行,例如上图2第5行。那么,我们在Excel是如何找到最后一个数据行呢?...图6 数据转到主文件 下面的代码数据工作簿数据转移到主文件工作簿: 图7 上述代码运行后,主文件如下图8所示。 图8 可以看到,添加了数据,但格式不一致。...转换新数据区域格式 从第2行复制单元格格式,格式粘贴到数据区域其余部分。如下图9所示代码。 图9 结果如下图10所示。 图10 注意,复制/粘贴也复制其它格式。

7.8K20

excel常用操作大全

鼠标放在B1位置。牢房下面不是有一个小方点吗?按下鼠标左键并向下拖动直到结束。当你放开鼠标左键时,一切都变了。...此时,您所有操作都针对所有工作,无论是设置页眉和页脚还是打印工作。6.在Excel2000制作工资,只有第一个人有工资表头(如编号、姓名、岗位工资.),希望工资单形式输出它。...选择一个工作,选择编辑\复制,并将其粘贴到工作簿(注意:它必须是新工作簿),这可以覆盖工作保护。当然,提醒你最好不要用这种方式窃取别人工作。26、如何用汉字名字代替手机地址?...众所周知,在工作簿复制工作方法是按住Ctrl键,并将选定工作沿标签线拖到位置复制工作“源工作名称(2)”形式命名。例如,如果源是ZM,则其克隆是ZM(2)。...30.如何展开工作簿?选择“工具”\“选项”命令,选择“常规”项目,使用上下箭头在“新工作簿工作数量”对话框更改新工作数量。一个工作簿最多可以包含255个工作,系统默认为6。

19.1K10

VBA代码库10:强制用户启用

有时,必须确保用户在打开工作簿时启用,否则就不能实现工作簿效果。由于无法使用去打开,因此需要一种确保用户启用技术。...下面讲解方法隐藏除“欢迎”工作(告诉用户启用)之外所有工作,并在每次保存工作簿时强制执行该工作。如果用户在启用了情况下打开工作簿,则将不会隐藏所有工作。...还可以使用Excel VeryHidden属性来实现工作隐藏,这意味着不能使用Excel菜单来取消隐藏工作。但是,这只会影响该工作簿,因此用户可以使用另一个工作簿取消隐藏所有工作。...注意:为防止某些事件循环问题,此代码需要覆盖Excel内置Save事件,并且还需要复制Excel工作簿已更改,您要保存”提示和操作,代码负责所有这些工作。...代码放置在ThisWorkbook代码模块。 2. 工作簿应该有一个名为“欢迎”工作,否则你要将代码前面的常量WelcomePage设置为用户没有启用提示工作名称。

2.3K40

【工具】一个投行工作十年MMExcel操作大全

:F6 移动到被拆分工作簿上一个窗格:SHIFT+F6 滚动显示活动单元格:CTRL+BACKSPACE 显示“定位”对话框:F5 显示“查找”对话框:SHIFT+F5 重复上一次“查找”操作:...SHIFT+F4 在保护工作非锁定单元格之间移动:TAB 2>Excel快捷键之处于END模式时在工作中移动 打开或关闭 END 模式:END 在一行或列内数据块为单位移动:END, 箭头键...Excel 4.0 工作:CTRL+F11 移动到工作簿下一个工作:CTRL+PAGE DOWN 移动到工作簿上一个工作:CTRL+PAGE UP 选择工作簿当前和下一个工作:SHIFT...+CTRL+PAGE DOWN 选择当前工作簿或上一个工作簿:SHIFT+CTRL+PAGE UP 6>Excel快捷键之选择图表工作 选择工作簿下一张工作:CTRL+PAGE DOWN 选择工作簿上一个工作...:ESC 编辑活动单元格清除其中原有的内容:BACKSPACE 将定义名称粘贴到公式:F3 完成单元格输入:ENTER 公式作为数组公式输入:CTRL+SHIFT+ENTER 在公式中键入函数名之后

3.6K40
领券