excel提取名字

作者: 神婆星座网小编
来源: 神婆星座网
2024-12-28

大家好，今天神魄星座网小编给大家分享「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列，如果你点击某一个单元格，则跳到相应名称的工作表。

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

大家都在免费测试星座血型，你要试试吗？

以上就是关于「excel提取名字」的全部内容，本文讲解到这里啦，希望对大家有所帮助。如果你还想了解更多这方面的信息，记得收藏关注本站~

【此①文为神魄星座网www.shenpo.com★文章，转载请注明出处！】