[已解决]求相同数

mmc998

工作簿1.rar (53.43 KB, 下载次数: 16)

2021-1-22 22:28 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

爱疯

2021-1-23 12:12

Sub test()
    Dim A, i, j, r, c
    Sheets(1).Select
    i = Range("a65536").End(xlUp).Row
    Range("f5:j" & i) = ""
    A = Range("a1:j" & i)

    For i = 5 To UBound(A)
        If i Mod 4 <> 0 Then
            For c = 1 To 4
                For j = 6 To UBound(A, 2)
                    For r = 1 To 3
                        A(i, j) = A(i, j) - (A(i, c) = A(r, j))
                    Next
                Next j
            Next c
        End If
    Next i

    [a1].Resize(i - 1, j - 1) = A
End Sub

跳转到最佳答案楼层

爱疯

Sub test()
    Dim A, i, j, r, c
    Sheets(1).Select
    i = Range("a65536").End(xlUp).Row
    Range("f5:j" & i) = ""
    A = Range("a1:j" & i)

    For i = 5 To UBound(A)
        If i Mod 4 <> 0 Then
            For c = 1 To 4
                For j = 6 To UBound(A, 2)
                    For r = 1 To 3
                        A(i, j) = A(i, j) - (A(i, c) = A(r, j))
                    Next
                Next j
            Next c
        End If
    Next i

    [a1].Resize(i - 1, j - 1) = A
End Sub