问答文章1 问答文章501 问答文章1001 问答文章1501 问答文章2001 问答文章2501 问答文章3001 问答文章3501 问答文章4001 问答文章4501 问答文章5001 问答文章5501 问答文章6001 问答文章6501 问答文章7001 问答文章7501 问答文章8001 问答文章8501 问答文章9001 问答文章9501

Excel如何计算某一栏位颜色的次数

发布网友 发布时间:2022-04-29 18:29

我来回答

1个回答

热心网友 时间:2022-06-19 03:16

亲,可以用VBA解决。以下是代码,运行后,将统计把A列不同颜色分类统计在C列。

 

Sub sumcolor()
Dim r, c, n As Long '定义长整型变量
Dim rg As Range '定义一个Range变量
Dim d, k '定义两个可变类型的变量
Set d = CreateObject("Scripting.Dictionary") '创建字典
r = Range("A1").SpecialCells(xlCellTypeLastCell).Row '获取A列最大行号
For Each rg In Range("A1:A" & r) '从A列第1到最后一行进行循环,每个循环的单元格是rg
    c = rg.Interior.Color '把循环的每个单元格背景色数值赋给变量c
    If d.exists(c) Then '如果字典中存在c值
        d(c) = d(c) + 1 'c累加1
    Else '如果字典中不存在c值
        d(c) = 1 'c赋值1
    End If '结束判断
Next '下一个循环
Columns("C:C").Clear '清空C列
For Each k In d.keys '循环读取字典的每一个关键字
    n = n + 1 'n值累加1
    With Range("C" & n) '定义简写C列的第n行
        .Interior.Color = k '用字典关键字的值填充背景色
        .Value = d(k) '用字典关键字对应的项目值填写单元格
    End With '结束简写
Next '下一个循环
Set d = Nothing '清除字典对象
End Sub

声明声明:本网页内容为用户发布,旨在传播知识,不代表本网认同其观点,若有侵权等问题请及时与本网联系,我们将在第一时间删除处理。E-MAIL:11247931@qq.com
老师侮辱学生是否犯法 开启河南航拍新篇章 河南省航拍协会第一次会员代表大会召开 我想问下poscer m-3032款型手表售价是多少??? wp6m是啥意思 看图软件哪个好哪个看图软件好 5款强大到离谱电脑软件,都是效率神器!从此远离加班 在武汉买一套房大概要多少钱 武汉华润翡翠城的优缺点 k12教育为什么会被整顿 国家为什么要叫停K12教育? 如何统计excel一列中颜色出现的次数 手机备忘录在哪里oppo手机 Excel中如何快速求得颜色单元格中各数字出现的次数 excel中如何统计颜色出现的次数 =GET.CELL(63,Sheet2!B5) oppo手机里的备忘录在哪里 Excel中怎么统计单元格背景颜色出现的次数总和 我把文件存到360云盘里,然后在别的电脑上登陆360云盘,原来的文件能打开或下载下来吗? 360云盘里的文件怎么传到u盘里 iphone360云盘下载好的东西怎么传到电脑 360云盘怎么从一个电脑移到另一个电脑上?? 360手机云盘的东西怎样传到电脑的360云盘 360云盘客户端上的资料如何下载 怎么将360云盘里的资料同步到电脑上 请问北京服装学院2007年的本科招生简章下来了么? 什么是摇滚/死亡摇滚/蓝调/朋克/酸性摇滚??? 北京服装学院表演专业都考什么? 想报中国传媒大学 我是理工类学生 2008级陕西考生 大家给点意见 王源的介绍 表演艺考考生有哪些外在要求 圆明园中有什么奇珍异宝,不用太啰嗦 QQ超级会员包括QQ会员吗 如何统计EXCEL表格中一列数字中出现多少次相同的颜色?只想统计出同一种颜色的个 excel表格怎么按颜色统计个数 电视剧里的音乐用什么软件能剪辑出来? 酥刀鱼的做法 七夕节不知道该送女朋友什么礼物该怎么办? 五香带鱼的做法? 七夕节该给女朋友啥(没钱,没物) 谈了女朋友七夕没钱买礼物怎么办,而且她离我还特别远! 怎么做香酥刀鱼,香酥刀鱼最正宗的做法 我是个刚毕业学生,身上没什么钱,但是想要送男朋友七夕节礼物?不贵,可以自己制作,有意义的? 刀鱼怎么 做酥鱼 七夕节送什么礼物最好,最有意义?PS:本人是学生,没什么钱。 七夕节送什么礼物不花钱,送给老婆的! 五香带鱼的做法 "七夕"快到了,我没有钱,又想送他一个礼物,送什么好呢? 南京市区出租车大多数用啥打车软件?给我推荐一下呢? 七夕节没钱送女朋友什么 七夕节没钱送什么礼物 打车软件如何用