怎么用代码做

mmc998

工作簿1.rar (246.23 KB, 下载次数: 18)

2019-11-28 11:20 上传

点击文件名下载附件

爱疯

Sub Click()
    Dim A, B, i, j, k

    i = Range("h65536").End(xlUp).Row
    A = Range("h7:o" & i)
    ReDim B(1 To UBound(A), 1 To UBound(A, 2))

    For i = 1 To UBound(A) Step 3
        For j = 1 To UBound(A, 2)
            For k = 0 To 1
                B(i, j) = B(i, j) + IIf(A(i + k, j) = 2, 1, 0)
            Next k
        Next j
    Next i

    [q:x] = ""
    [q7].Resize(UBound(B), UBound(B, 2)) = B
End Sub

mmc998

爱疯 发表于 2019-11-28 11:46
Sub Click()
    Dim A, B, i, j, k

谢谢