VBA错误1004:复制range类的方法失败
基础概念
VBA（Visual Basic for Applications）是Microsoft Office软件中的编程语言，用于自动化和扩展Office应用程序的功能。错误1004通常表示在执行复制操作时发生了问题，具体到Range类的方法失败，可能涉及到选取的范围无效、目标位置不可写或者源数据与目标数据格式不兼容等问题。
相关优势
- 自动化操作：VBA可以自动执行重复性的任务，提高工作效率。
- 定制化功能：可以根据用户需求定制Office应用程序的功能。
- 集成能力：VBA可以与其他Office应用程序（如Excel、Word、PowerPoint等）无缝集成。
类型
错误1004通常有以下几种情况：
- 选取范围无效：指定的范围不存在或无法访问。
- 目标位置不可写：目标位置是只读的或者被保护。
- 数据格式不兼容：源数据和目标数据的格式不兼容，无法复制。
应用场景
VBA广泛应用于各种办公自动化场景，例如：
- 自动化数据处理和分析。
- 自动生成报告和文档。
- 自动化邮件发送和处理。
问题原因及解决方法
1. 选取范围无效
原因：指定的范围不存在或无法访问。
解决方法：
' 确保选取的范围存在且可访问
If Not Intersect(ActiveSheet.Range("A1:A10"), ActiveSheet.UsedRange) Is Nothing Then
ActiveSheet.Range("A1:A10").Copy Destination:=ActiveSheet.Range("B1:B10")
Else
MsgBox "选取的范围无效"
End If2. 目标位置不可写
原因：目标位置是只读的或者被保护。
解决方法：
' 确保目标位置可写
If ActiveSheet.ProtectContents = False Then
ActiveSheet.Range("A1:A10").Copy Destination:=ActiveSheet.Range("B1:B10")
Else
MsgBox "目标位置被保护，无法写入"
End If3. 数据格式不兼容
原因：源数据和目标数据的格式不兼容，无法复制。
解决方法：
' 确保源数据和目标数据的格式兼容
Dim sourceRange As Range
Dim destinationRange As Range
Set sourceRange = ActiveSheet.Range("A1:A10")
Set destinationRange = ActiveSheet.Range("B1:B10")
' 清除目标范围的格式
destinationRange.ClearFormats
sourceRange.Copy Destination:=destinationRange参考链接
通过以上方法，可以有效解决VBA错误1004的问题。如果问题依然存在，建议检查具体的代码逻辑和环境设置，确保所有操作都在正确的上下文中执行。
相关·内容
我试图使用一些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
3回答
我尝试了许多方法来筛选列的唯一值(包括空格和空格，在其中有一个空格)。我想过滤这些值，然后将它们粘贴到另一个工作表的列a中。
Sub filter_2()
With Sheets("ICM flags")
.Columns("a").AdvancedFilter Action:=xlFilterCopy, copytorange:=Sheets("Flag Update (2)").Range("a2"), Unique:=True
End With
End Sub
上述方法适用于.range(
浏览 2提问于2015-09-25得票数 0
回答已采纳
如何使用VBA将数据从一个文件复制到另一个文件？当我运行这段代码时，我得到一个错误-“运行时错误'1004‘：应用程序定义或对象定义的错误”。我正在使用Excel 2010
Sub nextfile()
Range("B5").Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlToRight)).Select
Selection.Copy
Windows("MAIN Pivot Table.xlsx
浏览 1提问于2014-01-09得票数 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
回答已采纳
1回答
我有这段代码，应该可以很好地工作
Dim ws As Worksheet
Set ws = ThisWorkbook.Sheets("Auswertung")
...
ws.Range(Cells(2, 2), Cells(lastRow, lastCol)).NumberFormat = "0"
但是，如果未选择该工作表，则会失败。错误1004，对象的方法范围失败。
如果我将其更改为
ws.Select
ws.Range(Cells(2, 2), Cells(lastRow, lastCol)).NumberFormat = "0"
它起作用了
浏览 2提问于2019-12-12得票数 0
4回答
是否可以复制一系列行并将这些行粘贴到其他工作表中？我已经尝试过了，但是我得到了1004错误： .Rows(i_cls_frst_row, i_cls_last_row).Copy 关于Michał
浏览 24提问于2016-08-24得票数 1
回答已采纳
我有以下简单的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代码-
lastColumn = Cells(5, Columns.count).End(xlToLeft).Column
count_dates = Range("H2").Value
Set cellSource = Range(Cells(6, 13).Address)
Set cellTarget = Range(Cells(6, 13), Cells(count_dates + 5, lastColumn))
cellSource.AutoFill Destination:=cellTarget, Type:=xlFillDefault
代码在
浏览 1提问于2017-11-18得票数 0
我正试着在excel 365上开一个支票本登记处。我正在尝试添加删除行(事务)的功能，但是当我运行我的vba代码时，它出现以下错误:运行时错误'1004'：Paste method of worksheet类失败。
当我运行我的代码来删除一行时，balance列填充了"#REF“。我试图通过复制balance列并在删除行后将其粘贴回来来解决这个问题，但这并不起作用。Balance列仍然用“#REF”填充。下面是我用来复制和粘贴balance列的代码：
Sub DeleteTransactionRectangle_Click()
Dim deletedRow
浏览 0提问于2020-04-08得票数 1
我的代码是
With ActiveSheet
.AutoFilterMode = False
.Range("23:23").AutoFilter
End With
这在Excel2010中工作得很好，但是使用Excel2016我得到：-
Range类的运行时错误'1004‘AutoFilter方法失败
此外，我还可以手动单击中的filter图标(在Data >Filter下)，但不能用VBA代码来实现。
任何想法都很受欢迎。
浏览 2提问于2017-12-21得票数 0
4回答
以下VBA代码(Excel 2007)失败，错误为1004，“范围类的自动填充方法失败”。有人能告诉我怎么修吗？
Dim src As Range, out As Range, wks As Worksheet
Set wks = Me
Set out = wks.Range("B:U")
Set src = wks.Range("A6")
src.AutoFill Destination:=out
(注:我在谷歌上搜索过，等等)。它经常出现，但我看到的所有响应都与格式错误的范围地址有关，AFAIK不是我的问题。
在某人的建议下，我尝试用以下方式替换自动填充
浏览 4提问于2009-10-07得票数 8
回答已采纳
1回答
我为我的高级过滤器创建了一个动态列表范围。我创建了一个名为“数据”的名字。当我试图将名称输入到VBA公式中时，我会收到一个错误。动态名称适用于标准和输出范围？
Range("Sheet2!Data").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range _
("Sheet2!Filter"), CopyToRange:=Range("Sheet2!Location"), Unique:=False
我收到以下运行时错误'1004'：
对象“_全局”的
浏览 0提问于2017-02-14得票数 0
对象_全局的运行时错误1004方法范围失败。
Workbooks("Deep Dive_Unadjusted_Group_Sept 20191025_Template.xlsm").Worksheets("ID").Cells(42, 14).Value = Workbooks.Open("MRP_ID_September_20191015.xlsx").Worksheets("Pnl HF + GF").sumrange(Range("L51:53"))
请协助哪里出了问题。我没有IT/代码背景。只是自己学习VB
浏览 1提问于2019-11-08得票数 0
回答已采纳
我有这个Excel公式，我想通过VBA实现它，不幸的是它总是产生错误。
我的Excel公式：
IF(isemptyornothing(A1:A50); ""; IF(ISNUMBER(VALUE(A1:A50)); VALUE(A1:A50); A1:A50))
我的VBA尝试：
Range("B1:B50").Formula = _
"=IF(IsEmptyorNothing(A1:A50), "", IF(ISNUMBER(VALUE(A1:A50)), VALUE(A1:A50), A1:A50))"
浏览 10提问于2017-08-23得票数 0
回答已采纳
我面临着在下面提到的vba代码中粘贴数据的问题：
Range("B:AK").Select
Selection.Copy
Range("AN:BW").Paste
我需要复制范围从B列到AK列的数据，并将其粘贴到从a到BW的列中。但是我的错误是1004。请帮助我更新版本的代码。和列属于同一个工作表。
浏览 3提问于2017-11-02得票数 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宏，它将转置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
我必须在不同的excel工作表之间跳转，以便为我的VBA获取数据以输出我想要的内容。我一直在使用Sheets("name").Select函数在工作表之间跳转。有时它会工作，让我运行程序，但有时我会得到一个运行时错误。我希望每次都能100%地工作，并且每次由于select函数而失败时都会感到沮丧。如果任何人有任何建议或建议，我希望你能分享它们！任何帮助都将不胜感激。 Sheets("Test").Select 运行时错误'1004'：选择工作表类的方法失败
浏览 26提问于2019-06-12得票数 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
回答已采纳
5回答
测试VBA中是否存在范围
、、、
我在我的excel ss中有一个动态定义的命名范围，它根据开始日期和结束日期从表中获取数据，如下所示
=OFFSET(Time!$A$1,IFERROR(MATCH(Date_Range_Start,AllDates,0)-1,MATCH(Date_Range_Start,AllDates)),1,MATCH(Date_Range_End,AllDates)-IFERROR(MATCH(Date_Range_Start,AllDates,0)-1,MATCH(Date_Range_Start,AllDates)),4)
但是如果日期范围在表中没有数据，则该范围不存在(或者idk)。如何在VBA
浏览 2提问于2012-09-27得票数 12
回答已采纳
我在一个新项目中工作，对VBA来说也很陌生。我必须将公式填充到C2，直到B列的最后一行。我的代码如下
LastRow = Range("A" & Rows.Count).End(xlUp).Row
Range("C2").Select
Range("C2:C" & LastRow).Formula = "=VLOOKUP(B2,'[Tracking Sheet Opens.xlsb]Data'!$B$1:$J$65530,9,0)"
此提示为错误1004 -方法范围或对象全局失败
请建议我前进的方向
浏览 3提问于2016-11-23得票数 0
我试图在两个工作表中运行这个VBA代码--它在第一个工作表中运行得很好，但是在第二个工作表中却失败了--知道为什么吗？
错误是：运行时错误'1004'：不能在重叠选择时使用该命令.
VBA-代码的目的是删除表中的所有空白行。
范围是单独命名的。
当按下按钮时，我想在ActiveSheet上运行代码。
按钮只在工作表上。
Private Sub DeleteBlankRowsHoursTable_Click()
Dim Rng As Range
On Error Resume Next
Set Rng = ActiveSheet.
浏览 2提问于2017-05-16得票数 0
我正在尝试让代码“复制粘贴”工作表"X“中的值设置为VBA。然而，它给我一个1004错误。
Sub Probabilities()
Dim VBA As Worksheet
Set VBA = Sheets("X")
Dim Overview As Worksheet
Set Overview = Sheets("Overview")
Overview.Range(Cells(27, 3), Cells(34, 3)).Value = Overview.Range(Cells(40, 3), Cells(47, 3)).Value
VBA.Range
浏览 0提问于2018-11-27得票数 1
这是我目前正在使用的代码，我遇到了这个问题。我是Excel的新手，我不知道出了什么问题。
Private Sub cmdRecord_Click()
Sheets("BxWsn Simulation").Range("Result").Select //This is the line with the problem, as excel told me.
Selection.Copy
Sheets("Reslt Record").Select
Sheets("Reslt Record").Range(&#
浏览 5提问于2010-10-11得票数 24
回答已采纳
我是VBA编程新手，我希望从符合条件的不同工作表中获取数据。然后从一个特定的单元格复制粘贴到另一个特定的单元格7次。我的代码不能工作，我希望能改进它。当我运行代码时，我被标记为运行时错误'1004‘，对象'_Worksheet’的方法范围在IF语句的开头失败。
Sub CopyValues()
'Declare variables
'Declare sheet variables
Dim Sourcews As Worksheet
Dim Pastews As Worksheet
'Declare counter variables
D
浏览 0提问于2017-08-01得票数 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
2回答
我在VBA中尝试使用以下命令将公式赋值给单元格时遇到1004错误代码：
=IF(ISERROR(LEFT(C4,FIND(" ",C4)-1)),C4,LEFT(C4,FIND(" ",C4)-1))
我的VBA代码：
Range("U4:U" & lrow).Formula = "=IF(ISERROR(LEFT(C4,FIND('" & "',C4)-
1)),C4,LEFT(C4,FIND('" & "',C4)-1))"
这将给出错误1
浏览 1提问于2015-10-19得票数 0
最初在SuperUser中被问到：。
我不知道这是否是版本的更改，但在2003年，这在Access VBA中是有效的：
Dim xlSheet As Excel.Worksheet
xlSheet.Range("RangeName").Value = 100
以前，我不需要识别工作表，因为"RangeName“是唯一的。Excel 2007是否认为此值是唯一的，并要求指定工作表？
编辑这里是Access 2007 VBA中的错误：
“”错误1004 (对象'_Worksheet‘的方法’范围‘失败。试图避免命名工作表。
我在Excel中使用了名称管理器。名称是
浏览 3提问于2010-11-04得票数 0
回答已采纳
2回答
我正在尝试将剪贴板内容粘贴到单元格"A1“中
Range("A1").PasteSpecial xlPasteValues
但是我得到了“Range类失败的PasteSpecial方法”错误！
感谢你的帮助！
浏览 1提问于2020-03-22得票数 0
回答已采纳
在VBA中，我试图在将多个工作表从一个工作簿复制到另一个工作簿时断开到值的链接。
我收到了运行时错误'1004'：工作表是受保护的，但是我无法解除这些工作表的保护。
问题出现在它运行错误的函数的.Value = .Value部分。还有别的方法我可以用吗？
我尝试过wb.BreakLink链接功能，但这是不成功的。
ActiveWorkbook.Worksheets(1).Copy After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)
With ActiveSheet.UsedRange
For Each small
浏览 0提问于2019-08-13得票数 0
回答已采纳
嗨，所以我正在构建一个Excel系统来运行宏，以便在其他Excel文件上运行几个不同的宏。
假设我已经打开了两个Excel文件："Parent.xlsx“和"child.xlsx”。
在我的Parent.xlsx中我正在运行一个VBA脚本，我如何在我的"PERSONAL.XLSB“中为我的"child.xlsx”运行一个名为"method1“的宏？
现在，在我的Parent.xlsx中，我尝试运行这个宏VBA脚本：
Workbooks("child.xlsx").Application.Run "PERSONAL.XLSB!met
浏览 4提问于2020-11-13得票数 1
我很难将两列(可变范围)连接到同一文档中的另一列。我错过了什么明显的东西吗？
Function ConcCol(ConVal_1 As String, ConVal_2 As String)
Range("V30:V500").Select
Application.CutCopyMode = False
With ActiveCell
.FormulaR1C1 = "=CONCATENATE(RC[5],"" "",RC[6])"
End With
Selection.A
浏览 1提问于2013-08-13得票数 0
回答已采纳
我是VBA领域的新手，我想知道为什么下面这行代码不能工作？
我收到错误1004:对象范围工作表失败
Sub MMMatch()
Dim oCell as Range
Dim r_out as Range
Dim r_in as Range
Dim ws1 as worksheet
Dim ws2 as worksheet
Set ws1 = Worksheets("MM Limits")
Set ws2= Worksheets("PivotTable")
Set r_out= ws1.range(Range("A2"),Range("
浏览 0提问于2018-05-01得票数 0
我对VBA非常陌生，所以这可能有点基础。我有一个宏，它从工作表“工作表”中复制一系列单元格，并将它们粘贴到工作表"FCTC“中的活动行中。宏还插入新行，因此新粘贴的信息不会写入任何现有数据。我认为我的问题是范围复制到活动的单元格参考粘贴，但我不确定。我已经张贴了下面的代码。任何帮助都将不胜感激。
`Private Sub CommandButton1_Click()
Application.Goto ActiveWorkbook.Sheets("Working Sheet").Range("A1:AQ7")
Selection.Copy
浏览 0提问于2019-07-10得票数 3
回答已采纳
我需要VBA从"Final_Sheet“中的A列获取值，并根据"SIS_Case_Contacts”表的A列中的值进行过滤。 Sub filter()
Dim lastRowSISCaseContacts As Long
Dim lastRowFinalSheet As Long
Dim ws As Worksheet
Set ws = Sheets("SIS_Case_Contacts")
With Sheets("SIS_Case_Contacts")
lastRowSISCaseContacts = .Range("A&
浏览 29提问于2020-04-14得票数 0
3回答
我正在尝试在vba中使用code...please。我基本上需要将值(而不是公式，因为在粘贴到新工作表时重新计算公式，因为该工作表中的单元格值发生变化)粘贴到另一个sheet...But，我收到错误1004，说“应用程序定义的错误或对象定义的错误”。
Sub Macro1try()
Dim i As Integer
Dim j As Integer
For i = 1 To 2
Worksheets("Volatility").Cells(1, "B").Value = Worksheets("Volatility").Cells(i,
浏览 3提问于2011-06-14得票数 1
我已经自动化了一个寄存器，使用保存在数据表上的每个寄存器的数据，这些数据通过VBA提供给‘打印’工作表。
第一次运行有效。当我选择另一个
‘运行时错误'1004’粘贴范围类特殊方法失败‘
如果我清除错误，它将工作一次，然后在第二次尝试中失败。
阅读一个MS帮助(我现在找不到)，它说，类似的范围没有正确引用，所以它不能使用，直到程序完成。我试过确保剪接模式是错误的。我试着再加一份。PS值使用工作表上不同的单元格，最后尝试保存工作表，以查看是否清除了引用。
我有两个版本，一个版本记录和第二个版本试图引用所有的范围(都附有)。宏是从已经选择数据表的宏开始的。
Sub POP_PRINT_O
浏览 2提问于2021-09-17得票数 0
回答已采纳
我有一个VBA，连同许多其他东西，将一个excel工作簿保存到SharePoint (我认为是企业2010 )，它大部分时间运行良好，但在用户运行VBA时，Excel会冻结，弹出显示“获取可用内容类型和属性的列表.”。如果用户选择取消另一个弹出，则出现“运行时错误'1004'：对象'_Workbook‘的方法'SaveAs’失败。如果用户选择”Debug“，则VBA的最后一行突出显示为创建错误。
Dim fileName As String
Dim excelDirName As String
fileName = [c9]
excelDirName = [c
浏览 7提问于2016-11-10得票数 0
回答已采纳
我在VBA中有以下代码返回1004错误：
e = WorksheetFunction.CountIf(Worksheets("TG Teams").Range(Cells(4, w), Cells(12, w)), Worksheets("Calcs").Range("B" & a))
e，w，a都是整数。
代码用于检查Calcs工作表中的名称是否也出现在TG团队工作表中。范围是可变的原因是，CountIf需要每周检查不同的列。
有什么想法吗?当我运行这个程序时，如何解决1004的错误？
浏览 2提问于2017-04-06得票数 0
回答已采纳
2回答
这里可能有一个简单的修复方法，但是我定义的范围没有被提取出来。
我有一组不断变化的数据将会刷新。当我运行宏时，我想为表的最后5行中的值设置一个范围，以检查Count If函数的胜负(在H列中)。但是，当我运行VBA故障排除命令时，范围值从未设置过，并且我的公式因运行时错误1004而失败。我尝试过使用Selection.Offset和ActiveCell.Offset。
Dim fivegame As Range
Range("H1").Select
Selection.End(xlDown).Select
Set fivegame = Range(Selection.Offs
浏览 8提问于2021-02-27得票数 0
我只是开始熟悉VBA和我的代码
xxLastrow = xLastRow+1
For x = 11 To xLastRow
For y = 12 To xxLastrow
If ActiveSheet.Cells(x, 2).Value = Cells(y, 2).Value Then
For z = 4 To xLastColumn
If ActiveSheet.Cells(y, z).Value <> "" Then '(possible If Not IsEmpty(Cells(y, z).Value))
ActiveSheet.Cells(y, z
浏览 2提问于2014-03-05得票数 0
回答已采纳
我正在使用excel的数据库功能。见示例图像
我使用vba来选择有“是”的记录，比如A
Selection.AutoFilter Field:=2, Criteria1:="yes"
Range("B3").Select
Range(Selection, Selection.End(xlDown)).Select
然后我复制它粘贴到其他地方。例如：
Selection.Copy
Range("B12").Select
ActiveSheet.Paste
问题是，当没有“是”的记录时，我得到了错误1004。可能是因为没什么好粘贴的。我如何
浏览 1提问于2013-08-16得票数 1
回答已采纳
1回答
我需要从一个范围中排除多个条件。下面的代码没有错误，但它没有过滤掉所有的值(例如，"ZL1“仍然在范围内)。我尝试过Operator:=xlAnd，但结果没有什么不同。使用Operator:=xlFilterValues时，我得到“运行时错误'1004'：Range类的AutoFilter方法失败。
Sub Macro1()
Sheets("Z").Select
myarr = Array("<>ZC1", "<>ZL1", "<>ZF1")
lr
浏览 2提问于2017-08-01得票数 1
回答已采纳
我正在运行一个Hadoop流作业，它只有映射器，没有reducers。我给这个工作4个输入文件，这都是goes，以确保每个输入文件到一个映射器。两个gzipped压缩的输入文件的大小小于64MB，而另外两个gzipped压缩的输入文件的大小大于64MB。作业长时间运行近40分钟，然后失败，并显示“错误:失败的映射任务数超过允许的限制”。正常情况下，作业应该不会超过1分钟，不确定为什么会持续40分钟
当我检查输出目录时，我看到输出是为两个大小小于64MB的gzipped压缩输入文件生成的，而不是为大小>64MB的gzipped压缩输入文件生成的。
有没有人见过这样的行为？
当作业启动时，我
浏览 1提问于2012-02-06得票数 0
我知道，当您尝试将粘贴范围从一个工作表复制到另一个工作表时，有很多与错误1004 (对象或应用程序错误)相关的主题，但我不理解(我仍然是VBA的初学者)。
我有一个Excel文件，里面有两张纸：
"Worksheet1“和我想要复制的数据
"Feuil1“，其中我想粘贴具有特定布局的数据
要理解我的问题，请看一下我的代码
Dim a As Integer
Dim b As Integer
Dim val4 as integer
val4 = 4
a = 2
b = 1
For i = 1 To val
浏览 2提问于2018-04-07得票数 1
回答已采纳
2回答
我是VBA的新手，遇到了一个我无法解决的运行时错误。我有以下代码
Dim vRange As Range
Sheets("Vert E").Cells.FormatConditions.Delete
With Sheets("Vert E")
Set vRange = .Range(.Cells(2, 2))
End With
vRange.Select
最后一行，vRange.Select抛出一个运行时错误'1004'：应用程序定义的错误或对象定义的错误。有什么想法吗？
浏览 0提问于2013-08-12得票数 1
我是VBA的新手，刚刚开始自学。当我尝试运行我的程序时...
Sub cpy()
range("k1:k12").Select
Selection.copy
Application.Goto Worksheets("Sheet1").range("m4").Select
ActiveSheet.Paste
End Sub
..。我得到以下错误：Unable to get the selected property of the range class。
所以我尝试单独运行出错的代码行：
Sub cck()
浏览 0提问于2021-04-17得票数 2
我正在复制和粘贴数据块到单元格中，这些单元格在每个品牌的电子表格中向下移动--因此，我试图创建一个与品牌号链接的变量，但正在收到此错误。
希望是一个简单的，希望有人能帮上忙！
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
我想要创建一个宏，它从另一个工作表复制一些数据，并将它们粘贴到我的活动工作表(Sheet1)范围的最后一行(从第一列)。但是，当我试图执行宏时，宏的最后一行没有正确读取，如果有人可以帮助我解决这个问题，它将返回错误消息“运行时错误1004:应用程序定义的或对象定义的错误”，这将是超级的。非常感谢。泽维尔
请在下面找到我的VBA代码：
Sub insertfinalrow()
Worksheets("instructions macros").Activate
Range("N18:S18").Copy
Worksheets("Sheet1").A
浏览 0提问于2018-11-07得票数 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
回答已采纳
扫码
添加站长 进交流群
领取专属 10元无门槛券
手把手带您无忧上云
相关资讯
热门标签
云服务器
ICP备案
对象存储
实时音视频
云直播活动推荐
腾讯云开发者
