如何在VBA Excel的子菜单下添加子菜单？

在VBA Excel的子菜单下添加子菜单可以通过以下步骤实现：

打开Excel并进入开发工具栏。如果没有开发工具栏，可以通过“文件”->“选项”->“自定义功能区”->“主选项卡”->勾选“开发工具栏”来显示它。
在开发工具栏中，点击“插入”按钮下的“用户窗体”来插入一个用户窗体。
在用户窗体中，右键点击窗体，选择“查看代码”。
在代码编辑器中，找到窗体的初始化事件（一般为UserForm_Initialize），在其中添加以下代码：

Private Sub UserForm_Initialize()
    Dim submenu As CommandBarPopup
    Dim subsubmenu As CommandBarPopup
    
    ' 创建主菜单
    Set submenu = Application.CommandBars("Worksheet Menu Bar").Controls.Add(Type:=msoControlPopup, Before:=6)
    submenu.Caption = "子菜单"
    
    ' 创建子菜单
    Set subsubmenu = submenu.Controls.Add(Type:=msoControlPopup)
    subsubmenu.Caption = "子菜单1"
    
    ' 添加子菜单项
    subsubmenu.Controls.Add Type:=msoControlButton, Before:=1
    subsubmenu.Controls(1).Caption = "子菜单项1"
    
    ' 创建另一个子菜单
    Set subsubmenu = submenu.Controls.Add(Type:=msoControlPopup)
    subsubmenu.Caption = "子菜单2"
    
    ' 添加子菜单项
    subsubmenu.Controls.Add Type:=msoControlButton, Before:=1
    subsubmenu.Controls(1).Caption = "子菜单项2"
End Sub