Excel精英培训网

 找回密码
 注册

QQ登录

只需一步,快速开始

你正在寻找更好的Excel学习教程吗?Excel技巧80集+数据透视表+函数初中高全套+VBA80集,想学的这儿全都有
查看: 116|回复: 2

[已解决] 怎么用代码做

[复制链接]
发表于 2019-11-28 11:20 | 显示全部楼层 |阅读模式
excel精英培训的微信平台,每天都会发送excel学习教程和资料。扫一扫明天就可以收到新教程
工作簿1.rar (246.23 KB, 下载次数: 6)
发表于 2019-11-28 11:46 | 显示全部楼层
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

回复

使用道具 举报

 楼主| 发表于 2019-11-28 11:53 | 显示全部楼层
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|Archiver|Excel精英培训 ( 豫ICP备11015029号 )

GMT+8, 2020-1-19 15:40 , Processed in 0.046800 second(s), 6 queries , Gzip On, Redis On.

Powered by Discuz! X3.4

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表