发布网友 发布时间:2022-05-04 20:44
共1个回答
热心网友 时间:2023-10-08 17:05
Sub deleteData()For j = 2 To [a65535].End(xlUp).Row For i = 2 To [a65535].End(xlUp).Row If Worksheets(1).Range("A" & i) = Worksheets(2).Range("A" & j) and Worksheets(1).Range("B" & i) = Worksheets(2).Range("B" & j) Then Worksheets(1).Range("A" & i) = "" Worksheets(1).Range("B" & i) = "" Worksheets(1).Range("C" & i) = "" End If NextNextEnd Sub追问需要插入一个按钮么,我这里面好多表