摘要: Sub 生成目录() Dim wsht As Worksheet, k%, wshtname$ Columns(1).ClearContents '清空A列数据,这样就可以随着工作表的变化,生成不同的工作表目录 Range("a1") = "超链接目录" '第一个单元格写入字符串 k = 1 '赋予 阅读全文
posted @ 2021-10-24 00:04 redufa 阅读(1132) 评论(0) 推荐(0)