[已解决][求助]怎样将附件中的数组公式引用到vba中

zzh49

请老师帮助，将附件中的数组公式引用的vba中或直接用代码替代。附件中有说明： 附件.rar (5.5 KB, 下载次数: 16)

2011-12-19 16:09 上传

点击文件名下载附件
谢谢！！！

最佳答案

月排行榜 / 总排行榜

wayy

2011-12-19 17:21

1. Sub AAA()
   
2. [a1] = ActiveSheet.Name
   
3. End Sub

复制代码

跳转到最佳答案楼层

兰色幻想

干嘛要用这么复杂的方法呢？直接activesheet.name不就完了？

wayy

1. Sub AAA()
   
2. [a1] = ActiveSheet.Name
   
3. End Sub

复制代码

兰色幻想

要是非要用这样的公式：
[a1] = Evaluate("=MID(CELL(""filename"",$A$1),FIND(""]"",CELL(""filename"",$A$1))+1,LEN(CELL(""filename"",$A$1))-FIND(""]"",CELL(""filename"",$A$1)))")

zzh49

感谢二位老师的帮助。谢谢！