软体: Microsoft Office Excel 版本: 365 大家好~ 如下图 我在A栏使用资料验证避免输入重复值 https://imgur.com/a/EvDeStv 因此若我在A7输入已存在的"A" 会跳出错误视窗 不给我输入 https://imgur.com/a/FDPmuBY 另一方面 我写了个巨集 目的是让使用者输入新资料到A栏 如下图 使用者在D4输入"F" 并按下Input Item的按钮後 "F"会被贴到前一张sheet的A栏 https://imgur.com/a/7pGejVL https://imgur.com/a/tTlNcOH 然而 若我在巨集sheet的D4输入前一张sheet A栏的重复值 巨集仍会成功执行 不会侦测资料重复 进而停止巨集 https://imgur.com/a/MeIL3hG https://imgur.com/a/cs1CVQP 除非我去编辑A8储存格 资料验证的功能才会作用 https://imgur.com/a/ooWGJp3 因此想询问的是 有没有办法在巨集中加入已存在的资料验证规则呢? 或是别的方式中断? 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 先谢谢大家了!! --

※ 发信站: 批踢踢实业坊(ptt.cc), 来自: 134.238.0.213 (台湾) ※ 文章网址: https://webptt.com/cn.aspx?n=bbs/Office/M.1655810167.A.444.html