怎样使用VBA两个列表框之间的内容转移？

1、首先在开发工具中打开VBA编辑器

2、在单元格区域当中输入一些内容作为例子

3、在VBA编辑器中插入模块

4、在模块当中输入如下代码，然后运行

Private Sub UserForm_Initialize()

    Dim objMenu As CommandBar, objCont As CommandBarControl, Num As Long
    Application.ScreenUpdating=False
      Num=1
      For Each objMenu In Application.CommandBars '将变量赋予菜单项
      For Each objCont In objMenu.Controls      '将变量赋予子菜单
          Me.ListBox1.AddItem objCont.Caption    '在列表框中添加子菜单名
          Num=Num+1
      Next objCont
      Next objMenu
    Application.ScreenUpdating=True
    Set objMenu=Nothing                      '释放变量
    Set objCont=Nothing
    Me.ListBox1.MultiSelect=fmMultiSelectMulti '允许多项选择
    Me.ListBox2.MultiSelect=fmMultiSelectSingle  '只能单项选择
    Application.ScreenUpdating=True
  End Sub

5、选中右边“要显示的菜单”列表中的“插入”条目，然后单击“<< 删除”按钮，则选中条目立即删除，如图