CopyOrigin on Excel VBA中的插入
在 Excel VBA 中，CopyOrigin 是一个属性，用于设置或返回单元格的复制源。当您将一个单元格的值复制到另一个单元格时，CopyOrigin 属性可以帮助您追踪原始单元格的位置。
以下是一个简单的示例，演示如何在 Excel VBA 中使用 CopyOrigin 属性：
Sub CopyOriginExample()
Dim sourceCell As Range
Dim destinationCell As Range
' 设置源单元格和目标单元格
Set sourceCell = Worksheets("Sheet1").Range("A1")
Set destinationCell = Worksheets("Sheet1").Range("B1")
' 将源单元格的值复制到目标单元格
destinationCell.Value = sourceCell.Value
' 设置目标单元格的 CopyOrigin 属性
destinationCell.CopyOrigin = sourceCell.Address(False, False)
End Sub在这个示例中，我们将 Sheet1 中的 A1 单元格的值复制到 B1 单元格。然后，我们将 B1 单元格的 CopyOrigin 属性设置为 A1 单元格的地址。这样，如果您以后需要找到 B1 单元格的原始数据来源，可以通过检查其 CopyOrigin 属性来轻松地找到。
需要注意的是，CopyOrigin 属性只适用于单元格的值和格式的复制操作，不适用于其他类型的操作，例如剪切、粘贴特殊操作等。
相关·内容
谁能告诉我Insert的CopyOrigin参数是用来做什么的？它会接受什么价值观？我已经包含了vba帮助(实际上帮助不是很大)：Shift可选变量。指定移动单元格的方式。如果省略此参数，Microsoft Excel将根据范围<e
浏览 241提问于2009-03-26得票数 21
回答已采纳
我正在尝试将特定数量的单元格插入到Google工作表中，该表格基于一个保存为范围的数字。例如，范围内的数字是52，因此在工作表“主”中，我想在A3行之后插入52行。我已经能够使用Excel中的宏来完成这个任务，但是我希望将它从Excel移到Google。VBA代码如下所示： Range("A3&quo
浏览 3提问于2019-11-29得票数 0
回答已采纳
1回答
当我在MS Access中运行下面的代码时，我只在第一次运行时得到一个下标的范围错误。如果我在错误上单击“确定”，然后再运行一次，就可以了。如果关闭数据库并重新打开它，则在第一次运行时再次获得错误。DoCmd.OutputTo acOutputTable, "tblOutput", acFormatXLS, "Output.xls", True
Excel.Workbooks("Output.xls").Worksheets("tblOutput").Rows("1:3
浏览 3提问于2016-11-22得票数 0
回答已采纳
我在VB6应用程序中遇到了下面这行代码。mobjParentWrkBk.ExcelWorkBook.Application.Selection.Insert Shift:=xlToRight
不幸的是，谷歌和其他搜索引擎并不是很有用，因为它们似乎忽略了
浏览 0提问于2008-10-22得票数 5
回答已采纳
我是VBA编程的新手，我想做以下事情。一旦选择了"Yes“，我希望新行复制前4列的信息，并将其余的保留为空。谢谢你！！编辑:我已经能够创建一
浏览 0提问于2021-06-01得票数 1
如果我删除一行，它会工作一次，然后再失败一次： 当达到“阈值”时，代码中下面这一行出现1004错误，无论是什么原因造成的： Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove 下面是Excel VBA宏： Sub InsertNewRow() ' InsertNewRow Macro '
Active
浏览 60提问于2019-10-11得票数 0
我是这个论坛的新手，也是VBA，所以如果这需要澄清的话，让我知道，我提前道歉！
Selection.EntireColumn.Offset(0, 1).Insert Shift:=xlToRight, CopyOrigin:=xlF
浏览 3提问于2017-10-30得票数 0
回答已采纳
我正在尝试将excel工作表中的B列移到Q列之前，作为我正在处理的报告的一部分。我有VBA的经验，但相对较少的c#，所以我花了最后一个小时的谷歌和找不到一个解决方案，我觉得这应该是简单的，但我不能完全得到它。
方法一，结果是“插入Range类的方法失败”msg。Excel.Range rngCut1 = JobLabourSheet.get_Range("
浏览 0提问于2013-11-09得票数 6
回答已采纳
我在我的Excel工作表中的特定单元格(假设是"A1:A5")上有一个Sum。通常，每当我在"A1"上手动插入一行时，sum都会扩展，因此新的范围是"A1:A6"。现在，当我在"A1"中使用VBA插入一行时，我的总和来自"A2:A6"，而不是"A1:A6"。如何在插入行的同时基本保
浏览 9提问于2018-07-24得票数 3
回答已采纳
2回答
这是我目前在VBA (Excel)中拥有的代码。其中大部分来自我制作的微距录音。例如，我想要的是能够在输入框中插入第10行，而不必将其作为10:10插入。有没有办法让我编辑当前的代码来实现这一点？ThisWorkbook.Name Rows(TargetRow).Select
Selection.Insert Shift:=xlDown, CopyOrigin<
浏览 3提问于2017-02-22得票数 1
在Excel宏中，我希望实现这一点:在'A‘列中，可以有多个行中的数据。当用户选择“A”列中的任何单元格并单击按钮时，将在所选行下面插入6行，并将所选单元格中的数据复制到这6行中。:=xlFormatFromLeftOrAbove
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
浏览 25提问于2018-08-06得票数 2
如果能用VBA在工作表中插入列来帮助解决这个棘手的问题，我将不胜感激。工作表是从数据库中生成的。对于不属于数据库的数据，我需要在工作表中插入一列。该项目从工作表中获取数据，并将其写入一系列Word表单。当从启用宏的工作表中的模块运行代码时，代码运行正常。当我在外接程序(.xlam)中使用代码时，它没有插入列，并且Err.Number捕获了一个错误438。当我将模块
浏览 0提问于2016-06-26得票数 3
2回答
我已经启动了一个Excel宏，以便在选择后插入一个空行，但我想要空白的rowheight = 6。我是VBA的新手，但我渴望学习。 Selection.Insert Shift:=xlDown, CopyOrigin
浏览 5提问于2017-08-18得票数 0
回答已采纳
为什么记录的VBA会显示计算值。而我的代码只显示公式(但是如果我进入每个单元格并点击f2，然后返回，它会显示计算值)。我正在使用Excel 2010中的表格。似乎本质上是一样的：Columns("D:D").Select
Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove"D8").Selec
浏览 8提问于2013-11-05得票数 1
我需要一些VBA代码的帮助。我有一个AgeRange切片器和一个工作脚本，它插入一行，添加时间戳，然后报告切片器选择。我想在这里添加一些东西，如果切片器中的所有项都被选中(True)，那么将跳过这个过程。Dim cache As Excel.SlicerCache
Set cache = ActiveWorkbook.
浏览 1提问于2013-04-13得票数 0
1回答
我需要使用C#将一行插入到现有的Excel工作表中，但保留现有的格式。sheet.Range[string.Format("{0}:{0}", row)] .Insert(
Excel.XlInsertShiftDirection.
浏览 3提问于2015-06-02得票数 2
回答已采纳
我想要构建一个宏，它以相同的格式在选定单元格下面插入一行。这是我到目前为止掌握的代码：ActiveCell.Offset(1).EntireRow.Insert Shift:=xlDown, CopyOrigin它确实对新行使用相同的背景色，但它不对单元格使用边框/框架。我怎样才能做到这一点？
浏览 9提问于2015-03-09得票数 6
回答已采纳
我想在列之间插入一个新列，它使用以下代码工作：
Columns("G:G").Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove无论如何，我都在使用VBA。有人知道吗？
浏览 3提问于2015-11-19得票数 0
回答已采纳
3回答
我试图创建一个excel宏，在D列之前自动插入两列.当我创建它的时候，这个过程运行得很好，如下所示： Columns("D:D").Select Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
En
浏览 6提问于2014-03-07得票数 4
回答已采纳
我希望将两个连续的单元格与每个单元格进行比较，如果它们的值相同，那么我希望在它们之间创建一个空单元格。如果是A1==B1，那么我希望程序右击并在B1中插入一个单元格，方法是将B1的值移到右边。我想为我的每一行做这件事。不幸的是，我在VBA和播放录音宏和在线查找方面的知识有限，我做了以下工作' allows us to declare variable names and their:=xlFo
浏览 2提问于2016-11-07得票数 0
回答已采纳
扫码
添加站长 进交流群
领取专属 10元无门槛券
手把手带您无忧上云
相关资讯
热门标签
云服务器
ICP备案
云直播
对象存储
实时音视频活动推荐
腾讯云开发者
