2023-12-25 09:07
admin【作为标题】我不知道这是什么意思，提取工作表我可以先解答：
Sub 提取工作表名称()
Dim a, b
a = Sheets.Count
For b = 1 To a
Sheet1.Cells(b, 1).Value = Sheets(b).Name '将工作表名称在A列按顺序提取
Next
End Sub
顶一下
(0)
0%
踩一下
(0)
0%
- 相关评论
- 我要评论
-
上一篇：返回栏目
【作为标题】我不知道这是什么意思，提取工作表我可以先解答：
Sub 提取工作表名称()
Dim a, b
a = Sheets.Count
For b = 1 To a
Sheet1.Cells(b, 1).Value = Sheets(b).Name '将工作表名称在A列按顺序提取
Next
End Sub
550
517
362
342
314
313
312
307
307
306