使用 VBA 插入公式时应用程序定义或对象定义的错误

leek55277 · 发表于 2024-9-4 13:43

公式直接在 excel中输入时是有效的，但是当我使用 VBA 输入公式，系统提示错误：应用程序定义的或对象定义的错误。

这是我插入宏的公式：

Range("B3").Select

ActiveCell.Formula = "=IFERROR(OFFSET($C$1,MOD(ROW(),COUNTA(输入表!$E:$E))-1,IF(INT(ROW(A2)/COUNTA(输入表!$E:$E))<2,INT(ROW(A2)/COUNTA(输入表!$E:$E)),"")),"")"

Range("B3:B30000").FillDown

蹲蹲大神帮忙看看是什么原因

ynzsvt · 发表于 2024-9-4 13:51

引号里面的引号都改成双引号

醉眼看尘世 · 发表于 2024-9-4 14:05

该字符串不是正确的公式

leek55277 · 发表于 2024-9-4 14:05

ynzsvt 发表于 2024-9-4 13:51
引号里面的引号都改成双引号

您好，这边查看代码中的引号都是双引号，请问具体是指的哪部分呀

leek55277 · 发表于 2024-9-4 14:06

醉眼看尘世发表于 2024-9-4 14:05
该字符串不是正确的公式

您好，请问是格式问题吗？

醉眼看尘世 · 发表于 2024-9-4 14:06

醉眼看尘世发表于 2024-9-4 14:05
该字符串不是正确的公式

"=IFERROR(OFFSET($C$1,MOD(ROW(),COUNTA(输入表!$E:$E))-1,IF(INT(ROW(A2)/COUNTA(输入表!$E:$E))<2,INT(ROW(A2)/COUNTA(输入表!$E:$E)),"""")),"""")"

ynzsvt · 发表于 2024-9-4 14:06

双引号改成四个引号，内部总共8个引号

leek55277 · 发表于 2024-9-4 14:15

醉眼看尘世发表于 2024-9-4 14:06
"=IFERROR(OFFSET($C$1,MOD(ROW(),COUNTA(输入表!$E:$E))-1,IF(INT(ROW(A2)/COUNTA(输入表!$E:$E))

谢谢！请问这个是为什么呀？想要了解一下原理
因为这个公式直接在单元格输入是可以正常运算的

leek55277 · 发表于 2024-9-4 14:20

ynzsvt 发表于 2024-9-4 14:06
双引号改成四个引号，内部总共8个引号

谢谢！请问这个是为什么呀？想要了解一下原理
因为这个公式直接在单元格输入是可以正常运算的

醉眼看尘世 · 发表于 2024-9-4 14:36

在VBA中，通常用一对""围住内容来表达一个字符串
字符串中有"，需要成双
比如，你想得到字符串 A"C 那么就A""C才行。
即： debug.print "A""C"
如果不成双，则 debug.print "A"C" 此时发生错误

		自动登录	找回密码
密码			免费注册

[求助] 使用 VBA 插入公式时应用程序定义或对象定义的错误

评分