如何防止在Excel中使用下拉列表復制和粘貼單元格？

對于具有數據驗證下拉列表的單元格，當從另一個單元格復制內容并將其粘貼到該單元格時，該下拉列表將消失并替換為新的粘貼內容。 在某些情況下，您想防止將其他內容復制和粘貼到帶有下拉列表的單元格上，您將如何處理？ 在本文中，您將獲得處理此問題的VBA方法。

防止在Excel中使用下拉列表復制和粘貼單元格

防止在Excel中使用下拉列表復制和粘貼單元格

1.使用要防止復制和粘貼的下拉列表單元格打開工作表。

2。 按 其他 + F11 同時打開 Microsoft Visual Basic應用程序 窗口。

3.在 Microsoft Visual Basic應用程序 窗口，在左窗格中雙擊當前工作表名稱，然后將下面的VBA代碼復制并粘貼到代碼器中。 看截圖：

VBA代碼：使用下拉列表防止在單元格上復制和粘貼

Private Sub Worksheet_Change(ByVal Target As Range)Updated by Extendoffice 20200903Dim xValue As StringDim xCheck1 As StringDim xCheck2 As StringDim xRg As RangeDim xArrCheck1() As StringDim xArrCheck2() As StringDim xArrValue()Dim xCount, xJ As IntegerDim xBol As BooleanIf Target.Count > 1 ThenExit SubEnd IfxCount = Target.CountReDim xArrCheck1(1 To xCount)ReDim xArrCheck2(1 To xCount)ReDim xArrValue(1 To xCount)Application.EnableEvents = FalseOn Error Resume NextxJ = 1For Each xRg In TargetxArrValue(xJ) = xRg.ValuexArrCheck1(xJ) = xRg.Validation.InCellDropdownxJ = xJ + 1NextApplication.UndoxJ = 1For Each xRg In TargetxArrCheck2(xJ) = xRg.Validation.InCellDropdownxJ = xJ + 1NextxBol = FalseFor xJ = 1 To xCountIf xArrCheck2(xJ) <> xArrCheck1(xJ) ThenxBol = TrueExit ForEnd IfNextIf xBol ThenMsgBox "The selected cells containg data validation drop-down lists, no pasting allowed."ElsexJ = 1For Each xRg In TargetxRg.Value = xArrValue(xJ)xJ = xJ + 1NextEnd IfApplication.EnableEvents = TrueEnd SubCopy

4。 按 其他 + Q 退出鍵 Microsoft Visual Basic應用程序 窗口。

5.當您將內容粘貼到帶下拉列表的單元格時，將彈出一個對話框，提醒您不允許粘貼。 看截圖：

備注：此VBA僅適用于單單元格粘貼。 如果您復制并粘貼到多個單元格中，它將無法正常工作。

使用Excel中的復選框輕松創建下拉列表：

帶有復選框的下拉列表 實用程序 Kutools for Excel

可以幫助您根據需要在指定范圍，當前工作表，當前工作簿或所有打開的工作簿中輕松創建帶有復選框的下拉列表。

下載完整功能 30-天自由蹤跡 Kutools for Excel 現在！相關文章：

如何在Excel中使用多個復選框創建下拉列表？ 許多Excel用戶傾向于創建帶有多個復選框的下拉列表，以便每次都從列表中選擇多個項目。 實際上，您無法使用數據驗證功能創建帶有多個復選框的列表。 在本教程中，我們將向您展示兩種在Excel中創建帶有多個復選框的下拉列表的方法。 本教程提供了解決問題的方法。

在Excel中從另一個工作簿創建下拉列表 在工作簿中的工作表之間創建數據驗證下拉列表非常容易。 但是，如果數據驗證所需的列表數據位于另一個工作簿中，您將怎么辦？ 在本教程中，您將詳細了解如何從Excel中的另一個工作簿創建拖放列表。

在Excel中創建可搜索的下拉列表 對于具有眾多價值的下拉列表，找到合適的價值并非易事。 以前，我們已經介紹了一種在下拉框中輸入第一個字母時自動完成下拉列表的方法。 除了自動完成功能之外，您還可以使下拉列表可搜索，以提高在下拉列表中查找適當值時的工作效率。 為了使下拉列表可搜索，請嘗試本教程中的方法。

在Excel下拉列表中選擇值時自動填充其他單元格 假設您已經基于單元格區域B8：B14中的值創建了一個下拉列表。 在下拉列表中選擇任何值時，都希望在選定單元格中自動填充單元格范圍C8：C14中的相應值。 為了解決該問題，本教程中的方法將對您有所幫助。

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

最佳辦公生產力工具

將小時轉化為分鐘 Kutools for Excel!

準備好增強您的 Excel 任務了嗎？ 利用的力量 Kutools for Excel - 您終極的節省時間的工具。 簡化復雜的任務并像專業人士一樣瀏覽數據。 以閃電般的速度體驗 Excel！

為什么需要 Kutools for Excel