在单元格中粘贴公式时出现VBA错误1004
是由于VBA代码中的某个语句出现了错误，导致无法正确执行粘贴公式的操作。错误1004通常表示“应用程序或对象定义错误”。这可能是由以下几个原因引起的：
- 对象或方法名称错误：请检查代码中的对象名称和方法名称是否正确拼写，并确保它们与工作表中的对象一致。
- 范围引用错误：在粘贴公式时，要确保引用的源范围和目标范围是有效的。可以通过使用合适的方法来引用单元格范围，例如使用Range对象或Cells属性。
- 保护工作表错误：如果目标工作表是受保护的，则可能无法在受保护的工作表上执行粘贴公式操作。您需要先解除保护工作表，然后再执行操作。
解决此问题的方法有以下几个步骤：
步骤1：仔细检查代码：请仔细检查您的VBA代码，确保语句中的对象和方法名称正确无误。
步骤2：检查范围引用：确保您正确引用了源范围和目标范围，并且它们是有效的。
步骤3：解除保护工作表：如果目标工作表受保护，请解除保护后再执行粘贴公式操作。
若您需要更具体的帮助，可以参考腾讯云Excel自动化解决方案，该解决方案提供了丰富的功能和API，可帮助您更轻松地处理Excel操作。了解更多详情，请访问腾讯云Excel自动化解决方案介绍页面：腾讯云Excel自动化解决方案
相关·内容
我试图在VBA的公式中调用一个包含单元格地址的变量，但一直收到运行时错误1004。我的语法有问题吗？
ActiveCell.FormulaR1C1 = "=(RC[-1]/" & CellLocationCFYearTotal & ")* " & CellLocationCFYearDC & ""
或者我没有正确地声明变量？
Dim RowLocationCFYearIDC As Long 'can hold over 32000 if over this many rows
Dim ColumnLocat
浏览 6提问于2016-07-07得票数 0
1回答
我遇到了一个Excel VBA的问题，它显示运行时错误'1004‘。
代码如下：
Sub modifyformula()
Dim formla As String
formla = Cells(21, 48).Formula
Cells(21, 48).Formula = "=IF(ISERROR(" & formla & ",," & formla & ")"
End Sub
基本上，我尝试做的是如果告诉VBA添加"= if (ISERROR(“...添加到现有公式中，我将告诉VBA更新包
浏览 1提问于2014-10-20得票数 0
我刚开始使用VBA编码，希望能在这里得到一些帮助。我试图为任何单元创建代码，这些代码将执行以下操作(而不指定硬编码的单元格范围或引用)：
在活动单元格中输入公式
把它复制(填充)到10行
为了将公式插入到ActiveCell中，我尝试：
Sub Test()
ActiveCell.formula = "=IF(ISBLANK(C5)*ISBLANK(D5),"",IF(ISBLANK(D5),(C5),CONCATENATE(C5,"" ["", D5, ""]"")))"
End
浏览 5提问于2017-11-29得票数 0
回答已采纳
我正在尝试从不同的工作表中获取值，并将它们与A列中我的主表中的姐妹数据进行匹配，但我在获得正确的结果方面遇到了问题，我正在考虑使用Vlookup方法，但我无法使其正常工作。我找到了一种时髦的方法来完成它，但我试图只保存值，而不是公式本身。
这是我一开始尝试的方法
<code>A0</code>
它有点工作，但我需要的是值，而不是公式，我的计划是找到我需要的数据，然后将文件的副本保存为csv
我试着使用不同的方法，但我遇到了运行时错误'1004‘，我还在学习VBA，所以我觉得我现在就像在旋转轮子一样。有人能告诉我我哪里做错了吗？
<code>A1<
浏览 11提问于2019-08-24得票数 0
回答已采纳
Excel 2010是否有将字符串变量的文字内容放入excel单元格的方法？
我可以用这个硬代码实现我想要做的事情，但是这段代码在嵌套子程序中很深。我希望对此进行软编码，以便将Formula_wanted的内容插入到单元格中。下面是将公式的值放在单元格中的代码。
If modifier1 = "ILMROS " Then
Range("M4").Select
ActiveCell.FormulaR1C1 = "Sales Total"
Range("M5").Sel
浏览 1提问于2020-02-12得票数 1
2回答
我为我的excel文件编写了一个VBA代码。在VBA代码中，我必须删除具有公式的单元格。如果我的代码找到至少一个有公式的单元格，那么它可以正常工作，但是如果没有这样的单元格，那么它就会显示一个错误运行时错误'1004‘。
我的代码是
Dim n As Integer
n = Sheets("Pay_Slip").Range("B11:AO510").SpecialCells(xlCellTypeFormulas, 23).Count
If n > 0 Then
Sheets("Pay_Slip").Range("B
浏览 3提问于2020-11-22得票数 0
回答已采纳
我试图在我的VBA代码中使用这个：
ActiveSheet.Range("A1:A1:).Formula = "='Sheet1'!A1" & Chr(34) & Chr(47) & Chr(34) & "'Sheet1'!A2"
这给了我错误: 1004，对象定义的错误.
我想在细胞公式中看到：
=‘Sheet1 1’！A1“/‘Sheet1’！A2
如果A1单元格的值为10，A2值为20，则单元格值应如下所示：10/20
有什么问题吗？
浏览 1提问于2016-06-16得票数 1
回答已采纳
我正在尝试使用VBA将公式写入Excel的单元格中。我的问题是，当我在我的公式中使用分号(;)时，我得到一个错误：
Run-time error 1004
我的宏如下：
Sub Jours_ouvres()
Dim Feuille_Document As String
Feuille_Document = "DOCUMENT"
Application.Worksheets(Feuille_Document).Range("F2").Formula = "=SUM(D2;E2)"
End Sub
浏览 63提问于2008-12-04得票数 20
回答已采纳
我在网上搜索了很多次解决方案，并对VBA进行了多次重新编码。最后，我手动填充了一个字符串(因为我总是错误地计算引号)：
PKHNTString = "=SUBSTITUTE(UPPER(AF:AF&AD:AD&AE:AE);"
PKHNTString = PKHNTString + """ "";"""
PKHNTString = PKHNTString + """)"
这导致一个字符串包含：=替换(AF:AF&AD:AD&AE:AE)；“"
浏览 2提问于2016-01-25得票数 4
回答已采纳
我试图在一个单元格中写入这个字符串"=>“。宏给出“错误1004”。
如果我写"=>x“，宏可以正常工作，其中x代表另一个字符。
我做错了什么？
谢谢
浏览 0提问于2018-11-19得票数 2
1回答
我试图在VBA的帮助下将一个公式插入到一个单元格中，并且一直收到错误1004：“应用程序定义的或对象定义的错误”。问题出在哪里？
Worksheets("Sheet1").Range("L10").Formula = "=VLOOKUP(" & Cells(6, 15) & ", SQLTable, 2, 0)*" & Cells(6, 16)
浏览 1提问于2020-05-27得票数 0
回答已采纳
1回答
我正在创建小计，并希望在小计行的空单元格(没有和)中引用上面的单元格。公式将引用上面的单元格。例如:如果第4行是小计线，而单元格A4是空单元格，则A4中的公式为"=A3“
ActiveCell.Formula = "=" & Cells(-1, "A").Address(False, False)
我有上面写的代码，但我得到运行时错误1004应用程序-defined或对象定义的错误。
我也尝试了下面的代码，但也出错了。
ActiveCell.Formula = "=" & Cells(-1, A).Address(Fals
浏览 3提问于2016-01-27得票数 1
回答已采纳
3回答
我有一个由输入和报警组成的(简化示例)矩阵。每个动作(X)都应该有一个输入和一个警报，即不应该在E列或第6行插入任何动作。
我使用数据验证来实现这一点，并且它是有效的。
但是，如果我将数据粘贴到这些单元格中，它们并不遵循验证规则。我插入了这段VBA代码来防止这种情况(摘自www.j-walk.com/ss/excel/tip/tip98.htm)：
Private Sub Worksheet_Change(ByVal Target As Range)
'Does the validation range still have validation?
浏览 1提问于2015-04-01得票数 4
回答已采纳
5回答
我试图在单元格中应用一个写是或否的公式，检查另一个单元格是否以Q(文本)开头。
在Excel中手动编写它是可行的。
=IF(LEFT(A2;2)="Q)";"YES";"NO")
但是当我试图在宏中自动执行时
Range("R2").Formula = "=IF(LEFT(A2;2)=""Q)"";""YES"";""NO"")"
运行时错误“1004”：应用程序定义的或对象定义的错误
此外，我还想在整个专栏中这
浏览 2提问于2017-08-02得票数 1
回答已采纳
2回答
我有一个excel，我添加了一个数据验证。
当我通过excel函数使用数据验证过程时，它工作得很好：
自定义公式：=IF(AND(M7>=DATE(2015;1;1);M7<=D7);TRUE;FALSE)
但是，当我使用VBA代码添加数据验证时，出现了以下错误：
运行时错误'1004'：
应用程序定义或对象定义的错误
VBA：
Range("M7:M" & (6 + 15)).Select
With Selection.Validation
.Delete
.Add Type:=xlValidateCustom, Aler
浏览 3提问于2015-06-17得票数 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
回答已采纳
1回答
我对宏很陌生，很难创建一个宏，该宏将复制一系列单元格，然后将值粘贴回相同的单元格中。基本上，我只需要去掉公式并将值粘贴回相同的位置。
我已经尝试了下面的编码，但是我得到了一个错误，上面写着“运行时错误'1004'：Range类的PasteSpecial方法失败”。有人能帮忙吗？
Sub CopyPaste()
Worksheets("Sheet1").Range("A1:G105").Copy
Worksheets("Sheet1").Range("A1:G105").PasteSpecial Paste:=xlP
浏览 1提问于2022-05-12得票数 0
在执行以下公式时，我一直收到Excel VBA错误"1004“。
..in VBA代码
For i = 5 To lastrow
ws2.Cells(i, lastcolumn + 1).Formula = "=DATEVALUE(INDIRECT(LEFT($F$1,1)" & i & "))+TIMEVALUE(INDIRECT(LEFT($H$1,1)" & i & "))"
ws2.Cells(i, lastcolumn + 1).NumberFormat = "d
浏览 1提问于2017-08-22得票数 1
1回答
如果在工作表单元格中使用VLOOKUP()，并且找不到查找值，则VLOOKUP()将返回#N/A
我想在VBA中做同样的事情，而不把公式放在单元格中。到目前为止，我已经尝试过：
Sub FailedLookup()
Dim v As Variant
v = Application.VLookup(11, Range("A1:B10"), 2, False)
MsgBox CStr(v)
End Sub
以上返回“错误2042”。
Sub FailedLookup2()
Dim v As Variant
v = WorksheetFunct
浏览 1提问于2016-01-13得票数 2
回答已采纳
假设单元格A1是一个日期:2017年6月23日
现在，在excel中，如果我将以下公式放入单元格B1中：
= IF(INT(C2)>INT(2/15/2017);"Year1";"Year2")
那它就正常工作了。
然而，如果我试图把它说成是VBA尾声：-
Set sht1 = xWb.Sheets("ProcessedData")
sht1.Range("B1").Select
sht1.Range("B1").Formula = _
"=IF(INT(A1)>INT(2/15/2
浏览 2提问于2017-10-25得票数 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
上图显示了包含公式而不是值的3个单元格；第一个单元格在PHP每小时费率下，第二个单元格在Name下，第三个单元格是Invoice Sub Total。但是，在双击单元格并按enter后，这些值就会显示出来。为什么会发生这种情况？我正在Excel 2013上使用Excel VBA。
谢谢。
浏览 51提问于2014-06-20得票数 19
1回答
我的Excel电子表格中的单元格B2中有以下数组公式：
{=IF(COUNT(IF(ISNUMBER(A30:A1000);IF(B30:B1000>A30:A1000-1;A30:A1000)))>=COUNT(IF(ISNUMBER(A30:A1000);COUNT(B30:B1000>A30:A1000-1;A30:A1000)));COUNT(IF(ISNUMBER(A30:A1000);COUNT(B30:B1000>A30:A1000-1;A30:A1000))))}
现在，我想使用以下VBA代码将此代码复制到单元格A2中：
Sheets("Shee
浏览 5提问于2016-06-24得票数 1
回答已采纳
我是一名飞行员，使用名为Logten Pro的日志程序。我有能力从我的工作航班管理软件中保存excel电子表格，并使用CSV格式将它们导入Logten Pro。
然而，我的问题是，工作航班管理软件将航班起飞日期和时间导出到一个单元格中，格式如下: DD/MM/YYYY H:MM:SS PMExcel可以很好地处理这一问题，并且默认情况下格式化为DD/MM/YY，尽管实际值更为具体，由全长日期和时间组组成。
这是一个问题，因为Logten Pro只有在日期为DD/MM/YY格式时才会自动导入日期，并且没有办法仅提取显示的DD/MM/YY日期而不是完整的日期时间组实际值，除非您手动浏览并删除函数框
浏览 22提问于2012-01-13得票数 8
我试图过滤掉指定范围内的空单元格，并找到了这段代码。测试结果为运行时错误1004找不到单元。我查看了“局部变量”窗口，当我查看“局部变量”窗口时，“配置范围”似乎没有正确地分配为一个范围。我通常不使用VBA，所以我不确定我是否遗漏了它的某些方面 Set ConfigRange = Worksheets("Sheet1").Range("L72:L92")
For Each cell In ConfigRange.SpecialCells(xlCellTypeFormulas)
MsgBox (cell) &
浏览 41提问于2021-09-25得票数 0
1回答
这是我的问题。我尝试使用Vlookup并接收一个#NA，然后我尝试使用索引匹配，公式中断和返回并不都是存在的。我得到了一些0和#REF！在我的公式列。
这就是我想要做的。我有两个工作表的工作簿。第一张题为“巴西”的工作表是我把公式写在D栏中的地方。现在，我要做的是匹配来自工作表“巴西电子邮件”的电子邮件地址和来自“巴西”的工作表中的工作表，然后从“巴西”工作表中的单元格中提取信息--该栏与公式中的电子邮件匹配。
代码片段显示公式在第3列D中工作，并从A列(Employee)返回信息，但在几行之后中断，并间歇性地工作。
当前我的公式如下：=INDEX(A2:A34，MATCH(C2，‘巴西电子邮
浏览 6提问于2016-03-15得票数 0
回答已采纳
当假日列表中出现日期时，我会尝试突出显示单元格的范围。但是在运行下面的代码时，会显示运行时错误1004。我甚至尝试过在错误处理程序中处理它；但它不起作用。有没有人能帮我解释一下为什么会发生这个错误并解决这个问题？
Sub highlight_cells()
Dim myrange As Range
On Error GoTo myerr:
For i = 1 To 10
Set myrange = Range(Cells(1, i), Cells(10, i))
temp = Application.WorksheetFunction.VLookup(Range(Cells(1, i)), [
浏览 0提问于2016-12-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
3回答
我刚刚开始在我的VBA中使用命名引用，但遇到了一个小问题。
我有一个名为"SiteCount“的命名引用，它计算列中的站点数。
=COUNTA(Data!$B:$B)
它在作用域中被保存为工作簿，当我在单元格中使用它时，它可以作为
=SiteCount
我想我可以在我的代码中使用这一点，而不是复制计算，但是我不能保存这个值，就像
Sitecount = Range("SiteCount")
我也尝试使用工作表名称，但是我得到了相同的1004“对象全局失败的方法范围”。
我猜是很简单的事。但我搞不懂。感激地收到以下建议:)
浏览 0提问于2014-07-01得票数 3
回答已采纳
2回答
我正尝试通过VBA将一个公式粘贴到Excel单元格中，但没有成功。当我尝试这个代码时，它完美地工作了-
ActiveSheet.Range("B7").Value = "=VLOOKUP(A7,$A$1:$B$3,2,0)"
但是当我尝试这段代码时
ActiveSheet.Range("B7").Value = "=VLOOKUP(CONCATENATE(VLOOKUP(LOOKUP(2,1/($A$5:A7<>""),$A$5:A7),Instructions!$A$4:$B$40,2,0),NTFS!XFC
浏览 2提问于2017-12-03得票数 0
1回答
情况是这样的:我有一个包含两列的电子表格，A和B。每一列的单元格都使用Excel的数据验证来在其中包含一个下拉列表。
A的单元格有一个值为0、1、2、3的下拉列表。B的单元格有一个值为True、False的下拉列表。
我想根据同一行的A列中单元格的选定值来调整B列单元格中列表的值。
这正是我想要实现的目标:如果A中的单元格的值为0或1，那么同一行B中的单元格的下拉列表将只有一个值True。否则，同一行B中的单元格的值为True，False。这就是全部。
我的职业是程序员，但我已经被VBA贬低了。我将非常感谢任何解决方案，无论它是否需要使用VBA。谢谢。
浏览 10提问于2019-11-06得票数 0
3回答
我在这个问题上被困了很长时间。我已经想出了解决这个问题的方法，但每一个方法都带来了更多的问题。
我的宏复制和粘贴信息从Microsoft到Excel，然后格式化excel工作表。
然而，有些单元格显示了一个#名称？错误。原因是单元格拷贝在“=我需要进入这个单元格，删除“=-”，只留下字符串列表SC。
不过，我不能就这样骑着它，因为每次它都变了。它可能是“列表FL”或“列表BP”或任何其他变化。
我不能执行InStr或任何其他函数，因为VBA代码只将其读取为错误，而不读取公式栏。它只写着“#名字？”或者识别错误。
有人对我能做什么有什么建议吗？
我已经附上了这一问题的一张照片。重点是错误和公式条
浏览 0提问于2016-04-21得票数 1
回答已采纳
我在I2里有一个公式
= "=" & "'" & $H2 & $I2 & E2 & "'!" & "$C$2"
它结合了目录、文件名、工作表名和单元格位置。
现在，我想在中求出公式的值。如果没有VBA，或者仅仅使用一些VBA，是否有可能做到这一点？我需要能够将I2填充到I1000，我个人更喜欢一种非VBA方法。
例如，假设结果 of I2是：
='R:\20180220\[Test.xlsb]'!$C$2
是否有办法在J2中实际显示该单元格的值？请注意
浏览 0提问于2018-02-20得票数 0
1回答
我得到一个运行时错误'1004‘基于底线的代码。如果我“结束”并重新运行，问题就不会出现。
我只包含了相关的代码，因为我有很多变量，如果和格式化代码。
Dim Yeild As String
Sub NewPage()
'...
Yeild = "=INDEX(AcreGrid,MATCH(" & Chr(34) & Comm & Chr(34) & _
",Prod!R3C1:R30C1,),MATCH(" & Chr(34) & Season &
浏览 2提问于2013-08-29得票数 0
回答已采纳
我有一个高级过滤器，用于对大型数据集进行排序。
过滤器正在将过滤后的数据放到单独的工作表中。
我有一个VBA宏，它允许我突出显示希望使用的过滤器部分，并将其粘贴到与filter表相邻的区域中。
目前我使用的是非常简单的VBA。活动选择的副本并粘贴到指定单元格之后的下一个打开行中。单元格是一行标头，对应于正在进行副本选择的表的标头。
Sub CopyPaste()
Selection.Copy
ActiveSheet.Range("J6").End(xlDown).Offset(1, 0).Select
ActiveSheet.Paste
浏览 4提问于2017-05-14得票数 1
回答已采纳
我得到运行时错误1004:无法设置Range类的FormulaArray属性。我一直在研究这个问题，但我找不到解决它的办法。长度不超过255个字符。我也在尝试将公式放在一个新的表列中，所以这可能是问题的一部分。 问题可能出在"Rows(R8C:RC)“部分吗?我试图让它成为一个相对引用，这样它就会引用该公式所在的表。 当我"debug.print Trans_ID“时，我得到了正确的代码，但也许R8C:RC没有更改为正确的单元格引用。 Dim Trans_ID As String
'AccountNumber is equal to 1003
Trans_ID =
浏览 46提问于2019-09-27得票数 0
我试图使用VBA在Excel表中动态添加公式。发生了一些很奇怪的事情。当使用"&“链接字符串的各个组件动态创建公式时，它会给出一个运行时错误'1004'：应用程序定义的错误或对象定义的错误。
这是可行的(但产生了错误的公式)：
Worksheets("Sheet1").Cells(row, 7).Value = "=BDP(f" & row & ":Security Name)"
这不起作用(产生上述错误)：
Worksheets("Sheet1").Cells(row, 7).Va
浏览 3提问于2017-07-24得票数 1
回答已采纳
我有一个自定义的VBA函数，名为
插值(Ran As Range)为双精度
它被添加到公式栏中，并为任何给定的数据范围调用，例如如下所示
=插值(B2:N2)
现在，我想以编程方式(在VBA中)将此函数放入一些单元格中，以便它将自动计算使用该宏启用的单元格左侧区域的插值值。在我的VBA代码中，我尝试通过以下方式完成此操作：
单元格(行，列).Formula=“=插值(B2:N2)”
它可以工作，但是，我希望范围是动态的，也就是说，我事先不知道在启用宏的单元格的左边有多少列。函数Interpolate()可以处理任意数量的参数(它在任何N维空间中进行插值)。因此，我需要动态构造Interpola
浏览 0提问于2015-03-10得票数 2
我正在Excel中玩VBA，我不知道为什么会出现这个错误。
以下代码起作用：
Cells(1, 1) = " =if(counta( " & aLoc & "Subbies'!$A$2:$A$20>0 ""YES"", ""NO"" "
以下代码不起作用：
Cells(1, 1) = "=if(counta( " & aLoc & "Subbies'!$A$2:$A$20>0 ""YES"&#
浏览 8提问于2017-01-06得票数 0
回答已采纳
1回答
Dim worksheet1 As Worksheet
Set worksheet1 = ActiveSheet
Dim workbook2 As Workbook
Set workbook2 = Workbooks.Open(("F:\Project Sweep\Kim Checklist\" & worksheet1.Cells(19, 12) & "\Consumers.xlsx"))
Dim targetString As String
targetString = "index('"
浏览 1提问于2018-07-30得票数 0
我正在尝试使用VBA将一个公式添加到Excel的单元格中，(简化的)代码是
Dim destRow as integer
destRow = 107
Cells(destRow, 19) = "=IF(L" & destRow & "="""";"""";""UNB"")"
‘我还尝试了以下命令(代替最后一行)：
Cells(destRow, 19) = "=IF(L" & destRow &am
浏览 1提问于2013-11-02得票数 1
因此，这可能不会是一条长消息，因为这段代码没有太多内容。基本上，我正在创建一个代码，它将根据条件将一个字符串(看起来像一个反式)打印到一个单元格中。
在第一种情况下，所有的操作都很好，但是，当我到达else语句时，就会得到一个
运行时错误"1004"：应用程序定义的r对象定义错误。
Sub SetCriteria()
If Sheet1.Range("E3").Value = 1 Then
Sheet8.Range("F3") = "=COUNTIFS(Tank!G6:Tank!G1000,Dashboard!C6"
E
浏览 0提问于2019-05-13得票数 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
1回答
我在Windows 7上使用Excel 2010，我有一个VBA宏，它必须把一个公式放在Excel 2010的表格下面。该表是一个具有列名日期、流量、MB和请求的ListObject，#i使用以下代码添加公式：
With ActiveWorkbook.Worksheets("Sheet1").ListObjects("myquery1").Range
.Columns(2).End(xlDown).Offset(1, 0).Value = "=SUM(myquery1[Traffic, MB])"
.Columns(3).End(
浏览 3提问于2014-03-31得票数 0
回答已采纳
是否有任何VBA代码或复杂的excel函数可以帮助我完成所需的工作？我用check#s导出了数千个check#s，需要使用相应的检查#将它们组合成一个单元格。我知道我可以组合文本，我可能会使用一个VLUP函数，但我不确定应该使用的确切函数字符串。
基本上，行A2:A4都共享check# 999，所以当我运行脚本或输入函数时，它应该在行C2中组合ref#s 1 2 3。在下一行中，它将组合reference#s 4 5，依此类推(例如，在下表中)。都被空格隔开了。这个是可能的吗？用手做这件事很乏味。例如..。
Ref # Chk # Combined #
1 999
浏览 4提问于2016-04-21得票数 0
回答已采纳
我在尝试编写这个非常简单的vba方法时遇到了一个奇怪的问题
这可以很好地工作：
ThisWorkbook.Sheets("Analyse").Cells(i, 2) = "=HiGuys"
这可以很好地工作：
ThisWorkbook.Sheets("Analyse").Cells(i, 2) = "=VLOOKUP"
但是它得到了一个“运行时错误'1004‘，而它不应该是’1004‘。
ThisWorkbook.Sheets("Analyse").Cells(i, 2) = "=VLOOKUP(&
浏览 2提问于2013-09-02得票数 1
1回答
我只想简单地将一个公式输入到一个单元格中，该单元格包含一个连在一起的文本字符串和一个函数--我得到了一个恒定的1004错误。
细胞中的期望公式
=“”
在excel工作表中按预期工作。
在VBA我有
Sub IAS_AUTO_LIST()
Application.ScreenUpdating = False
Set uRange = Application.Selection
Set uRange = Application.InputBox("Select Range to Add Par ID Link", "Range", uRange
浏览 2提问于2022-11-16得票数 0
我在做Excel VBA宏。
我必须在牢房里写一个公式。
我指的公式是CONTA.SE()。它的行为方式与COUNTIF()相同。我想这是意大利语的COUNTIF()版。
更确切地说，我要实施的公式是：
=CONTA.SE(Report!E:E;"<20")
这样它就可以处理从E2到最后一个非空单元格的单元格值。
我想因为双引号我有麻烦了。
我尝试过许多解决方案，例如：
Cells(5, 2).Formula = "=CONTA.SE(Report!E2:E" & rowCount & ";" & Chr(34) &
浏览 0提问于2018-08-08得票数 1
回答已采纳
1回答
我目前正在学习VBA，但我不能解决这个问题。我尝试查看每行范围(W:AC)中的最大日期，并将结果放入同一行的单元格"BU“中。在定义要放置结果的单元格的行上，我得到了一个1004错误。我是否因为将范围定义为W:AC而收到错误？
Sub Max_Date()
Dim MaxDate As Date
Dim CellRange As Range
Dim Source As Worksheet: Set Source = ActiveWorkbook.Sheets("Sheet1")
Dim row As Variant
row = Source.Rows.Count
Se
浏览 4提问于2020-02-19得票数 1
回答已采纳
我正在尝试在excel电子表格中利用VBA中的goalseek命令。我在F3、F7和F18中有一个值。当我更改F3中的值时，我得到以下错误：
运行时错误'1004'：引用无效
以下是代码
Private Sub Worksheet_Change(ByVal Target As Range)
With Worksheets("Mdl")
If Target = Range("F3") Then
Range("F3").GoalSeek Goal:=Range("F7"), ChangingCell:=Ran
浏览 0提问于2016-02-06得票数 0
扫码
添加站长 进交流群
领取专属 10元无门槛券
手把手带您无忧上云
相关资讯
热门标签
云服务器
ICP备案
对象存储
实时音视频
即时通信 IM活动推荐
腾讯云开发者
