如何在Excel中复制当前工作表至同工作簿并使表名进入编辑模式？

之前用SendKeys "%hor"的方式虽然能触发表名编辑，但会意外修改NumLock/CapsLock的状态，这里提供两种更可靠的替代方法：

方法一：调用Excel原生重命名命令（推荐） #

直接调用Excel内置的工作表重命名命令，完全避免模拟按键的副作用：

Public Sub CopySheetAndRename()
    ' 复制当前活动工作表，新工作表会自动成为活动表
    ActiveSheet.Copy After:=ActiveSheet ' 可根据需求修改After/Before参数调整新表位置
    ' 调用原生重命名命令，直接进入表名编辑模式
    Application.CommandBars.ExecuteMso "SheetRename"
End Sub

优点：无需额外依赖，代码简洁，不会影响键盘锁定状态，兼容绝大多数Excel版本。

方法二：通过Windows API模拟双击工作表标签 #

如果原生命令在特定场景下有兼容性问题，可以用API模拟双击标签的动作：

' 64位Excel需保留PtrSafe，32位可删除
Declare PtrSafe Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As LongPtr
Declare PtrSafe Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As LongPtr, ByVal hWnd2 As LongPtr, ByVal lpsz1 As String, ByVal lpsz2 As String) As LongPtr
Declare PtrSafe Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As LongPtr, ByVal wMsg As Long, ByVal wParam As LongPtr, lParam As Any) As LongPtr

Const WM_LBUTTONDBLCLK As Long = &H203
Const MK_LBUTTON As Long = &H1

Public Sub CopySheetAndEditNameViaAPI()
    Dim newSheet As Worksheet
    Dim hwndExcel As LongPtr
    Dim hwndSheets As LongPtr
    Dim hwndTab As LongPtr
    
    ' 复制并激活新工作表
    ActiveSheet.Copy After:=ActiveSheet
    Set newSheet = ActiveSheet
    
    ' 获取Excel主窗口句柄
    hwndExcel = FindWindow("XLMAIN", Application.Caption)
    If hwndExcel = 0 Then Exit Sub
    
    ' 获取工作表标签栏句柄
    hwndSheets = FindWindowEx(hwndExcel, 0, "EXCEL<", vbNullString)
    If hwndSheets = 0 Then Exit Sub
    
    ' 获取目标工作表标签的句柄
    hwndTab = FindWindowEx(hwndSheets, 0, "EXCEL_SHEET", newSheet.Name)
    If hwndTab = 0 Then Exit Sub
    
    ' 发送双击消息触发编辑
    SendMessage hwndTab, WM_LBUTTONDBLCLK, MK_LBUTTON, ByVal 0&
End Sub

注意：API方法需要根据Excel位数调整声明，32位版本要去掉PtrSafe关键字，且对Excel窗口类名的依赖可能随版本略有变化，不如方法一通用。

内容的提问来源于stack exchange，提问作者tdas777