如何在Excel中的两个列表框之间快速移动项目？
您是否曾尝试根据需要将项目从一个列表框移动到另一个列表框，如下图所示？ 在这里，我将讨论Excel中的此操作。
在列表框之间移动项目
在列表框之间移动项目
惊人的！ 在 Excel 中使用高效的选项卡，如 Chrome、Firefox 和 Safari！
每天节省50％的时间，并减少数千次鼠标单击！
没有内置功能可以帮助您完成工作，但是我有一个VBA代码可以帮您一个忙。
1.首先，您需要创建一个数据列表，该数据列表将在新工作表的列表框中显示为项目， 管理员列表.
2.然后选择这些数据并转到 Name
给他们起个名字的盒子 物品清单。 看截图：
3.然后在包含两个列表框的工作表中，单击 开发商 > 插页 > 列表框（Active X控件），并绘制两个列表框。 看截图：
如果 开发商 标签页隐藏了您的功能区， 如何在Excel 2007/2010/2013功能区中显示/显示开发人员选项卡？ 本文将告诉您如何显示它。
4。 然后点击 开发商 > 插页 > 命令按钮（Active X控件），并在两个列表框之间绘制四个按钮。 看截图：
现在用新名称重命名四个命令按钮。
5.选择第一个命令按钮，单击 租房，而在 租房 窗格，给一个名字 BTN_moveAllRight 并输入 >> 进入旁边的文本框 标题
。 看截图：
6.重复步骤5，用下面的名称重命名最后三个命令按钮，然后在标题中键入不同的箭头。 看截图：
BTN_MoveSelectedRight
BTN_moveAllLeft
BTN_向左移动所选内容
7.右键单击包含列表框和命令按钮的工作表名称，然后选择 查看代码
从上下文菜单中。 看截图：
8.复制下面的宏代码并将其粘贴到 模块 脚本，然后保存代码并关闭 Microsoft Visual Basic应用程序 窗口。 看截图
VBA：在两个列表框之间移动项目
Private Sub Worksheet_Activate()
UpdatebyExtendoffice20171117
Dim xCell As Range
Dim xRg As Range
Set xRg = Sheets("Admin_Lists").Range("ItemList")
Me.ListBox1.Clear
Me.ListBox2.Clear
With Me.ListBox1
.LinkedCell = ""
.ListFillRange = ""
For Each xCell In xRg
If xCell <> "" Then
.AddItem xCell.Value
End If
Next xCell
End With
Me.ListBox1.MultiSelect = fmMultiSelectMulti
Me.ListBox2.MultiSelect = fmMultiSelectMulti
End Sub
Private Sub BTN_MoveSelectedLeft_Click()
Call moveSigle(Me.ListBox2, Me.ListBox1)
End Sub
Private Sub BTN_MoveSelectedRight_Click()
Call moveSigle(Me.ListBox1, Me.ListBox2)
End Sub
Private Sub BTN_moveAllLeft_Click()
Call moveAll(Me.ListBox2, Me.ListBox1)
End Sub
Private Sub BTN_moveAllRight_Click()
Call moveAll(Me.ListBox1, Me.ListBox2)
End Sub
Sub moveAll(xListBox1 As Object, xListBox2 As Object)
Dim I As Long
For I = 0 To xListBox1.ListCount - 1
xListBox2.AddItem xListBox1.List(I)
Next I
xListBox1.Clear
End Sub
Sub moveSigle(xListBox1 As Object, xListBox2 As Object)
Dim I As Long
For I = 0 To xListBox1.ListCount - 1
If I = xListBox1.ListCount Then Exit Sub
If xListBox1.Selected(I) = True Then
xListBox2.AddItem xListBox1.List(I)
xListBox1.RemoveItem I
I = I - 1
End If
Next
End Sub
9.然后转到另一个工作表，然后返回到包含列表框的工作表，现在您可以看到列表数据已在第一个列表框中列出。 然后单击命令按钮以在两个列表框之间移动项目。
移动选择
全部移动
最佳办公生产力工具
将小时转化为分钟 Kutools for Excel!
准备好增强您的 Excel 任务了吗？ 利用的力量 Kutools for Excel - 您终极的节省时间的工具。 简化复杂的任务并像专业人士一样浏览数据。 以闪电般的速度体验 Excel！
为什么需要 Kutools for Excel
🛠️ 超过 300 项强大功能: Kutools 包含 300 多项高级功能，可简化您在 1500 多种场景中的工作。
📈 卓越的数据处理能力：合并单元格、删除重复项并执行高级数据转换 - 所有这些都不费吹灰之力！
⏱️ 高效的批量操作：当你可以聪明地工作时，为什么还要付出额外的努力呢？ 轻松批量导入、导出、组合和调整数据。
📊 可定制的图表和报告：访问各种附加图表并生成富有洞察力的报告。
🗄️ 强大的导航窗格：通过强大的列管理器、工作表管理器和自定义收藏夹获得优势。
📝 七种类型的下拉列表：通过各种功能和类型的下拉列表使数据输入变得轻而易举。
🎓 用户友好：对于初学者来说轻而易举，对于专家来说是一个强大的工具。
***
***
*** ***
Office Tab 为 Office 带来选项卡式界面，让您的工作更轻松
在Word，Excel，PowerPoint中启用选项卡式编辑和阅读，发布者，Access，Visio和Project。
在同一窗口的新选项卡中而不是在新窗口中打开并创建多个文档。
每天将您的工作效率提高50％，并减少数百次鼠标单击！
