运行时错误'1004‘：尝试将具有匹配条件的行从一个表复制到另一个表时，Range类的PasteSpecial方法失败
运行时错误'1004'是指在复制具有匹配条件的行时，Range类的PasteSpecial方法失败。这种错误通常出现在使用VBA（Visual Basic for Applications）进行宏编程时，操作Excel等表格数据时常见。
为了解决这个错误，我们可以采取以下步骤：
- 检查代码逻辑：首先，我们需要检查代码中涉及复制和粘贴的部分，确保语法正确并且逻辑正确。特别注意复制和粘贴的目标范围是否正确。
- 检查表格是否存在：确认源表和目标表是否存在，并且在代码中正确地引用它们。如果表格不存在，可能会导致此错误。
- 检查目标表的工作簿是否已打开：如果目标表所在的工作簿没有打开，则无法使用PasteSpecial方法进行粘贴。确保目标表所在的工作簿已打开。
- 确保选择的区域大小相同：在使用PasteSpecial方法时，源表和目标表的选择区域大小必须相同。如果大小不匹配，会导致此错误。可以在代码中添加错误处理，确保选择的区域大小一致。
- 确保目标表没有保护：如果目标表被保护，可能无法使用PasteSpecial方法进行粘贴。在进行粘贴操作之前，可以通过解除保护来确保目标表可以接受粘贴操作。
腾讯云的相关产品可以提供强大的云计算支持，包括云服务器、对象存储、数据库等。您可以根据实际需求选择适合的产品来支持您的应用。
- 腾讯云云服务器（CVM）：提供弹性、安全、高性能的云服务器，可满足各种计算需求。产品介绍：腾讯云云服务器
- 腾讯云对象存储（COS）：提供可靠、安全、低成本的对象存储服务，适用于存储和传输任意类型的文件和数据。产品介绍：腾讯云对象存储
- 腾讯云数据库（TencentDB）：提供多种类型的数据库服务，包括关系型数据库（MySQL、SQL Server、PostgreSQL）、NoSQL数据库（MongoDB、Redis）等。产品介绍：腾讯云数据库
通过使用腾讯云的产品，您可以快速搭建、扩展和管理您的云计算环境，提高应用的稳定性和性能。
相关·内容
1回答
我在从一个电子表格复制和粘贴到另一个电子表格时遇到了问题。
我使用了以下代码：
Sub LoadnH()
Dim NF As Workbook
Dim shtMain As Worksheet
Set shtMain = Worksheets("Main")
Dim filePath As String
Dim strFileName As Variant
strFileName = Application.GetOpenFilename("All Files (*.*), *.*", , "Select File to Import"
浏览 1提问于2021-05-11得票数 0
我想打开一本工作簿，然后从打开的工作表复制到我的工作簿上，如下所示：
Private Sub Workbook_Open()
Dim openedFile As String
Dim sourcebook As Workbook
openedFile = Application.GetOpenFilename(fileFilter:="Excel Macro-Enabled Workbook (*.xlsm), *.xlsm") 'Source book opening
Set sourcebook = Workbooks.Open(o
浏览 7提问于2016-05-24得票数 0
1回答
正在尝试将Excel上的透视表从一个页面复制并粘贴到另一个页面。代码可以工作，但它不粘贴格式。
Sub TestPivotPaste()
Dim wb As Workbook
Dim sh As Worksheet
Dim sh1 As Worksheet
Dim copyrange As Range
Set wb = ActiveWorkbook
Set sh = wb.Worksheets(8)
Set copyrange = sh.Range("A1:Z50")
Set sh1 = wb.Worksheets(9)
copyrange.Copy
sh1.Range(
浏览 14提问于2019-08-22得票数 2
1回答
我试图从每天生成的电子表格中提取列。我正在使用宏来执行此操作，我打算将其保存在电子表格中，每天将数据复制到此表中，然后导出结果。宏如下：
Public Sub extractCol()
Set Range1 = Range("O,P,Q,Y,AA,BT,BU")
Range1.Copy
Set newbook = Workbooks.Add
ActiveCell.PasteSpecial Paste:=xlPasteValues
End Sub
我说错了：
运行时错误1004对象_global的方法范围失败。
这与Set Range1 ...行有关；我没有向电子表格中添加任
浏览 13提问于2022-01-21得票数 0
大家好，我是vba的新手，我正在尝试捕捉我的工作表上的所有ctrl+v事件，并将剪贴板上的任何内容粘贴到当前选定的单元格中。大多数情况下，我想要复制的是来自firefox或记事本的文本。但是，只有当我试图粘贴到itself本身(在单元格编辑模式下)时，代码才能正常工作。
Private Sub CopyPaste()
'PasteSpecial Values Only
ActiveCell.PasteSpecial Paste:=xlPasteValues, skipblanks:=True
这返回一个运行时错误1004 range类的特殊方法失败，我也尝试过这样做，但它
浏览 5提问于2018-11-09得票数 2
回答已采纳
我已经创建了下面的代码，它工作到一定程度，然后得到一个运行时错误1004。有人能帮忙吗？错误对话框显示“Range Class的PasteSpecial方法失败”，并突出显示第一个.PasteSpecial行。
Sub CopyPO()
'
' CopyPO Macro
'
'
Dim rngPrintArea As Range
Set rngPrintArea = ActiveSheet.Range(ActiveSheet.PageSetup.PrintArea)
With Sheets("Inventory").Range(&#
浏览 4提问于2017-05-01得票数 2
回答已采纳
我有一个来自R的数据，需要粘贴到打开的Excel电子表格的第一个空行中。
我试过很多东西。
此代码引发“运行时错误'1004'：应用程序定义的或对象定义的错误”。
Dim NextRow As Range
Set NextRow = Range("B" & Sheets("TC-9").UsedRange.Rows.Count + 1)
Worksheets("TC-9").Range("A" & NextRow).PasteSpecial Paste:=xlPasteValues, Operati
浏览 7提问于2016-12-06得票数 0
回答已采纳
我希望将一个特殊格式/格式的行(从模板工作表中)粘贴到主工作表上正在修改的同一行上。这是我到目前为止所得到的，但是得到了一个运行时错误1004：
“远程类的PasteSpecial方法失败”
Private Sub Worksheet_Change(ByVal Target As Range)
Dim KeyCells As Range
' The variable KeyCells contains the cells that will
' cause an alert when they are changed.
Set KeyC
浏览 3提问于2014-01-31得票数 2
回答已采纳
我编写了一个宏，根据工作表"ProjList“中的列表创建可变数量的工作表。每个工作表都是在创建时命名的。我试图将一些单元格(A列)中的值从"ProjList“复制到新的工作表中。我已经用粘贴命令成功地完成了这个任务，但是我希望数据被转换。
我写过：
Sub AddWorkSheets()
Dim RowNumb As Long
Dim LastRow As Integer
LastRow = Worksheets("ProjList").Cells(Worksheets("ProjList").Rows.Count, &
浏览 2提问于2017-12-07得票数 0
当“目标”工作簿的顶部单元格与工作表的名称匹配时，我只是尝试将值从一个工作簿复制并粘贴到另一个工作簿。
但在大多数情况下，它都会给出错误1004。有什么想法吗？
Sub Cycle()
Dim ws As Worksheet
Dim y As Integer
For Each ws In ThisWorkbook.Sheets
ActiveSheet.Name = Worksheets("Target").Cells(1, y)
Worksheets("Target").Range(Cells(2, y),
浏览 0提问于2017-04-20得票数 0
我正在尝试将excel表从一个工作簿复制到另一个工作簿。当试图复制范围时，我有运行时错误1004，使用变量x标识F列中最后一个非空单元格。
Sub button_click()
Dim x As Long
x = Range("F100").End(xlUp).Row
Set NewBook = Workbooks.Add
Workbooks("wb").Worksheets("ws").Range("A1:F36").Copy 'works
Workbooks("wb").Worksheets(
浏览 0提问于2019-04-23得票数 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
当我尝试将范围(“A1:Q20”)中的合并单元格从工作簿的一个工作表粘贴到单元格"F20“中的另一个工作表中时，出现此错误，如下面的代码所示。 With ActiveWorkbook.Sheets("Data")
Range("A1:Q20").Copy
dataworkbook.Close
End With
With ActiveWorkbook.Sheets("Destination Data")
Range("F20").PasteSpecial xlPasteAll
End With 但是，这只粘贴不是我想要的
浏览 107提问于2021-02-08得票数 0
回答已采纳
我想将一个表中的所有数据移动到其他4个表中。使用下面的代码，我得到了一个特殊的错误。该代码相当长，因此下面发布了相关的代码片段。 Set tbl2 = ws1.ListObjects("Table2")
Set tbl3 = ws2.ListObjects("Table3")
Set tbl4 = ws3.ListObjects("Table4")
Set tbl5 = ws4.ListObjects("Table5")
For i = 1 To tbl1.ListRows.Count
tbl1.ListRows(i)
浏览 9提问于2019-04-17得票数 1
回答已采纳
这是我的脚本的一部分，简单地循环将一些行从一个工作表复制到另一个工作表：
a = 3
With Sheets("ATD")
Do While .Range("A" & a) <> ""
If .Cells(a, 6).Value = "x" And .Cells(a, 8).Value = "y" Then
.Range(Cells(a, 1), Cells(a, 10)).Copy
Sheets("ART"
浏览 2提问于2016-11-28得票数 1
回答已采纳
这里有个奇怪的问题。
在我的一张excel表格上，我生成了一个pdf文档。
代码的运行方式是根据需要添加表的段，并根据需要手动设置分页符，这样表就不会散布在一页上。(大多数表格为5-10行)
在每一页的底部，有足够的行可以插入图像。该图像只是几个方块和一个文本框组合在一起，以提供免责声明和签名框。
目前，我一直在使用
Sheets(...).shapes(...).copy
sheets(...).cells(...).pastespecial paste:=xlpasteall
有几个
doevents
试着确保它能正确运行。
我不断遇到对象'shape‘的800401d0方法复
浏览 0提问于2021-04-20得票数 0
创建筛选数据表并将该数据复制到另一个工作簿的宏。 持续收到错误1004，将自动筛选突出显示为问题。grp变量标准适用于B列。 源数据在'thisworkbook‘中，数据的目标是活动工作簿。 任何想法都将不胜感激。我觉得我遗漏了一些简单的东西 dim grp as string
dim wb as workbook
set workbook = activeworkbook
grp = wb.Worksheets(1).Name
Debug.Print grp
With ThisWorkbook.Sheets("CS
浏览 25提问于2019-09-20得票数 0
我有以下简单的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
我正在尝试编写一个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
1回答
我试图复制数据从我的‘主’工作表，然后粘贴到我的'csv‘工作表。但是，当我尝试这样做时，我会得到一个运行时错误"'1004'：Range类的PasteSpecial方法失败“。
请查看下面的代码。它是'.Cells(1，2).PasteSpecial xlPasteValues‘的漏洞。谢谢。
With main
n = 1
For Each c In .Range("C1:C200")
If c.Value = "x" Then
浏览 0提问于2018-06-28得票数 1
回答已采纳
1回答
这似乎是一项简单的任务，但我总是遇到各种错误。我需要筛选工作表B，然后复制一列数据。然后，我需要筛选工作表A，然后将复制的数据粘贴到列中。
Worksheets("SheetB").Select
lastRowOne = Range("B" & Rows.Count).End(xlUp).Row
Range("DL2:DL" & lastRowOne).AutoFilter Field:=116, Criteria1:="<>Apples"
lastRowTwo = Range("B&
浏览 0提问于2016-09-15得票数 0
2回答
要求剪贴板内容的VB？
、、、、
我对VB PasteSpecial有问题。
这段代码在Excel中运行得很好(假设您已经选择了带有数据的单元格)
Selection.Copy
Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Application.CutCopyMode = False
但是，我使用的是第三方软件(QlikView)，从中提取数据，然后将其复制到Excel文档中。正常粘贴没有问题，但必须被转置。
显然
浏览 7提问于2012-04-26得票数 1
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
我试图从每个单元格逐个复制行中的值，然后逐个使用这些值作为工作表名称。我遇到的问题之一是跳过第一批表，所以我试图隐藏那些我不想重命名的页。所有其他纸张都应改名(其中34张)。
在收到一条错误消息：“运行时错误”1004‘L方法'PasteSpecial’of object'_Worksheet‘’失败之前，我可以使用F8获取“PasteSpecial”。
我也尝试过使用"Activesheet.PasteSpecial xlPasteValues“，但是它也给出了同样的错误。
任何建议都是非常感谢的，这让我发疯了。)我的备份计划只是简单地使用宏记录并手动执行每个重命名，
浏览 1提问于2016-06-20得票数 1
回答已采纳
1回答
Excel宏的目的是使用FileToOpen将范围从一个工作簿复制到另一个工作簿。今天早些时候，相同的代码在单独的工作簿中工作。
生成的错误是Runtime1004‘类的PasteSpecial方法失败。下面是失败的部分：
SrcWB.Worksheets("1").Range("A1:K35").Copy
TgtWB.Sheets("1").Range("A1:K35").PasteSpecial (xlPasteValues)
TgtWB.Sheets("1").Range("A
浏览 1提问于2015-06-30得票数 1
回答已采纳
在工作表中插入图片(并保存在文档中)有问题。我不是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
回答已采纳
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
回答已采纳
我正在尝试将不同工作表中的数据范围复制到一个工作表中。我写了下面的代码：
Sub sub1()
For i = 1 To 3
Sheets(i).Select
Range(Cells(1, 1), Cells(1, 1).End(xlDown)).Select 'line4
Selection.Copy
Sheets(6).Select
Cells(1, i).Select
Selection.PasteSpecial xlPasteValues
Next i
End sub
我在第4行得到一个运行时错误'1004‘Range类的Select方法失败。如何修复它？
浏览 3提问于2014-06-22得票数 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
1回答
我想复制工作表上的一些文本框和图表，并将它们粘贴到新创建的报告工作簿上。到目前为止，我一直在尝试修改我在这里找到的一段代码。这就是我到目前为止所知道的：
Sub SampleIndividualReport()
Dim wbI As Workbook, wbO As Workbook
Dim wsI As Worksheet, wsO As Worksheet
Set wbI = ThisWorkbook
Set wsI = Sheet7
Set wbO = Workbooks.Add
With wbO
Set wsO =
浏览 23提问于2018-09-20得票数 0
2回答
我正在处理一个宏，以便在工作簿中的所有工作表中循环我的步骤，如下所示。然而，这似乎是一个错误：
运行时错误'1004'：“选择工作表类失败的方法”
Sub WorksheetLoopFormat()
Dim WS_Count As Integer
Dim i As Integer
' Set WS_Count equal to the number of worksheets in the active
' workbook.
WS_Count = ActiveWorkbook.Worksheets.Coun
浏览 1提问于2019-02-25得票数 1
回答已采纳
我正在尝试编写一个非常基本的宏，它从一个工作表中复制值并将其粘贴到另一个工作表中。宏最初工作，然后开始返回一条Runtime error '1004' Application-defined or object defined error消息。代码是：
Sub CopyPaste()
'
' CopyPaste Macro
Sheets("Data Input").Range("C2:C11").Copy
Sheets("Results").Range("A8").End(xlDo
浏览 4提问于2013-12-13得票数 1
因此，我创建了一个工作表来监控股票头寸。我想用一个按钮来记录每个关闭的股票位置的数据。我的字符串中的第一个命令是从同一个工作表中复制股票名称。我想知道如何在同一个工作表中执行此操作，以及从同一文档中的另一个工作表执行此操作的语法。谢谢。
这是我运行的代码，它返回一个运行时错误'1004‘Range of Object Global failed。
Sub LogPosition()
Dim rngStart As Range
Set rngStart = ActiveCell
Sheets("Charts").Select
ActiveSheet.Range("
浏览 13提问于2020-03-13得票数 0
回答已采纳
我正在复制和粘贴数据块到单元格中，这些单元格在每个品牌的电子表格中向下移动--因此，我试图创建一个与品牌号链接的变量，但正在收到此错误。
希望是一个简单的，希望有人能帮上忙！
Dim StartCell1 As String
Dim BrandNumber As Integer
Dim DblQuote As String
StartCell1 = vbDblQuote + "B" + CStr((3 + (27 * (BrandNumber - 1)))) + vbDblQuote
BrandNumber = 1
Range(StartCell1).Select
运行
浏览 1提问于2019-03-06得票数 0
我有多张工作表：
1) Agent Sales
Name | Product | Sales
A | XX | $100
B | XX | $200
C | YY | $150
A | YY | $400
2) Agent Expense
Name | Product | Expense
A | XX | $10
B | XX | $20
C | YY | $15
A | YY | $80
这样做的目的是在每个代理的单独工作表上创建一个报告，并将它们与每个产品的其他代理进行比较。例如，对于A代理：
> Sales
> Name | Product | Sales
浏览 0提问于2016-08-07得票数 0
回答已采纳
我尝试使用下面的代码从一个工作表复制ActiveX命令按钮并将其粘贴到另一个工作表中：
Sheets("SRC").HasACustomName.Copy
Sheets("TRGT").Range("O1").PasteSpecial
我也尝试过：
Sheets("SRC").Shapes("hasACustomName").Copy
Sheets("TRGT").Range("O1").Select
Sheets("TRGT").Paste
但我对这两种方法的问
浏览 2提问于2013-08-29得票数 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
回答已采纳
我有一个宏，它在执行PasteSpecial时间歇性地抛出一个运行时错误。大多数情况下，它不会失败，但有时不会。当它抛出错误时，如果我点击"Debug“，然后让它继续运行，它就会顺利通过。这听起来像是时间问题，但我不明白是什么原因造成的。下面是代码的一个片段：
Dim SourceDataWB As Workbook
Dim RawDataWS As Worksheet
Dim LastDataRow As Long
Dim SrcRange As Range
<Lots of other code in here...>
Sou
浏览 0提问于2020-12-01得票数 1
1回答
我正在尝试将一个列转换为多个列。
Set rng1 = Range("A3")
Set rng2 = Range("A16")
Set rng3 = Range("B3")
Set rng4 = Range("A16")
For Each R In Intersect(Range("A1:A5000"), ActiveSheet.UsedRange)
If InStr(R, "Sunday") > 0 Then
Range("C1").Value
浏览 2提问于2020-02-28得票数 0
回答已采纳
1回答
我正在尝试将数据从一系列工作表(根据用户偏好动态创建)复制到位于末尾的主工作表中。但是，在第一次循环之后，Excel会遇到面向对象的错误(1004)。
Dim MacroWorkbook As Workbook
Set MacroWorkbook = Thisworkbook
Dim NumSheets As Integer
Dim DataSheets As Integer
Dim LCounter As Single
'Count the number of sheets
NumSheets = MacroWorkbook.Worksheets.Count
'Count
浏览 1提问于2017-07-07得票数 0
回答已采纳
在此代码的** - **行显示错误1004。PLease帮助 Sub test()
Workbooks("OI ANALYSIS.xlsm").Activate
Sheet3.Select
Range("A16:C16").Copy
Sheet4.Select
**Range("B2").End(xlDown).Offset(1, 0).Select**
Selection.PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
Application.On
浏览 17提问于2020-12-07得票数 0
我试图用VBA将范围从一个工作表复制到另一个工作表，但在试图粘贴时失败了。我尝试过几种方法，但没有成功。我已经创建了一个用于粘贴的示例代码段，它在最后一行上失败。我收到的错误是“运行时错误'1004'：应用程序定义的或对象定义的错误。”有人能解释一下为什么会失败吗?我能做些什么呢？
Sub Test()
Dim report_ws As Worksheet
report_row = 2
report_executive_column = 6
report_column_last = 10
archived_report_row = 3
archived_executive_co
浏览 2提问于2017-07-03得票数 1
回答已采纳
我使用下面的代码从一个工作表中复制一个命令按钮，并将其粘贴到另一个工作表中：
Sheets("SRC").HasACustomName.Copy
Sheets("TRGT").Range("O1").PasteSpecial
当我粘贴它时，它被从HasACustomName重命名为CommandButton1。
我可以以保留名称的方式复制/粘贴它，或者在粘贴后更改名称吗？
浏览 5提问于2013-08-29得票数 3
回答已采纳
2回答
我试图使用描述的方法将多个工作表中的数据合并为一个工作表。
不同之处在于，我只想从每个文件中复制一列数据，因此我修改了代码，因此：
With wsMaster
erow = .Range("B" & .Rows.Count).End(xlUp).Row 'get the last row in column B
'~~> Copy from the file you opened
wsTemp.Range("A2:A" & .Rows.Count).Copy 'copy data in
浏览 3提问于2017-06-22得票数 0
回答已采纳
1回答
我在将图像从一个工作表复制和粘贴到另一个工作表时遇到了问题。此代码适用于PC，但不适用于Mac！当我在Mac上运行它时，我得到了一个错误1004。
这是一个复制/粘贴图像的问题！我已经看过很多论坛了，但什么都不能用！
下面是我的代码：
Dim sh As Shape
For Each sh In Sheets("Settings").Shapes
Debug.Print sh.Name
If sh.Name = reportname Then ' give the name of your Picture here
浏览 1提问于2014-09-10得票数 0
2回答
我需要将一些数据粘贴到Excel中非活动的工作表中。这有可能吗？ 多亏了一个脚本，每隔十秒就会从一个不同的程序(而不是excel)复制内容。然后，我需要将内容粘贴到excel工作簿的背景工作表中，但我不希望屏幕每次都闪烁，激活数据所在的背景工作表，然后再回到主工作表。 启动宏时，内容已在剪贴板中。 这是当前的代码，它的工作，但使屏幕闪烁。 Sub pastecontent()
Sheets("searchresult").UsedRange.ClearContents
Sheets("searchresult").select
ActiveSheet.Past
浏览 23提问于2019-05-23得票数 0
1回答
我的代码：
With wbImport.Worksheets("Data")
LastCol = .Range("A1").End(xlToRight).Column
LastRow = .Range("A1").End(xlDown).Row
.Range("A1", .Cells(LastRow, LastCol)).Copy ' ‹-- Copy without Select
End With
wsData.Range("A1").PasteSpecial Paste
浏览 0提问于2020-11-16得票数 0
回答已采纳
1回答
我一直试图构建一个实用程序，允许用户在列(或行)中选择公式，并使用PasteSpecial的PasteSpecial方法将这些公式转换为行(或列)。我让它使用特定的目标单元格，但是一旦我试图让用户控制目标单元格，我就会收到一个运行时错误1004“Range类的PasteSpecial方法失败”。
下面是工作代码(假设所选公式中没有一个在Range("E3")中)
Dim rSelection As Range
Set rSelection = Selection
Call MakeSelectionAbsolute(rSelection)
rSelection.Cop
浏览 3提问于2014-03-07得票数 1
回答已采纳
我正在尝试编写一个宏来遍历活动工作簿中的每个工作表，并将所有公式保存为值。为此，对于每个工作表，首先我遍历每个数据透视表，然后选择该表并复制和粘贴为值。然后，我尝试使用worksheet.activerange.value = .value方法保存工作表中的其余单元格。
我在wks.UsedRange.Value = wks.UsedRange.Value行上得到了一个1004运行时错误。
我有两个问题：
1)如何修复我的运行时错误？
2)有没有办法让.value = .value与透视表一起工作？在以前的宏中，这从来没有在轴心上起作用，所以我必须使用复制和粘贴，如下所示。
非常感谢您的帮助！
浏览 1提问于2015-08-18得票数 3
扫码
添加站长 进交流群
领取专属 10元无门槛券
手把手带您无忧上云
相关资讯
热门标签
云服务器
ICP备案
对象存储
即时通信 IM
实时音视频活动推荐
腾讯云开发者
