自动提取工作表名称的代码

lrlxxqxa

运行代码后，提取工作表名称，A列显示：）

1. Sub test()
   
2. Dim sh As Worksheet
   
3. i = 1
   
4. For Each sh In Sheets
   
5. Range("a" & i) = sh.Name
   
6. i = i + 1
   
7. Next
   
8. End Sub

复制代码