如何防止在Excel中使用下拉列表复制和粘贴单元格？

Private Sub Worksheet_Change(ByVal Target As Range) Updated by Extendoffice 20200903 Dim xValue As String Dim xCheck1 As String Dim xCheck2 As String Dim xRg As Range Dim xArrCheck1() As String Dim xArrCheck2() As String Dim xArrValue() Dim xCount, xJ As Integer Dim xBol As Boolean If Target.Count > 1 Then Exit Sub End If xCount = Target.Count ReDim xArrCheck1(1 To xCount) ReDim xArrCheck2(1 To xCount) ReDim xArrValue(1 To xCount) Application.EnableEvents = False On Error Resume Next xJ = 1 For Each xRg In Target xArrValue(xJ) = xRg.Value xArrCheck1(xJ) = xRg.Validation.InCellDropdown xJ = xJ + 1 Next Application.Undo xJ = 1 For Each xRg In Target xArrCheck2(xJ) = xRg.Validation.InCellDropdown xJ = xJ + 1 Next xBol = False For xJ = 1 To xCount If xArrCheck2(xJ) <> xArrCheck1(xJ) Then xBol = True Exit For End If Next If xBol Then MsgBox "The selected cells containg data validation drop-down lists, no pasting allowed." Else xJ = 1 For Each xRg In Target xRg.Value = xArrValue(xJ) xJ = xJ + 1 Next End If Application.EnableEvents = True End Sub

使用Excel中的复选框轻松创建下拉列表：

带有复选框的下拉列表 实用程序 Kutools for Excel

可以帮助您根据需要在指定范围，当前工作表，当前工作簿或所有打开的工作簿中轻松创建带有复选框的下拉列表。

下载完整功能 30-天自由踪迹 Kutools for Excel 现在！

如何在Excel中使用多个复选框创建下拉列表？ 许多Excel用户倾向于创建带有多个复选框的下拉列表，以便每次都从列表中选择多个项目。 实际上，您无法使用数据验证功能创建带有多个复选框的列表。 在本教程中，我们将向您展示两种在Excel中创建带有多个复选框的下拉列表的方法。 本教程提供了解决问题的方法。

在Excel中从另一个工作簿创建下拉列表 在工作簿中的工作表之间创建数据验证下拉列表非常容易。 但是，如果数据验证所需的列表数据位于另一个工作簿中，您将怎么办？ 在本教程中，您将详细了解如何从Excel中的另一个工作簿创建拖放列表。

在Excel中创建可搜索的下拉列表 对于具有众多价值的下拉列表，找到合适的价值并非易事。 以前，我们已经介绍了一种在下拉框中输入第一个字母时自动完成下拉列表的方法。 除了自动完成功能之外，您还可以使下拉列表可搜索，以提高在下拉列表中查找适当值时的工作效率。 为了使下拉列表可搜索，请尝试本教程中的方法。

在Excel下拉列表中选择值时自动填充其他单元格 假设您已经基于单元格区域B8：B14中的值创建了一个下拉列表。 在下拉列表中选择任何值时，都希望在选定单元格中自动填充单元格范围C8：C14中的相应值。 为了解决该问题，本教程中的方法将对您有所帮助。

下拉列表的更多教程...

最佳办公生产力工具

在Word，Excel，PowerPoint中启用选项卡式编辑和阅读，发布者，Access，Visio和Project。 在同一窗口的新选项卡中而不是在新窗口中打开并创建多个文档。 每天将您的工作效率提高50％，并减少数百次鼠标单击！