代码之家 › 专栏 › 技术社区 › niko

Excel公式在VBA中的实现

vba

niko · 技术社区 · 7 年前

我有这个Excel公式,我想通过VBA实现,不幸的是,它不断产生错误。

我的Excel公式:

      IF(isemptyornothing(A1:A50); ""; IF(ISNUMBER(VALUE(A1:A50)); VALUE(A1:A50); A1:A50))

    Range("B1:B50").Formula = _
  "=IF(IsEmptyorNothing(A1:A50), "", IF(ISNUMBER(VALUE(A1:A50)), VALUE(A1:A50), A1:A50))"

这会产生以下错误:

运行时错误“1004”:应用程序定义或对象定义的错误

作为VBA的新手,我不知道该怎么办。

1 回复 | 直到 7 年前

Scott Craner 7 年前

"" 需要 """"

此外,您显示的公式需要输入数组,但您可以简单地执行以下操作:

Range("B1:B50").Formula = _
  "=IF(IsEmptyorNothing(A1), """", IF(ISNUMBER(VALUE(A1)), VALUE(A1), A1))"

当公式被复制下来时,Excel会自动调整A1。

IsEmptyorNothing 是自定义项,因为标准Excel中不存在此类公式。

推荐文章

CPS · 当变量值为空时,在另一个变量中赋值

2 年前

xris23 · 通过VBA选择命名范围,让用户直接编辑单元格

2 年前

Stormer · 从Access格式化Excel单元格无效

2 年前

j johns · 通过VBA将ascii art添加到命令提示符

2 年前

BinaryCat · Excel-将单元格转换为具有成对数据的行

2 年前

Waleed · 以下拆分函数的(0)表示什么?

2 年前

judo_ürgens · vlookup和sumif(每个项目的总利润)

2 年前

Louay Alkhawam · 在任意多个列中计算包含子字符串*[橙色]*的行,而不重复计算?

2 年前

smrmodel78 · VBA创建表格未选择正确的范围

2 年前

HouÅ¡tí · 如何检测鼠标释放

2 年前