摘要:
excel中批量创建超链接代码(连接当前文档中的sheet),在sheet1中B列中要创建一系列的超链接,链接的内容是本文档中的其他sheet,如下图,在sheet1下创建宏,代码如下。 Sub 宏1() Dim temp, temp2 Dim i, j j = 1 For i = 5 To 74 阅读全文
摘要:
1 Sub link() 2 Dim num, sheetname 3 4 Worksheets(1).Select 5 6 num = WorksheetFunction.CountA(Columns("c:c")) 7 'MsgBox num 8 9 For i = 2 To num ... 阅读全文
摘要:
Sub countrownum() Dim i, num, rownum num = Worksheets.Count For i = 2 To num 'Worksheets(i).Select rownum = WorksheetFunction.CountA(Worksheets(i).Col... 阅读全文