摘要: 1- 区域命名 ThisWorkbook.Names.Item("foo").RefersTo =Tabelle1!$A$1:$B$1 ThisWorkbook.Names.Item("foo").RefersToRange.Address $A$1:$B$1 2- 一个有趣的case Sub 按钮 阅读全文
posted @ 2019-11-20 10:48 Zoe-D 阅读(587) 评论(0) 推荐(0) 编辑
摘要: 11-19 For TK Sub CF抓取分拆() ' ' 宏1 ' Data页为prophet查询结果 ' 逐产品逐mp导出 ' Dim aa aa = Sheets.Count Do While aa > 2 aa = Sheets.Count Application.DisplayAlerts 阅读全文
posted @ 2019-11-20 10:05 Zoe-D 阅读(217) 评论(1) 推荐(0) 编辑