关于如何获得工作表名称的问题
呵呵，可用vba呀，那我也来了
ub 工作表名称()
Sheets(“表一”)。Select
[A1] = “工作表名称”
[c:c]。Clear
For i = 1 To Worksheets。Count
Range(“c” & i + 1) = Worksheets(i)。
Name
Next i
End Sub
Sub 清空结果()
Sheets(“表一”)。Select
Cells。Clear
End Sub
Sub 链拉工作表名称()
Sheets(“表一”)。Select
[A1] = “工作表名称”
[g:g]。
Clear
‘链接工作表
For i = 1 To Worksheets。Count
ActiveSheet。Hyperlinks。Add Anchor:=Range(“g” & i + 1), Address:=””, SubAddress:=Worksheets(i)。
Name & “!A1”, TextToDisplay:=Worksheets(i)。Name & “!A1”
Next i
End Sub
。
