用宏比较容易实现。
代码如下： 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 If sh.CodeName <> "Sheet1" Then Sheet1.Cells(a, 1).Value = ***.Name a = a + 1 End If Next End Sub。
免责声明：本文由用户上传，与本网站立场无关。财经信息仅供读者参考，并不构成投资建议。投资者据此操作，风险自担。 如有侵权请联系删除！