VBA能否像写入普通公式一样，在一个区域里写入数组公式？

dz05 · 发表于 2014-7-18 21:02

求助：

请问，如何在"L6:L125"区域写入数组公式：{=MID(J26,MATCH(TRUE,LENB(MID(J26,ROW($J$1:$J$30),1))=2,),LENB(J26)-LEN(J26))}

Thanks.

zhaogang1960 · 发表于 2014-7-18 21:15

本帖最后由 zhaogang1960 于 2014-7-18 21:18 编辑

录制宏可得：

Sub Macro1()
Range("L6:L125").FormulaArray = "=MID(R[20]C[-2],MATCH(TRUE,LENB(MID(R[20]C[-2],ROW(R1C10:R30C10),1))=2,),LENB(R[20]C[-2])-LEN(R[20]C[-2]))"
End Sub

复制代码

或

Sub Macro2()
Range("L6:L125").FormulaArray = "=MID(J26,MATCH(TRUE,LENB(MID(J26,ROW($J$1:$J$30),1))=2,),LENB(J26)-LEN(J26))"
End Sub

复制代码

dz05 · 发表于 2014-7-18 21:29

zhaogang1960 发表于 2014-7-18 21:15
录制宏可得：或

兄弟，不对哦，提示错误。单个单元格就可以，区域输入就不行。

zhaogang1960 · 发表于 2014-7-18 21:40

dz05 发表于 2014-7-18 21:29
兄弟，不对哦，提示错误。单个单元格就可以，区域输入就不行。

我只是提供一个方法，提示错误应该是数组公式本身不正确引起的
录制宏方法：
录制宏——正常写入数组公式，最后这得到的结果就是你想要的宏了

永在战场 · 发表于 2019-6-20 15:20

vba中可以直接将区域range赋值给数组吗？

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

[求助] VBA能否像写入普通公式一样，在一个区域里写入数组公式？