任主会员委牛吹
我昨天核对那些乱七八糟的数据抠看错行了
仔马层基会员委牛吹
行的话，套用格式就行了 我觉着挺好
任主会员委牛吹
事件你要缩小单元格范围延迟就减少
从某种程度上来说代码越复杂延迟越小
另外，对于一般代码，筛选模式下的聚光灯，延迟是最大的
不喜欢wps的十字架
任主会员委牛吹
我觉得行标记就够了，一定范围内的行标记
任主会员委牛吹
很漂亮有木有
任主会员委牛吹
你不懂欣赏所以不会进步进步不大
seiromeM
?吹牛委员会菜菜 ?吹牛委员会菜菜 漂亮不你看看人家的表情还不知道嘛 任主会员委牛吹
在高级图表里面，进行范围数据标记，是一个很有档次的事情
要发挥你们的想象力
任主会员委牛吹
等你们都体会到我说的了，你们就算很有商务报表力了
任主会员委牛吹
不讲课了
熊神的题有点深，你们研究研究
seiromeM
太深了，不适合现在的我
听的云里雾里
任主会员委牛吹
?吹牛委员会基层马仔 你是:)哒 仔马层基会员委牛吹
公式我要textjoin 而且很长
色音の成完未
?吹牛委员会主任 你少了这个Selection.Interior.Pattern = xlNone
菜菜会员委牛吹
?Memories 看我的头衔没有怼的肯定是你
任主会员委牛吹
?未完成の音色 你是说我最开始发的代码么
仔马层基会员委牛吹
?吹牛委员会主任 你vba啥思路？split +字典？
seiromeM
?吹牛委员会菜菜 ?吹牛委员会菜菜 你要聆听你内心真正的声音
菜菜会员委牛吹
用公式处理字符串是真的恶心~任主会员委牛吹
嗯，首先想到的就这个?吹牛委员会基层马仔
术术老会员委牛吹
?未完成の音色 好像不是这样做，我想
始之月腊
我看见了术术老会员委牛吹
?Memories 撤什么都看到了
差术技大瘾
是要这个效果吗术术老会员委牛吹
这样做有个坏處
如果本身那个格是有颜色的
弄完就只能連原來颜色也除掉
差术技大瘾
函数不会 VBA 比较简单术术老会员委牛吹
但是是怎样做呢，我一时也想不出好的方法
仔马层基会员委牛吹
?瘾大技术差 ?瘾大技术差 答题专用套路 
仔马层基会员委牛吹
?未完成の音色 ?未完成の音色 +1
々蘭
这个问题在另一个群也看到了，好像也没用公式解决出来 的
任主会员委牛吹
你这个速度，说明了一个问题?瘾大技术差
菜菜会员委牛吹
有啊 ，不用就好了 差术技大瘾
?Memories 々蘭
https://mp.weixin.qq.com/s/8y7tIB98f8iL835nbonaZQ
差术技大瘾
就是拆分 组合
字典和数组基本套路：
1.程序开头Dim 一下 来点仪式感
2.数据区装入数组
3.循环数组，装入字典
4.循环目标区，进行查询 求和 计数等
5.清空数据输出区
6.输出数据区
差术技大瘾
装字典的套路：
dic(key)=""
dic(key)=i
dic(key)=Array(arr(i,1),arr(i,2))
dic(key)=dic(key)+1
dic(key)=dic(key)+arr(i,2)
dic(key)=arr(i,1)&"-"& arr(i,2)
dic(key)=dic(key)&"-"& i
仔马层基会员委牛吹
我只是想换个方法做做看 不要去重就是字典
任主会员委牛吹
?吹牛委员会基层马仔 ?吹牛委员会基层马仔 你这思路很有深度
seiromeM
会不会数组分类汇总啊 子把扛会员委牛吹
讲得对讲得对
术术老会员委牛吹
?瘾大技术差 我說的是excel怎样写聚光灯比較好
任主会员委牛吹
好么
菜菜会员委牛吹
果然 经常看坛中的:)聊天就能学到好多 任主会员委牛吹
如果不考虑单元格背景色变化，旧普通代码，限制区域就行
格表大
百度一大堆哇，懒得写
☜可不你依
想怎么搞就怎么搞 子把扛会员委牛吹
这种我看不习惯任主会员委牛吹
?瘾大技术差 差术技大瘾
因为这道题是要重，首先我想到的就是字典
整个这个题的解题思路，还是按照我发的字典的套路，先把数据区也就是b列给装入数组
差术技大瘾
然后循环数据区，把每个元素按照逗号进行拆分，形成过度数组
差术技大瘾
然后再循环这个过渡数组
把其中的每一个元素装入字典进行去重
接下来把这一次去从重到的字典的keys装入结果数组
术术老会员委牛吹
?吹牛委员会扛把子 如果本身格子已経有颜色，有影响嗎
差术技大瘾
接下来清空字典的关键字，再依次进行循环
这样的话就得到了一个新的结果数组，是对于原来的数据区进行去重的
再输出到对应的单元格就行了
差术技大瘾
整个过程就实现了一次性读取和写入，效率比较高
seiromeM
你要像主任一样讲才行，不然听不懂 子把扛会员委牛吹
?吹牛委员会老术术 不是可以改颜色么
差术技大瘾
字典和数组不太会用浅显易懂的需要表述出来
我刚才是说解题的一个思路
差术技大瘾
逻辑还是很清晰的，但是得有一定的字典和数组的使用基础，才能理解这段代码
色音の成完未
所以我看不懂
子把扛会员委牛吹
在Sheet1模块中插入如下的Worksheet_SelectionChange事件代码，即可实现简单的聚光灯功能：
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count = 1 Then
Dim oWK As Worksheet
Dim oRng As Range
Set oWK = Excel.ActiveSheet
Set oRng = Target.CurrentRegion
Dim oFC As FormatCondition
iRow = Target.Row
iCol = Target.Column
sF = "=OR(ROW()=" & iRow & ",COLUMN()=" & iCol & ")"
iCol = oRng.FormatConditions.Count
'先删除原来的条件格式
For Each oFC In oRng.FormatConditions
oFC.Delete
Next
'添加以公式为判断依据的条件格式
Set oFC = oRng.FormatConditions.Add(xlExpression, , sF)
With oFC
'设置条件格式的填充色
.Interior.Color = vbYellow
End With
End If
End Sub复制粘贴 差术技大瘾
就像刚才的那段代码，只进行了一次的读写，所以说比直接循环单个对象，效率要高很多，数据量少的时候看不出来，多的时候优势就显现出来了
色音の成完未
聚毛。。。色音の成完未
这样不行吗?吹牛委员会扛把子 你刚才代码的颜色怎么清？seiromeM
你这写的有的复杂浪费了好好target不用
菜菜会员委牛吹
这样这整个工作表都不能上色了 仔马层基会员委牛吹
再弄个开关呗 不然这聚光灯就一直 开着了
仔马层基会员委牛吹
万一 这工作表上 本身就有颜色 咋办？
菜菜会员委牛吹
这就很尴尬了还是条件格式合适一点 色音の成完未
刚才他发的代码染色都清不了 什么原因？
任主会员委牛吹
?吹牛委员会扛把子 我觉得你现在越来越牛逼了
很漂亮有木有
聚毛。。。
这样不行吗