如何防止在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％，并減少數百次鼠標單擊！