本帖最后由 jackyad 于
13:13 编辑
楼主有3列数据，其中第一列是日期数据，第2、3列是有数值的，这两列数据中间均有一些空值，我希望根据条件对这些空值进行填充。
条件如下：如果第4、5行的单元格为空，第6行不为空，这将第6行的数据除于（空单元格行数+1），即第6行数据/3，然后填充到4～6行的单元格，以下单元格填充规律类似。
数据和要的效果在附件，请高人指点，谢谢。
(3.4 KB, 下载次数: 8)
12:51 上传
下载次数: 8
在线时间5794 小时经验29392 威望11 最后登录注册时间阅读权限100UID646032积分30142帖子精华2分享0
管理以下版块
积分排行6帖子精华2微积分0
建议上传表格附件来说明问题。
在线时间37 小时经验20 威望0 性别男最后登录注册时间阅读权限20UID494514积分20帖子精华0分享0
EH初级, 积分 20, 距离下一级还需 330 积分
积分排行3000+帖子精华0微积分0
不好意思，之前附件没上传好，现在可以看到附件了。
在线时间37 小时经验20 威望0 性别男最后登录注册时间阅读权限20UID494514积分20帖子精华0分享0
EH初级, 积分 20, 距离下一级还需 330 积分
积分排行3000+帖子精华0微积分0
蓝桥玄霜 发表于
建议上传表格附件来说明问题。
蓝桥玄霜大侠，今天在论坛上看了很多你的解答，受益匪浅呀。
有你来帮助，太好了
在线时间842 小时经验542 威望0 性别保密最后登录注册时间阅读权限30UID2035663积分542帖子精华0分享0
EH中级, 积分 542, 距离下一级还需 558 积分
积分排行1977帖子精华0微积分0
Sub test()
b = [b5535].End(3).Row
arr = Range(&b3:c& & b)
For i = 1 To UBound(arr)
& & If arr(i, 1) = && Then
n = n + 1
& & Else
If n & 0 Then
s = arr(i, 1)
t = arr(i, 2)
& & For j = i To i - n Step -1
arr(j, 1) = s / (n + 1)
arr(j, 2) = t / (n + 1)
& & Next
n = 0
End If
& & End If
Next
Range(&i3:j& & b) = arr
End Sub复制代码
亦鱼亦渔,仅供参考。QQ
在线时间37 小时经验20 威望0 性别男最后登录注册时间阅读权限20UID494514积分20帖子精华0分享0
EH初级, 积分 20, 距离下一级还需 330 积分
积分排行3000+帖子精华0微积分0
EH真是藏龙卧虎呀，非常感谢lzxdy 老师的帮助
积分≥4700即可申请
- 注意：自起，未完成邮箱认证的会员将无法发帖！如何完成邮箱认证？请点击下方“查看”。
关注我们，与您相约微信公众平台！
Copyright 1999 - 2017 Excel Home. All Rights Reserved.本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！
Powered by
本站特聘法律顾问：徐怀玉律师 李志群律师 &&查看: 2351|回复: 1
如何用VBA给符合条件的单元格填上颜色？
积分学习力
魅力值 影响力
消费券 Ti币好友
在线时间 小时
最后登录月度优秀 次管理次数 次
网站名称: Excel技巧网 | Excel专家栖息谷 | 微软中文技术社区合作伙伴
署名作者: 悟空师弟
版权声明: 版权归本站与作者共有 除本站官方外非作者本人转载须经许可并注明出处
适用版本: 以前版本&
语言环境: 简体中文
学习方法: 掌握Excel技巧的关键是动手操作
下载 ≠ 知识
免费注册成为本站会员，享用更多功能，结识更多Office办公高手！
才可以下载或查看，没有帐号？
本帖最后由 悟空师弟 于
00:50 编辑
Q：如何用VBA给符合条件的单元格填上颜色？比如将A列中大于或等于60的单元格填上颜色。
A：代码如下：
Sub aa()
[A：A].Interior.ColorIndex = 0
Dim rng As Range
& & Dim i As Long
& & For i = 1 To Application.CountA(Range(&A:A&))
& && &&&If Cells(i, 1) &= 60 Then
& && && && &If rng Is Nothing Then
& && && && && & Set rng = Cells(i, 1)
& && && && &Else
& && && && && & Set rng = Union(rng, Cells(i, 1))
& && && && &End If
& && &&&End If
& & Next i
& & rng.Interior.ColorIndex = 40
End Sub
复制代码详见附件：
(9.07 KB, 下载次数: 33)
00:44 上传
点击文件名下载附件
如何用VBA给符合条件的单元格填上颜色？
→→→→→→→→→→→→→→→→
补充说明：A列数据区域中不能有空格！
有用的技巧。
学office，哪能不关注全网最大的Office类微博（新浪）
积分学习力
魅力值 影响力
消费券 Ti币好友
在线时间 小时
最后登录月度优秀 次管理次数 次
学office，哪能不关注全网最大的Office类微博（新浪）
站长推荐 /1
关注 微信号：exceltip_net
回复“教程”二字，即可下载。
Excel技巧网的会员探讨问题仅代表其个人意见，与网站的立场无关。任何违反国家和地方相关法律法规的言论，本站有义务协助政府相关部门追究发言者的责任！
本站中非注明转载文章与案例的版权为作者与Excel技巧网共有。若非原文作者，本站之外任何单位或个人未经允许，不得将其用于商业用途。
若非原文作者，任何形式的非商业性转载必须获得Excel技巧网或作者允许，并注明作者和出处。
会员发表的帖子如涉及版权纠纷，须自行负责。详情请参考注册时的网站服务条款。
本站特聘法律顾问：沈学律师
Powered by查看: 3751|回复: 5
阅读权限3UID256062函数1 关最后登录经验250 点在线时间3 小时VBA0 关分享记录好友技巧0 关相册主题段位1 段金币360 个积分250精华0帖子日志注册时间
数据1组/函入1组
幼儿园大班, 积分 250, 距离下一级还需 50 积分
金币360 个积分250帖子
1、返回单元格填充颜色的自定义函数2、返回字体颜色的自定义函数get.cell能行，不知道VBA代码怎么写
阅读权限19UID236388函数5 关最后登录经验8154 点在线时间285 小时VBA3 关分享记录好友技巧9 关相册主题段位7 段金币2928 个积分8154精华1帖子日志注册时间
大学4年级, 积分 8154, 距离下一级还需 846 积分
金币2928 个积分8154帖子
Function GetColor(rng As Range, i As Integer)&Application.Volatile&If i = 1 Then& GetColor = rng.Interior.ColorIndex&ElseIf i = 2 Then& GetColor = rng.Font.ColorIndex& ElseIf i = 3 Then&& GetColor = rng.Borders.ColorIndex&End IfEnd Function1是底色，2是字体色，3是边框色如=getcolor(a1,1)
阅读权限3UID256062函数1 关最后登录经验250 点在线时间3 小时VBA0 关分享记录好友技巧0 关相册主题段位1 段金币360 个积分250精华0帖子日志注册时间
数据1组/函入1组
幼儿园大班, 积分 250, 距离下一级还需 50 积分
金币360 个积分250帖子
改变之后怎么不自动更新的哈。默认的底色怎么是-4142字体颜色-4105边框-4105跟用get.cell求出的不同哈
阅读权限3UID256062函数1 关最后登录经验250 点在线时间3 小时VBA0 关分享记录好友技巧0 关相册主题段位1 段金币360 个积分250精华0帖子日志注册时间
数据1组/函入1组
幼儿园大班, 积分 250, 距离下一级还需 50 积分
金币360 个积分250帖子
阅读权限19UID236388函数5 关最后登录经验8154 点在线时间285 小时VBA3 关分享记录好友技巧9 关相册主题段位7 段金币2928 个积分8154精华1帖子日志注册时间
大学4年级, 积分 8154, 距离下一级还需 846 积分
金币2928 个积分8154帖子
按F9。要改变值以后才会引起公式变化嘛。
阅读权限13UID1869函数0 关最后登录经验3624 点在线时间300 小时VBA0 关分享记录好友技巧0 关相册主题段位6 段金币8372 个积分3955精华2帖子日志注册时间
高中1年级, 积分 3955, 距离下一级还需 145 积分
金币8372 个积分3955帖子
谢谢分享,搬到聚宝瓶中去！
站长推荐 /1
由兰色幻想+小妖录制，全套290集excel高清视频，包括108集技巧，98个常用函数、80集VBA宏编程等内容，你想学的这里都有。双11活动仅此一天，全年仅此一次5折优惠！
Powered by关于条件颜色填充；求助Excel 或VBA高手，_百度知道
关于条件颜色填充；求助Excel 或VBA高手，
如何用公式或者编程实现。谢谢了,com/zhidao/pic/item/2fdda3cc7cd98d10a5a4ea5c223fb80e7bec906f,jpg" />如图,hiphotos,hiphotos,jpg" esrc="http,进行间隔涂色。由于数据量较大,baidu,hiphotos,//e,对该图满足成交数量等于2的笔数,//e,com/zhidao/wh%3D450%2C600/sign=ccf3bc7e855c5e8efdda3cc7cd98d10a5a4ea5c223fb80e7bec906f,baidu,jpg" target="_blank" title="点击查看大图" class="ikqb_img_alink"><img class="ikqb_img" src="http,com/zhidao/wh%3D600%2C800/sign=cff90d5cf7/2fdda3cc7cd98d10a5a4ea5c223fb80e7bec906f,//e,,<a href="http,baidu,
我有更好的答案
按默认排序
将条件设为,2)=1设置背景为黄色,格式,$B2)+1)&#47,2),确定。,条件格式,选中A至D列第二行以下区域,假定“成交数量”在B列,公式=MOD(INT((SUM($B$2,
格式与条件格式在哪儿设置呢？我用的是excel2013，最好配图，谢谢了
开始－－样式－－条件格式，功能区中。
配个图吧~大神
其他类似问题
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁