VBA错误Range类的PasteSpecial方法失败
是指在使用VBA编程语言中，通过Range对象的PasteSpecial方法进行粘贴操作时出现的错误。该方法用于将剪贴板中的内容粘贴到指定的单元格或区域。
在VBA中，Range类是用于表示Excel工作表中的单元格或区域的对象。PasteSpecial方法是Range对象的一个成员方法，用于将剪贴板中的内容以特定的格式粘贴到目标单元格或区域。
当使用PasteSpecial方法进行粘贴操作时，可能会出现失败的情况。这可能是由于以下原因导致的：
- 剪贴板中的内容与目标单元格或区域的格式不兼容：如果剪贴板中的内容与目标单元格或区域的格式不匹配，就会导致粘贴失败。例如，如果剪贴板中的内容是文本格式，而目标单元格或区域的格式是日期格式，那么粘贴操作就会失败。
- 目标单元格或区域的大小与剪贴板中的内容不匹配：如果目标单元格或区域的大小与剪贴板中的内容的大小不匹配，就会导致粘贴失败。例如，如果剪贴板中的内容是一个区域，而目标单元格只是一个单元格，那么粘贴操作就会失败。
- 目标单元格或区域被保护或只读：如果目标单元格或区域被设置为保护或只读，就无法进行粘贴操作，会导致粘贴失败。
为了解决VBA错误Range类的PasteSpecial方法失败的问题，可以采取以下措施：
- 检查剪贴板中的内容与目标单元格或区域的格式是否匹配，确保它们兼容。
- 确保目标单元格或区域的大小与剪贴板中的内容的大小匹配。
- 检查目标单元格或区域是否被保护或只读，如果是，解除保护或只读状态。
如果以上措施都没有解决问题，可以尝试使用其他方法进行粘贴操作，例如使用Value属性将剪贴板中的内容直接赋值给目标单元格或区域。
腾讯云相关产品和产品介绍链接地址： 腾讯云提供了一系列云计算相关的产品和服务，包括云服务器、云数据库、云存储等。您可以访问腾讯云官方网站（https://cloud.tencent.com/）了解更多信息。
相关·内容
2回答
我正在尝试将剪贴板内容粘贴到单元格"A1“中
Range("A1").PasteSpecial xlPasteValues
但是我得到了“Range类失败的PasteSpecial方法”错误！
感谢你的帮助！
浏览 1提问于2020-03-22得票数 0
回答已采纳
我使用以下VBA代码并将其分配给一个按钮：
Sub pastespecial ()
ActiveSheet.Range("A4:X400").Copy
Activesheet.Next.Range("A4:X400").PasteSpecial Paste:=xlPasteFormats
ActiveSheet.Next.Range("A4:X400").PasteSpecial paste:=xlPasteFormulas
ActiveSheet.Previous.Activate
Application.CutCopyMode = Fa
浏览 1提问于2018-03-16得票数 0
1回答
我有一个VBA代码，在粘贴可见单元格时得到1004错误：
Range类的PasteSpecial方法失败
我可以注释掉粘贴，它会复制可见的单元格，这样我就可以手动粘贴它们，但是自动粘贴会导致错误。我已经确认了工作表的名称是正确的，并尝试了各种类型的粘贴特殊和只有.Paste。
这是我的密码：
'Copies Column A visible rows
Sheets("Sheet1").Range("$A$2:$A$" & lastRow).SpecialCells (xlCellTypeVisible).Copy
'Empti
浏览 2提问于2017-02-11得票数 1
回答已采纳
我在为一个唠叨的问题而挣扎。我试图简单地使用VBA在XLS工作表中复制和粘贴一个单元格论坛集。工作表(wks1)是从AccessDB创建和填充的，否则工作正常。
错误：“Range类的PasteSpecial方法失败”
wks1.Range("P5:S5").Copy
wks1.Range("P5:S10").PasteSpecial _
Paste:=xlPasteFormulas, _
Operation:=xlNone, _
SkipBlanks:=False, _
Transpose:=False
浏览 2提问于2016-02-18得票数 1
回答已采纳
从Excel中的VBA项目中，我希望打开另一个工作簿，复制工作表的内容并将其粘贴到正在运行项目的工作表中。我基本上是在尝试创建一个恢复功能。
我创建了下面的宏来完成工作。
Sub CopyandPaste()
'
' CopyandPaste Macro
'
'
Workbooks.Open Filename:= _
"C:\ Backup-File.xlsm"
Cells.Select
Selection.Copy
Windows("Current_File.xlsm").Act
浏览 1提问于2018-08-10得票数 1
大家好，我是vba的新手，我正在尝试捕捉我的工作表上的所有ctrl+v事件，并将剪贴板上的任何内容粘贴到当前选定的单元格中。大多数情况下，我想要复制的是来自firefox或记事本的文本。但是，只有当我试图粘贴到itself本身(在单元格编辑模式下)时，代码才能正常工作。
Private Sub CopyPaste()
'PasteSpecial Values Only
ActiveCell.PasteSpecial Paste:=xlPasteValues, skipblanks:=True
这返回一个运行时错误1004 range类的特殊方法失败，我也尝试过这样做，但它
浏览 5提问于2018-11-09得票数 2
回答已采纳
我有以下简单的VBA例程将CTRL+Shift+V绑定，以便在Excel中按值复制和粘贴
Sub PasteValue()
Selection.PasteSpecial _
Paste:=xlPasteValues _
, operation:=xlNone _
, SkipBlanks:=False _
, Transpose:=False
End Sub
当我试图粘贴来自剪切的值，而不是复制时，我收到以下错误，
错误1004，类范围的PasteSpecial方法失败“
我如何修改上述程序，以工作时，切割以及复
浏览 3提问于2014-12-10得票数 2
我的公式有问题。检查下面的代码。
With Worksheets("L.NAM.O")
With .Cells.Find(What:="record ID", After:=ActiveCell, LookIn:= _
xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:= _
xlNext, MatchCase:=False, SearchFormat:=False)
.Parent.Rang
浏览 4提问于2016-11-18得票数 0
回答已采纳
我正在编写一个VBA代码，但是会导致一个错误，但是当我用F8手动调试时，它会导致一个错误。
错误1004，来自clase范围的methode粘贴特殊失败
这是代码：
Private Sub CopyStep(wsOutp As Worksheet, ByVal sAdobeFile As String, ByVal sPath As String)
ActiveWorkbook.FollowHyperlink sPath & sAdobeFile
AppActivate "Adobe Acrobat Reader DC"
SendKey
浏览 0提问于2018-08-09得票数 1
回答已采纳
我正在尝试编写一个VBA宏，它将转置Excel工作簿中每个工作表上的数据(将列转换为行，将行转换为列)。
我尝试过以下代码的不同版本，但PasteSpecial在循环中似乎会导致问题。
Dim WS_Count As Integer
Dim i As Integer
WS_Count = ActiveWorkbook.Worksheets.Count
For i = 1 To WS_Count
Worksheets(i).UsedRange.Copy
Worksheets(i).Cells.ClearContents
Worksheets(i).Range("
浏览 1提问于2019-10-02得票数 0
3回答
我有一些VBA代码，它告诉我“运行时错误1004: Range类的PasteSpecial方法失败”。
这是我的代码：
Sub CurrentToOld()
rownumber = ThisWorkbook.Sheets("As-Built Emergency").Range("A1", Worksheets("As-Built Emergency").Range("A2").End(xlDown)).Rows.Count
ThisWorkbook.Sheets("As-Built Emergency").Acti
浏览 1提问于2015-08-01得票数 0
3回答
我有使用C/C++的经验，但我对VBA和Excel还不熟悉。
我所拥有的是：
Range("A7:L7").Select
Selection.Copy
Range("R18").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
'One column copied
问题是我想遍历整个单元格范围(从A6:L6一直到A41:41)。
我试着查找循环，但我不能确切地理解选择范围时索引是
浏览 1提问于2013-10-06得票数 3
3回答
我一直在寻找一种在excel vba宏中多次使用.PasteSpecial的解决方案。我的报告有时可能有数千行。在这些报告中有两列，我需要合并这些列，以便如果其中一列有空格，我想要第二列中的值；否则，只保留第一列中的值。我需要在两个不同的地方应用两次。这些都被塞进了一个更大的代码中。 我的解决方案是通过“跳过空白”来利用.PasteSpecial。excel处理起来很快，比逐行循环快得多。问题是代码总是在excel中崩溃。 经过调试，这是我到目前为止所学到的：*第一个.PasteSpecial总是可以工作的，但是当它到达第二个.PasteSpecial时，它总是失败。*我试着在第一个.Pas
浏览 33提问于2021-07-22得票数 0
回答已采纳
2回答
我必须重复复制VBA excel中的多个行。
有没有人知道一些更短的解决方案？
我目前的解决方案如下所示：
'Select row with sun altitude values
Range("A11:A277").Select
Selection.Copy
Range("EE11:EE277").PasteSpecial xlPasteValues
'Select row 11
Range("B11:EB11").Copy
Range("EF11").PasteSpecial xlPasteValues
Ran
浏览 0提问于2018-08-20得票数 0
回答已采纳
我试图使用一些VBA代码复制一个单元格的范围，并将其值粘贴到下一个空行2111次。
这成功地粘贴到754507行之后，它就崩溃了。
我可以在调试中看到，它停止在第1000循环。
Option Explicit
Sub Paste_APIROWS()
Application.ScreenUpdating = False
Dim i As Long
Range("A2:H754").Copy
For i = 1 To 2111
Range("A2:H754" & i).PasteSpecial Paste:=xlPasteValues
D
浏览 0提问于2019-05-05得票数 1
我希望从工作簿中复制一个范围，并将其转到当前的工作表中。
为什么我会在这一行中得到一个“子脚本超出范围”的错误：
Workbooks("Libraries\Documents\Book1.xlsx").Worksheets("Sheet1").Range("A1:A5").Copy
Sub PasteSpecial_Examples()
'https://stackoverflow.com/questions/8852717/excel-vba-range-copy-transpose-paste
'https://www
浏览 3提问于2017-12-22得票数 1
回答已采纳
我正在尝试使用下面提到的一段VBA代码，但它给出了一个错误消息: PasteSpecial方法of Range类失败
pastesheet.Range("C13:C300").Find(what:=cntr, LookIn:=xlValues).Offset(0, -2).PasteSpecial xlPasteValues
粘贴表是我要在其中查找find cntr (来自不同工作簿中不同工作表的值)的目标工作表。之后，我想用之前复制的整个新行替换找到cntr的行。
有没有人能帮我解决这个问题？
浏览 1提问于2014-10-01得票数 0
在工作表中插入图片(并保存在文档中)有问题。我不是VBA方面的专家，所以我真的需要有人帮我找到错误。
以下是代码：
copy/paste image0 Sheets("Ficha_AMV").Select Range("c3").Select Selection.Copy ws.Select Range("c3").Select 'ActiveSheet.Paste ActiveSheet.PasteSpecial Format:="Picture (JPEG)", Link:=False, _ DisplayAsIcon
浏览 1提问于2018-03-26得票数 1
回答已采纳
我正在尝试编写一个宏来复制表(颜色、格式等)。每天(星期一、星期二、星期三、星期四和星期五)的纸张和同一天粘贴到纸张(262张)的纸张。(星期一至星期一等)我在表格“数据”中使用的单张名称。
但我发现了一个错误：
运行时错误'1004'：方法PasteSpecial类范围失败。
这是我的VBA宏：
Sub copy_paste()
For i = 1 To 262
If 1 = i Mod 5 Then
Worksheets("wednesday").Activate
Cells.Select
Appl
浏览 3提问于2019-12-01得票数 0
回答已采纳
1回答
当我试图运行这个循环时，我会得到一个错误：Cell.Value.Copy行中需要的对象。我需要做些什么来修复这个错误？
Sub Findings()
Application.ScreenUpdating = False
Dim Cell As Object
Dim Rng As Range
Set Rng = Sheets("Sheet1").Range("C5:C74")
For Each Cell In Rng
If (Cell.Value <> "") Then
Cell.Value.Copy
End If
浏览 3提问于2016-12-15得票数 0
回答已采纳
下面是抛出此错误的代码：
Range类的 PasteSpecial方法失败
只有当我试图调试时才会抛出错误。
Range(Cells(7, 1), Cells((Rowrange + 7), 2)).Select
Selection.PasteSpecial Paste:=xlValues
' my complete code
strSheetName = "sheet1"
Sheets(strSheetName).Select
B6 = Range("B6").Value
B7 = Range("B7").Value
Ran
浏览 0提问于2012-06-04得票数 3
回答已采纳
2回答
我连续有一些公式。我想把它们复制到我剩下的数据的末尾。
使用普通公式时，下列代码工作：
With Sheets("Sheet1")
Set formRange = Range(.Range("G2"), .Range("O2").End(xlToRight))
formRange.Copy
formRange.Resize(Range("D" & Rows.Count).End(xlUp).Row - 1).PasteSpecial Paste:=xlPasteFormulas
Applic
浏览 6提问于2014-08-05得票数 0
回答已采纳
1回答
我有下面这段Excel VBA代码。现在我必须把它们放在一个循环中&参数化它们。
Countruz2 = 2
Countruz3 = Countruz2 + 13
Range("A2:A15").PasteSpecial (xlPasteValues)
下面是我尝试过的--3个变种都失败了:无效使用属性错误。
' Range ("A" & Countruz2 & ":" & "A" & Countruz3)
浏览 2提问于2018-07-11得票数 1
我录制了一个宏，该宏试图从表格外部的单元格复制信息，并将其粘贴到同一工作表中表格的新行中。尝试运行宏时收到“运行时错误'1004'：Range类的PasteSpecial方法失败”。问题似乎出在第一行： Selection.PasteSpecial Paste:=xlPasteValues，主板，Operation:=xlNone，SkipBlanks _ :=False，Transpose:=False 我在这个模块中有一个粘贴特殊代码的集合，所以我担心这第一行可能不是唯一的问题。下面是我到目前为止拥有的代码。 Sub PlaceOrder()
'
' Pl
浏览 27提问于2021-06-22得票数 0
回答已采纳
问题：
因为.xlsb (这里称为TheirFile.xlsb)每周从第三方下载两次，所以VBA脚本必须由.xlsm (MyFile.xlsm)保存。这个过程很简单: Focus TheirFile.xlsb对数据(第3行的标题)应用一些过滤器，选择单元格AW2并复制值(它包含一个公式，这可能是问题发生的地方)焦点MyFile.xlsm选择单元格J28并粘贴...pastespecial xlPasteAll
但是，在检查代码和点击运行时，我在单元格中什么也得不到。
尝试：
它们中的大多数几乎是完全相同的，而且以我(试图)修复错误的方式，我真的不记得所有这些。
我用变体
Workbooks(&
浏览 0提问于2020-07-18得票数 0
2回答
我对VBA相当陌生，并且正在为我们的员工计时做一个总结。我在图1下面格式化的报告中有员工信息，但希望设置一个按钮，将其导出到图2所示格式的年度表(另一个工作表中)，在一个月底编译薪资之后。
每个员工的报告是什么样子的：(我希望所有的单元格都是绿色的)
上面看到的报告列表--与55+员工相同的布局--这个列表继续向下，偏移量为42。
如何格式化从每个员工中获取的数据：
目前，我已经编写了适用于第一名员工的代码(见下文)，但我需要复制相同的单元格，偏移量为42个单元格，下降约55次，同时将年度摘要页向下偏移一个以移动到新行。我很感激我的代码可能非常混乱，所以如果对此有
浏览 0提问于2018-05-24得票数 1
回答已采纳
错误发生在ActiveSheet.Cells(q,1).Offset(2,1).PasteSpecial.xlPasteValues
想知道为什么我会遇到一个运行时错误1004。它提到信息不能粘贴，因为复制区域和粘贴区域不是相同的大小和形状。这附近有工作吗？
For i = 1 To testrows
For j = 1 To testcols
If (range1.Cells(i, j).Value <> range2
浏览 1提问于2015-07-06得票数 1
回答已采纳
1回答
我正在运行一个包含多个复制粘贴进程的VBA宏。然而，使用.copy (目的)提供了一个“Range类的复制方法失败”。这是密码。
Dim Prop As Range
Dim propo As Range
Set Prop = sha.Range("B6")
Set propo = Sheets("Summary").Range("B1")
Prop.Copy (propo)
然而，我在这个问题上发现了一个奇怪的地方。我使用的不是.copy (目的)，而是.copy，然后是.PasteSpecial：
Dim Prop As Range
Dim p
浏览 5提问于2015-12-17得票数 0
回答已采纳
此VBA代码已开始返回错误消息：“运行时错误'1004'：”Range类的PasteSpecial方法失败“
我使用VBA代码将一些单元格复制并粘贴到下一行。我经常连续运行几次。它从来不会在第一次传递时失败。在开始失败之前，它工作了很多年。
Sub CopyInfoToLineBelowSamePO_Ctrl_Shft_Y()
'
' CopyInfoToLineBelowSamePO_Ctrl_Shft_Y Macro
'
' Keyboard Shortcut: Ctrl+Shift+Y
'
Selection.Copy
浏览 16提问于2017-01-14得票数 2
回答已采纳
在过去的两周里，我一直沉浸在VBA中。这很好，但自上周以来，我一直在努力解决以下错误："VBA方法‘范围内的对象’_Worksheet失败“，这一行代码：
wsSource.Range(Cells(7, ColumnNr), Cells(lrowSource, ColumnNr)).Copy
我找不到解决办法。
这是整个VBA代码：
Sub CopyColums()
Application.ScreenUpdating = False
cPath = "H:\2017\"
ChDrive cPath
ChDir cPath
cFile = Application.G
浏览 6提问于2017-03-27得票数 0
回答已采纳
我需要在床单之间传送一张图几次。
图表从表中获取数据，表中的数据根据列表中的选择进行更改。
宏循环通过这个列表，并在每个循环中复制/粘贴图形作为图片到一个新的工作表。
复制/粘贴代码
Worksheets(redemp).ChartObjects("Chart 6").Copy
pasteRow = pasteRow + 24
Worksheets(pdf).Cells(pasteRow, pasteCol + 1).PasteSpecial xlPasteValues
是否有比复制/粘贴更好的方式在纸张之间传递图形？
当我运行宏(通过通过任务调度程序运行的VB脚本)和
浏览 4提问于2015-06-26得票数 1
我刚刚开始熟悉VBA和我的代码
For k = 3 To ThisWorkbook.Sheets.Count
ThisWorkbook.Sheets(k).Activate
ActiveSheet.Cells(11, 2).Select
lLastRow = Cells(Rows.Count, 1).End(xlUp).Row
ActiveSheet.Range("A5:" & "A" & CStr(lLastRow)).Copy
' ThisWorkbook.Sheets(1).Cells("B" & CStr
浏览 4提问于2014-03-05得票数 1
回答已采纳
1回答
VBA宏引发运行时错误'1004'：Range类的PasteSpecial方法失败
仅当宏在PC上运行时才会抛出此错误。在Mac上，宏可以无缝运行。下面的宏会抛出错误吗？
Option Explicit
Sub DCR()
Dim J As Integer
Dim K As Integer
Dim L As Range
Dim sDay As String
Dim sMonth As String
Dim sTemp As String
Dim iTarget As Integer
Dim dBasis As Date
Dim Wb As Workbook
Dim Wb2 As
浏览 2提问于2015-12-16得票数 0
我有一个用excel编写的vba脚本，一直运行到几天前它变得变化无常。我有四个已命名范围的工作表，我正在复制名称范围，并粘贴到有今天日期的列中。此宏在第二次日期查找(Sheet2)，然后在(Sheet4)上失败。
如果我试图再次运行它，它似乎失败了，然后在所有的日期查找。这段代码甚至在没有错误的情况下简短地意识到了该做什么并执行了什么，然后才返回到重新运行时的错误。
我得到了
运行时错误91:对象变量或块未设置
让我感到困惑的是，在过去的一年里，直到大约一周前，这种做法一直运转良好。任何帮助都将不胜感激。
Sub Test()
Range("Sheet1").Copy
浏览 0提问于2018-11-08得票数 0
我有一张数据表，在我的数据范围列O中有两个值，new或previously，这两个值基于另一个带有公式的列。我希望遍历O列中的每个单元格，查看哪些单元格是新的，并仅将其粘贴为值。现在我收到了next without for错误。
下面是我的vba代码中失败的部分。
'Values
With ActiveSheet.Range("O:O")
Dim x As Long
For x = 100 To 2 Step -1
If Cells(x, 15).Value = "New" Then
Cells(x,
浏览 4提问于2018-07-26得票数 0
回答已采纳
1回答
作为循环过程的一部分，我正在尝试将单元格e2和f2的内容的单元格值粘贴回这些相同的单元格中，该循环过程逐行重复此任务(下一行将对e3和f3重复相同的过程，然后是e4和f4，依此类推，直到到达B列中的空单元格。 以下是我无法理解的代码子集(它返回错误1004，Range类的PasteSpecial方法失败： tickersSheet.Range("E2").Offset(counter, 0).Copy
tickersSheet.Range("E2").Offset(counter, 0).PasteSpecial Paste:=
浏览 20提问于2021-01-19得票数 1
回答已采纳
我有一个模板，它用来自另一个工作簿的销售数据填充某些单元格，但是另一个工作簿每个月都有一个新名称。当我试图分配一个变量作为工作簿名称，以便它每次都能找到它时，我不能让index/match函数工作。不确定错误在哪里，但这是VBA脚本失败的地方...
Sub GetNetSales()
Dim Period As String
Dim NS As Workbook
Dim Can As Workbook
Dim BookName As String
Period = Range("Per").Value
Set Can = Th
浏览 1提问于2015-08-05得票数 1
2回答
我已经看过VBA中复制粘贴的代码。当你使用.PasteSpecial时，Paste:=和()之间有什么区别吗(只需使用括号)；例如：
Worksheets(1).Range("A2").PasteSpecial Paste=:xlPasteValues
或
Worksheets(1).Range("A2").PasteSpecial (xlPasteValues)
这有什么不同吗？
浏览 3提问于2020-08-20得票数 0
我仍然是VBA的新手，但我决定使用VBa来简化我正在为我们的工资单工作的月度报告将是最有效的方式，我希望导出一个范围I3:U2270到一个新的工作表命名从摘要工作表中的单元格。除了格式化之外，一切都很好；
如果我使用xlPasteAll，格式是完美的，但它将值显示为公式。
如果我使用：
.PasteSpecial Paste:=xlPasteValuesAndNumberFormats
.PasteSpecial Paste:=xlPasteColumnWidths
.PasteSpecial Paste:=xlPasteFormats
数据和单元格的宽度是完美的，但是因为一些数据在表中，所以
浏览 0提问于2018-05-16得票数 0
2回答
我试图使用VBA将一个工作表复制到另一个工作簿。但是，当涉及复制行时，我会收到应用程序定义的错误或对象定义的错误。
Dim x As Workbook
Set x = Workbooks.Open("S:\INM\MME9EG\Zahlenwerk MMA2EG Equities\DHN\DHN_Europa.xls")
x.Sheets("Bericht_799026").Range("B4:IV150000").Copy _
ThisWorkbook.Sheets("DHN Europe 799026"
浏览 3提问于2017-02-03得票数 0
回答已采纳
我有一个VBA宏，我用它来修正工作表中的日期，所以它结合了日期和时间。日期是B格式，不是我想要的格式，是dd/mm/yyyy，时间是D，是对的，hh:mm
这样做的目的是将日期和时间结合起来，最终得到正确的结果填充列B，覆盖现在的内容。我的代码可以完成日期和时间的组合，然后选择单元格并将结果复制到最后一行数据，然后复制所有该列并将值粘贴到B列中。
这是我有的东西
Sub Combine_date_and_time()
Dim ws As Worksheet
Set ws = Worksheets("predictology")
ws.Range(&#
浏览 4提问于2020-07-28得票数 0
回答已采纳
我是VBA的新手。
将数据从一个工作簿中的列转换到另一个工作簿中，因为行会引发错误。尝试过来自Stack溢出和其他地方的建议，但没有成功。
Range类的错误运行时错误1004 -> PasteSpecial方法失败
代码：
Sub Button1_Click()
Dim MyFile As String
Dim erow
Dim FilePath As String
FilePath = "C:\trial\"
MyFile = Dir(FilePath)
Do While Len(MyFile) > 0
If MyFile = "here.xls
浏览 4提问于2015-12-21得票数 0
回答已采纳
我正在用Excel编写VBA，我有一个带有一些数字的单元格，我有一个“购物车”范围，当我单击按钮时，我想要将单元格值复制到“购物车”，但是如果购物车中的第一行已经满了，它应该移动到下一行，直到它找到一个行，然后将其粘贴到那里。
我试着去做，但有个问题
Sub Gumb1_Klikni()
Range("B1").Select
Selection.Copy
Range("J2").Select
If IsEmpty(ActiveCell) Then
Selection.PasteSpecial xlPasteAll
Else
Set
浏览 1提问于2017-06-04得票数 0
回答已采纳
我有这个VBA代码
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Not Intersect(Target, Range("rngBarcodeInput")) Is Nothing Then
If Application.CutCopyMode = xlCopy Then
Application.Undo
Target.PasteSpecial Paste:=xlP
浏览 0提问于2018-09-20得票数 0
我想通过查找E列中的所有空白条目来筛选工作簿，然后将区域复制到下一个可用行的另一个工作簿中。当我运行我的代码时，我得到一个错误‘运行时错误’1004 - PasteSpecial方法的范围类失败？？我如何调试它才能复制我的区域并粘贴到其他工作簿中？
我刚刚开始学习VBA，我从google和youtube视频中学到了大部分知识。我已尝试更改空白"“的值，我已尝试添加application.cutcopymode false
Sub MoveUnworkedtoDB()
`Dim wbk As Workbook
Dim sh As Worksheet
Dim Lastrow As
浏览 0提问于2019-10-26得票数 0
1回答
我正在尝试创建一个宏，该宏根据每行开头的标签将动态范围从一个工作表复制并粘贴到另一个工作表。我在列"O“上有标签为'ItemHeader'，'ItemInfo'，'ItemDesc‘和'ItemURL’，并且在列"AE”上有关于这些行的一些信息。SA有一个定义的宽度，但我需要根据它在每一行的标题来调整每个范围。我需要找到每组标签的开始和结束位置来定义我的范围，然后将它们复制并粘贴到另一个工作表中。诸如“ItemDesc”之类的每组信息都在一起。 我的想法是在不同的工作表上使用相同的宏，因为这个模板将在相同的列("O:AE
浏览 20提问于2020-08-14得票数 0
当我在VBA中使用命名范围时，我得到错误“该命令不能用于多个选择”。
VBA被用来导出一个公式，这个公式很好，但是我只想粘贴这些值。
Set rngCopy = rngCopy.Offset(0, 10).SpecialCells(xlCellTypeVisible)
rngCopy.Activate
rngCopy.Value = _
"=IF(RC[-10]="""","""",IF(WEEKDAY(RC[-10])=2,RC[-10]-3,IF(WEEKDAY(RC[-10])<>2,RC[-
浏览 5提问于2013-10-04得票数 0
1回答
我是VBA的新手，所以我可能会问一些非常基本的问题--对不起！我有一个包含一系列记录的工作表，我想将其移动到另一个名为“7月存档”的工作表中。我正在使用这段代码，我知道这会覆盖“七月档案”中的目标单元格。但是我得到一个错误，说pasteValue操作失败。
另外，我如何才能追加单元格而不是覆盖。我尝试过PasteAppend，但得到一个错误，说对象不支持它。
Sub Selectweeklyreport()
ActiveSheet.Range("a16", ActiveSheet.Range("f16").End(xlDown)).Cut
Ac
浏览 0提问于2012-07-11得票数 0
2回答
使用相对引用
、、、、
作为VBA的新手，我喜欢在这段代码中输入一些东西，以提高它的速度……目前感觉并不是那么"VBA"-ish；但是代码的“结果”是正确的……
Sub Rigtig()
Set Marketshare = Sheets("Output").Range("p40:p50")
'Select.
Sheets("Output").Select
Cells(38, 17).Copy
Sheets("Input").Select
Cells(33, 28).Select
Selection.Past
浏览 1提问于2018-11-16得票数 2
我目前在运行vba时面临上述错误，如下所示(这里是vba新手)。你能看看是什么导致了这个错误吗？我使用这个脚本来解析excel中包含大约65000行的文本文件中的信息。当我单击“debug”时，它会突出显示此行
If Cells(i, 2).Value = "Type: Error" And Cells(i + 5, 2).Value = " STATUS : FAILURE" Then"
谢谢。
Sub color()
Dim i As Long
Dim j As Long
j = 0
ActiveSheet.Name = "
浏览 11提问于2021-12-11得票数 0
扫码
添加站长 进交流群
领取专属 10元无门槛券
手把手带您无忧上云
相关资讯
热门标签
云服务器
ICP备案
对象存储
即时通信 IM
腾讯会议活动推荐
腾讯云开发者
