Excel精英培训网

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

[VBA] 用VBA计算几种单元格颜色数量

[复制链接]
发表于 2017-1-6 19:32 | 显示全部楼层 |阅读模式

用VBA计算几种单元格颜色数量

本帖子中包含更多资源

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

x
excel精英培训的微信平台,每天都会发送excel学习教程和资料。扫一扫明天就可以收到新教程
发表于 2017-1-8 19:05 | 显示全部楼层
  1. Sub Macro1()
  2. Set d = CreateObject("scripting.dictionary")
  3. For i = 3 To 26
  4.     If Cells(i, 1) <> "" Then
  5.         n = Cells(i, 3).Interior.ColorIndex
  6.         d(n) = d(n) + Cells(i, 1)
  7.     End If
  8. Next
  9. For Each a In d.keys
  10.     s = s + 1
  11.     Cells(s + 28, 1).Interior.ColorIndex = a
  12.     Cells(s + 28, 2) = d(a)
  13. Next
  14. End Sub
复制代码

评分

参与人数 1 +3 收起 理由
laoau138 + 3 来学习

查看全部评分

回复

使用道具 举报

 楼主| 发表于 2017-1-9 16:20 | 显示全部楼层
回复

使用道具 举报

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

本版积分规则

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

GMT+8, 2024-3-28 21:49 , Processed in 0.298892 second(s), 10 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

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