请各位老师帮忙看一下这个vba，谢谢

kangfshine

比较表1和表2的 第一列，如果能在表1第一列的任一单元格找到表2第一列的某个单元格的值，则将该行删除，运行VBA后没反应，不知问题在哪里，各位大神帮忙看一下，谢谢！！！！！！！！

kangfshine

简单说就是比较个表格某一列的同名数据

kkf5560

我猜有可能是你的rows没有指定，然后删了sheet3的，表面上就看不出来

kkf5560

还有一个  从后往前， 你的step步长要写-1

kangfshine

kkf5560 发表于 2022-12-13 17:16
还有一个  从后往前， 你的step步长要写-1

谢谢！调了一下还是不行


Sub Macro00()
'
Dim ws1 As Worksheet, ws2 As Worksheet, ws3 As Worksheet
    Dim i As Long, j As Long
    Dim newSheetPos As Integer

    Set ws1 = ActiveWorkbook.Sheets("Sheet1")
    Set ws2 = ActiveWorkbook.Sheets("Sheet2")
    Set ws3 = ActiveWorkbook.Sheets("Sheet3")


    For i = ws1.Cells(ws1.Rows.Count, 1).End(xlUp).Row To 2 - 1
        For j = 2 To ws2.Cells(ws2.Rows.Count, 1).End(xlUp).Row

            If Trim(ws1.Cells(i, 1).Value) = Trim(ws2.Cells(j, 1).Value) Then
                Rows("i:i").Select
    Selection.Delete Shift:=xlUp

            End If

        Next j
    Next i


End Sub

feilanga

。。。。。。。。。。。。。。。。。。。

kangfshine

感谢，直接重写了

gwjkkkkk

参与一下。。。

Learner2022

删Sheet1还是Sheet2的行啊，我默认sheet1罗