Excel精英培训网

 找回密码
 注册
数据透视表40+个常用小技巧,让你一次学会!
查看: 2848|回复: 2

[VBA] 用VBA统计同一行含有多少个

[复制链接]
发表于 2016-10-2 12:06 | 显示全部楼层 |阅读模式
用VBA统计同一行含有多少个


本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?注册

x
发表于 2016-10-2 20:11 | 显示全部楼层
  1. Sub tt()
  2.     arr = Range("a11:f" & [a65536].End(3).Row)
  3.     brr = Range("h11:m" & [h65536].End(3).Row)
  4.     ReDim crr(1 To UBound(arr), 1 To 1)
  5.     For i = 1 To UBound(arr)
  6.         crr(i, 1) = 0
  7.         xstr = "," & Join(Application.Index(brr, i), ",") & ","
  8.         For j = 1 To UBound(arr, 2)
  9.             If InStr(xstr, "," & arr(i, j) & ",") > 0 Then crr(i, 1) = crr(i, 1) + 1
  10.         Next
  11.     Next
  12.     [q11].Resize(UBound(crr)) = crr
  13. End Sub
复制代码

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?注册

x

评分

参与人数 2 +9 收起 理由
today0427 + 6 终于有一道题和大神思路一样了,好荣幸!
laoau138 + 3 来学习

查看全部评分

回复

使用道具 举报

 楼主| 发表于 2016-10-2 20:57 | 显示全部楼层
回复

使用道具 举报

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

本版积分规则

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

GMT+8, 2024-3-29 14:07 , Processed in 0.276462 second(s), 10 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

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