摘要：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 ... 阅读全文

摘要：要求：一个Excel文件中，有多个sheet，每个sheet中都有特定范围的单元格需要填充颜色，手动填充太麻烦，下面是VBA实现的自动填色 阅读全文

摘要：Sub countrownum() Dim i, num, rownum num = Worksheets.Count For i = 2 To num 'Worksheets(i).Select rownum = WorksheetFunction.CountA(Worksheets(i).Col... 阅读全文

摘要：Sub link() Dim num, sheetname Worksheets(1).Select num = WorksheetFunction.CountA(Columns("c:c")) 'MsgBox num For i = 2 To num '把第一个sheet中第3列第i行单元格的值赋值给shee... 阅读全文