Question

Excel表格录入新的数据后自动删除重复的旧数据行,只在一个工作簿的指定的一个工作表起作用，求VBA代码

'1.代码只针对B列数据

‘2.只会查找重复的第一个数据并删除所在的行

Dim i As Integer, Rng As Range

Set Rng = Cells(Target.Row, 2) '修改的B列单元格

If Rng.Value = "" Then Exit Sub

i = Application.WorksheetFunction.Match(Rng, Range("B:B"), 0)

If i > 0 And i < Target.Row Then

Application.EnableEvents = False

Rows(i).Delete xlShiftUp '删除行

Application.EnableEvents = True

End If

这是你写的代码，但在整个工作簿的所有表都动作，用什么方法让该代码只在工作簿指定的工作表才动作？

Answer 1

如果你的数据都在第一个工作表，如果没改名字就叫sheet1，
看我上次附的图片，vba编辑器双击sheet1，将所有代码剪切粘贴到这里。
并删除ThisWorkbook中的所有内容，但是过程名应为
Private Sub Worksheet_Change(ByVal Target As Range)

End Sub

Answer 2

不要写在ThisWorkbook，应该写在Sheet1(Sheet1)或者Sheet2(Sheet2)......选用单元格改变事件
Private Sub Worksheet_Change(ByVal Target As Range)
..............
End Sub

Answer 3

Dim i As Integer, Rng As Range工作表名称=“sheets1”
sheets（工作表名称）.Select

Set Rng = Cells(Target.Row, 2) '修改的B列单元格If Rng.Value = "" Then Exit Subi = Application.WorksheetFunction.Match(Rng, Range("B:B"), 0)If i > 0 And i < Target.Row Then Application.EnableEvents = False Rows(i).Delete xlShiftUp '删除行 Application.EnableEvents = TrueEnd If

Answer 4

自己去学习一下 工作事件吧