VBA

daqinqin

大佬们，代码2的第21和第22行为啥没分开啊
1.
Sub uuu()
    Dim x As Integer
    For x = 2 To Range("C65536").End(xlUp).Row
        If Cells(x + 1, 3) <> Cells(x, 3) Then
            Rows(x + 1).Insert
            x = x + 1
        End If
    Next x
End Sub

2.
Sub uuu()
    Dim x As Integer
    For x = 2 To Range("C65536").End(xlUp).Row
        If Cells(x + 1, 3) <> Cells(x, 3) Then
            Rows(x + 1).Insert
        End If
        x = x + 1
    Next x
End Sub

爱疯

Sub 按钮1_Click()
    Dim x As Integer
    For x = Range("C65536").End(xlUp).Row To 2 Step -1
        If Cells(x, 3) <> Cells(x - 1, 3) Then
            Rows(x).Insert
            x = x - 1
        End If
    Next x
    Rows(x + 2).Delete
End Sub

daqinqin

爱疯 发表于 2019-5-11 10:13
Sub 按钮1_Click()
    Dim x As Integer
    For x = Range("C65536").End(xlUp).Row To 2 Step -1

十分的感谢