excel提取名字

sub?a()
for?i=?1?to?sheets.count
?????range("A"&i)=sheets(i).name
next?
end?sub

按ALT+F11，或者右键任何一个工作表，——查看代码，粘贴我给你的代码。

F5运行。运行结果就在你粘贴代码的工作表中。

Private?Sub?Worksheet_Activate()
??For?i?=?1?To?ThisWorkbook.Worksheets.Count?'工作表总数循环
????Cells(i,?1)?=?Sheets(i).Name?'工作表名写进单元格
??Next
??Range("B2").Select?'光标到指定单元格
End?Sub

Private?Sub?Worksheet_SelectionChange(ByVal?Target?As?Range)?'单元格点击事件宏
??Application.EnableEvents?=?False?'关闭事件响应
????Application.ScreenUpdating?=?False?'关闭屏幕刷新
??????hh?=?ActiveCell.EntireRow.Row?'当前单元格行号
??????lh?=?ActiveCell.EntireColumn.Column?'当前单元格列号
??????nr?=?Cells(hh,?lh)?'当前单元格内容
??????If?nr?<>?""?And?nr?<>?"总表"?Then?Worksheets(nr).Activate?'转到相应的工作表
????Application.ScreenUpdating?=?True?'开启屏幕刷新
??Application.EnableEvents?=?True?'开启事件响应
End?Sub

将以上代码全选复制，在你的工作簿中建立一个名称为总表的工作表，在这个工作表标签上点鼠标右键并选点查看代码，然后点鼠标右键选点粘贴。

以后只要进这个总表，将刷新统计所有工作表并将名称填入A列，如果你点击某一个单元格，则跳到相应名称的工作表。

关于返回总表的代码，请参考以上代码设计，如不清楚，欢迎追问并告知点哪一个单元格返回总表。