excel 如何输入某个数字就自动删掉对应表格里面的相同的数据

发布网友发布时间：2022-07-09 14:30

我来回答

共2个回答

热心网友时间：2023-10-11 17:21

把这段代码放在当前工作表：

点开发工具－查看代码，选择sheet1，在右边代码窗口贴上后面的代码

回到EXCEL工作表窗口。修改即会自动执行。

修改三个单元格中任何一个都会执行代码。

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Row = 71 And Target.Column > 9 Then

For i = 10 To 12

a = Cells(71, i)

b = ""

Range("C71:H78").Replace What:=a, Replacement:=b, LookAt:=xlPart, _

SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _

ReplaceFormat:=False

End If

End Sub

追问你好，这个是有多个表格的，然后怎么添加多段代码了

追答如果你的自动修改工作表是sheet1，那代码就放在sheet1的代码页。请看前图1

热心网友时间：2023-10-11 17:22

假定你所指的区域是C3:G12，

在EXCEL工作表中输入以下代码，如图：

Private Sub Worksheet_Change(ByVal Target As Range)
    Application.EnableEvents = False
    a = Target.Text
    Range("C3:G12").Replace What:=a, Replacement:=""
    Application.EnableEvents = True
End Sub

效果，如下图，

回车

追问你好，这个代码是在哪里输入的了，还没看懂怎么操作了