1、如下所示,表里面有很多表单。我们希望获取表单的名字。

3、如果对内容了解,可以点击左上角的【启用宏】按钮实现快速启用。

5、打开VBA编辑器,输入如下代码:Sub 岳蘖氽颐按钮1_Click()Dim sht As Worksheet, arr()荑樊综鲶, i%For Each sht In Worksheetsi = i + 1ReDim Preserve arr(1 To i)arr(i) = sht.NameNextRange("a1").Resize(i) = WorksheetFunction.Transpose(arr)End Sub
