VBA技巧：在添加数据之前核查并避免输入重复值

文章预览

学习Excel技术，关注微信公众号：excelperfect标签：VBA我使用一个工作表来输入数据，使用另一个工作表来存储输入的数据，如下图1所示，在工作表“输入”中输入数据后，单击“添加”按钮。图1那么刚才输入的数据会存储到工作表“数据库”中，如下图2所示。图2实现上述效果的代码很简单直接，如下：Sub AddData() Dim wksEntry As Worksheet Dim wksData As Worksheet Dim lngLast As Long Set wksEntry = Worksheets("输入") Set wksData = Worksheets("数据库")  lngLast = wksData.Range("A" & Rows.Count).End(xlUp).Offset(1).Row With wksData   .Range("A" & lngLast).Value = wksEntry.Range("C2").Value   .Range("B" & lngLast).Value = wksEntry.Range("C3").Value   .Range("C" & lngLast).Value = wksEntry.Range("C4").Value   .Range("D" & lngLast).Value = wksEntry.Range("C5").Value End With With wksEntry .Range("C2:C5").ClearContents End WithEnd Sub然而，如果我重 ………………………………