phpexcel导出部分空白_excel名称管理器中公式的批量导出导入

2020年萌软在excel中推出了let和lambda函数,后者可以将自定义函数写在名称管理器中,如果录入了大批量的自定义函数,需要转移到其他文档中,涉及名称管理器的批量导出导入问题。萌软并未提供图形界面的批量处理方法,目前方法主要有两种。

a98560c900949a35ed1ff776519dc606.png

方法一

使用xml文件的特点进行处理。

已填有名称和公式的xlsm文件,扩展名xlsm改为zip。

273dd522a7393914e997c4b0aad1259b.png

aa0c42d685cff70507ba382f540e29b3.png

使用winrar打开,找到xlworkbook.xml。

ccc15bdd435d78ffa6a5b2f40827d409.png

打开后,在<calcPr calcId=之前,选中<definedNames>至</definedNames>的部分,复制,将空白的xlsm文档改为zip,打开同名文件,粘贴入这段代码,相当于批量导入。保存,扩展名改为xlsm。其中类似<definedName name="fx">EVALUATE(Sheet1!$B$1)</definedName>的内容,包含名称及公式。

93dc910eb7405aa03b34132882c47ef1.png

该方法在网上没有看到过相关介绍,这几天我刚测试成功。

方法二

A列是名称,B列是函数,用于批量导入到名称管理器中。

d5645314b9209374e935c5bb923c5c1b.png
Sub 批量导入()
    On Error Resume Next
    For k = 1 To Range("a" & Rows.Count).End(3).Row
        ActiveWorkbook.Names.Add Name:=Cells(k, 1).Value, RefersTo:=Cells(k, 2).Value
    Next
End Sub

http://club.excelhome.net/thread-1149999-2-1.html

Sub 批量删除1()
    For i = 1 To ActiveWorkbook.Names.Count: ActiveWorkbook.Names(1).Delete
    Next
End Sub

http://club.excelhome.net/thread-949053-1-1.html

不过经过测试发现该方法有缺点,不支持部分函数,如EVALUATE等,研究以后发现,需要改为ActiveWorkbook.Names.Add Name:="fx", RefersToR1C1:="=EVALUATE(Sheet1!R1C2)",故缺乏通用性,不如直接使用方法一。

  • 0
    点赞
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值