如何将此VBA代码更改为仅粘贴值
将VBA代码更改为仅粘贴值可以通过以下步骤实现：
- 打开VBA编辑器：在Excel中按下Alt + F11，打开Visual Basic for Applications（VBA）编辑器。
- 找到要更改的代码：在VBA编辑器中，找到包含要更改的代码的模块或工作表。
- 修改代码：将原始代码更改为只粘贴值的代码。以下是一个示例：
' 原始代码
Range("A1").Select
Selection.Copy
Range("B1").Select
ActiveSheet.Paste
' 更改为只粘贴值的代码
Range("A1").Copy
Range("B1").PasteSpecial xlPasteValues
Application.CutCopyMode = False在新的代码中，我们使用Copy方法将A1单元格的内容复制到剪贴板，然后使用PasteSpecial方法将其粘贴为值到B1单元格。最后，我们使用Application.CutCopyMode = False语句清除剪贴板中的内容。
- 保存并关闭VBA编辑器：保存对代码的更改，并关闭VBA编辑器。
通过以上步骤，您已经将VBA代码更改为仅粘贴值的代码。这样做可以确保只将数值粘贴到目标单元格，而不包括格式或公式。
相关·内容
1回答
Sub Merge2MultiSheets() Dim xSelItem As Variant Dim xFileName, xSheetName, xRgStr As String Dim xSheet As Worksheet Application.DisplayAlerts = False
Application.Enab
浏览 5提问于2020-02-06得票数 0
1回答
我有以下代码，它将行从另一个工作表复制到当前工作表的给定位置。ws2和ws3都是工作表。ws3.Range(ws3.Cells(4, 1), ws3.Cells(4,2)).Copy ws2.Cells(2, 2) 如何将此代码更改为仅粘贴单元格的值？当前工作代码复制带有公式的单元格。我想知道如何传递pasteSpecial参数，如下所示？
浏览 20提问于2021-09-26得票数 0
回答已采纳
3回答
我正在尝试使用Excel VBA将值从一个Excel文件复制并粘贴到另一个文件。我有以下代码，但它似乎也复制和粘贴了格式。我如何指定它，使其仅粘贴值？谢谢。
浏览 6提问于2018-08-16得票数 0
1回答
我使用的是Access 2010和Excel 2010在导入之前，我仅在公式上重新粘贴值(仅粘贴特定值)，以便所有数字数据仅为值。我一直在尝试在VBA中使用.value = .value
浏览 5提问于2015-11-10得票数 0
2回答
我需要一个简单的vba代码。我希望有人能帮助我。因此，我想复制区域B2:E6，并保留一些带有特殊条件的单元格。我在单元格A2:A6中创建了一个值为Y / X的规则。最后，我希望仅当值为Y时，才将值B2:E6粘贴到范围F9:I13中。 我附上了下面的图片，让你更容易理解。 ? 任何帮助都是最好的。对不起，我的英语不好。
浏览 7提问于2021-11-08得票数 0
回答已采纳
3回答
我在想，我可以创建一个VBA函数，它可以运行这个公式，而不必全部键入。例如，我可以直接输入=WBSReplace(C8)，而不是上面的内容，结果将与输入完整的公式相同。
浏览 0提问于2018-07-04得票数 0
我有这个VBA代码Sheets("data").Cells(Rows.Count, "A").End(xlUp).Offset我面临的唯一问题是，它也会复制公式，而我只需要值。我想使用相同的VBA代码，但做了一些修改，以便仅粘贴数值。
浏览 2提问于2013-07-10得票数 1
我想将此Excel保存为值，但仅针对某些公式，而不是针对所有公式。 我使用这个VBA脚本，但它将所有公式替换为值。例如，我如何才能仅替换包含公式SUM的所有单元格-可能包含=SUM( Sub Saveasvalue() For Each wsh In ThisWorkbook.Worksheets
浏览 73提问于2021-02-24得票数 0
回答已采纳
我正在尝试写一个透视表过滤器的VBA代码，并完成了对它的研究。我有一个名为"Name"(H)的列，并根据"Name“过滤了一个数据透视表。我正在尝试编写相同的vba代码，其中的代码是根据列"Name"(H)的单元格值将筛选器1更新为1。我可以在编写代码时实现，该代码将透视过滤器分配给单个单元格，而不是分配给名称为1的整个范围。但最终目标是:基于"Name"(H)列将透视筛选器
浏览 11提问于2017-08-19得票数 0
2回答
使用动态数组存储和粘贴值
、、、
本例中的键号为"5“，该页的所有内容都根据我输入的数字(从1更改为42)而变化。Sheets("Biblia General").Range("B8:H142").Copy
Sheets("Biblia General").Range("M8").PasteSpecial但是现在我需要做同样的事情，但是对于所有的键值，例如，
浏览 7提问于2022-01-03得票数 1
回答已采纳
1回答
我尝试将此Excel函数更改为VBA代码=ROUND(value,sigfig-(1+INT(LOG10(ABS(value)))))Public Function sigfigApplication.WorksheetFunction.Log10(var)sigf = sigf - (1 + var)End Function
对于小于0的值，Excel和VBA
浏览 13提问于2020-05-13得票数 3
回答已采纳
2回答
这些值存储在电子表格中的一个长列中；为了获得这些值，我将每24行相加为新的一天。这可以通过循环遍历电子表格并将每个循环的值增加24来实现。我想要做的是对整个范围使用AutoFill，但我不确定如何编写它，使它每次都会将值递增25。到目前为止，我只能让它为每个值递增1，其中变成了有没有一种方法可以在一个范围内使用AutoFill，在这个范围内，它将以一个变量数字递增--在本例中是
浏览 0提问于2011-07-15得票数 1
回答已采纳
是否可以在ctrl+x中(或通过Excel中的其他方式)覆盖剪切/粘贴快捷键(ctrl+v、VBA )以仅剪切和粘贴值和文本属性，而不剪切和粘贴值和文本属性，而不是填充或边框？Paste-special不适用于cut afaik，但我也有代码在每次更改后运行，这使得手动paste-special无法使用(afaik)。作为参考--尽管我怀疑这有什么关系--我运行的代码是在一个半扭曲的环形棋盘上下棋。再说一次，我的问题与此无关
浏览 25提问于2021-04-27得票数 0
我可以通过使用SEEK和NOMATCH的VBA代码来做到这一点。但我知道这样做效率不高。如果我尝试使用这个代码，它不能工作：FROM TBL_SALES, TBL_CUSTOMERSWHERE TBL_SALES.CUSTOMER_ID <> TBL_CUSTOMERS.CUSTOMER_ID
我意识到在SQL中必须有一个'SEEK‘命令，但我非常确定这是一个运行这个查询的更
浏览 0提问于2011-12-05得票数 1
回答已采纳
1回答
我正在尝试在vba中创建一个高级筛选器，并将唯一的内容粘贴到新的工作表中。然而，我收到一个错误，指出“变量未定义”-请注意，我是一个完全的VBA初学者 我正在尝试从工作表中复制值并将其粘贴到新的工作表中。然而，有重复的，我已经尝试了vba中的高级筛选方法。仅当某个选择列中有1个或2个为空时，才应用数据副本。如果不为空，则复制A列中的值，并将其粘贴到新的工作表中。并且只粘贴唯一值。但是，使用上面的<e
浏览 35提问于2019-09-30得票数 2
回答已采纳
2回答
我是VBA的新手，正在编写一段代码，仅当同一行中的单元格值“完成”时才复制范围。Sub Move()
Set r = Range("O1:O1000
浏览 1提问于2016-10-12得票数 1
我必须在VBA中创建一个简单的宏，当我从Excel中更改单元格值时，它会更改该单元格的值。例如，我将单元格的Excel值更改为100，这会触发宏，这会将此单元格值增加为1。我成功了，但问题非常奇怪……这个宏会触发84-86次我不知道为什么VBA要这样对我，但我也不知道如何处理这个问题。Private Sub Worksheet_Change(ByVal Target As Range)
Dim Key
浏览 1提问于2017-02-19得票数 0
扫码
添加站长 进交流群
领取专属 10元无门槛券
手把手带您无忧上云
相关资讯
热门标签
云服务器
ICP备案
对象存储
实时音视频
即时通信 IM活动推荐
腾讯云开发者
