Excel宏代码片段: Private Sub Worksheet_Activate() Dim sh As Worksheet Dim a As Integer Dim R As Integer //在目录工作表激活时,自动创建工作簿中除目录工作表外所有工作表的目录 R = Sheet1.[A65536].End(xlUp).Row a = 2 If Sheet1.Cells(2, 1) "" Then//判断是否存在工作表目录 Sheet1.Range("A2:A" & R).ClearContents End If For Each sh In Worksheets I...[ 查看全文 ]