軟體: Microsoft Office Excel
版本: 365
大家好~
如下圖 我在A欄使用資料驗證避免輸入重複值

因此若我在A7輸入已存在的"A" 會跳出錯誤視窗 不給我輸入

另一方面
我寫了個巨集 目的是讓使用者輸入新資料到A欄
如下圖 使用者在D4輸入"F" 並按下Input Item的按鈕後 "F"會被貼到前一張sheet的A欄

然而 若我在巨集sheet的D4輸入前一張sheet A欄的重複值 巨集仍會成功執行
不會偵測資料重複 進而停止巨集

除非我去編輯A8儲存格 資料驗證的功能才會作用

因此想詢問的是 有沒有辦法在巨集中加入已存在的資料驗證規則呢? 或是別的方式中斷?
VBA程式碼如下
Sub Macro1()
'
' Macro1 Macro
'
'
Range("D4").Select
Selection.Copy
Sheets("Sheet1").Select
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False
ActiveCell.Offset(-6, 0).Range("A1").Select
Sheets("Sheet2").Select
Range("D4").Select
Application.CutCopyMode = False
Selection.ClearContents
End Sub
先謝謝大家了!!