工作笔记吧 关注：47贴子：852
- 2回复贴，共1页
不感兴趣
开通SVIP免广告
②.VBA
为重复项填充红色.
Sub ss() s1 = InputBox("请输入列数,如A列输入A或者a")
For i = 1 To Range(s1 & "65536").End(xlUp).Row
If WorksheetFunction.CountIf(Range(s1 & "1:" & s1 & "65536"), Range(s1 & i)) > 1 Then
Range(s1 & i).Interior.Color = RGB(255, 0, 0)
num = num + 1
End If Next
MsgBox "OK," & s1 & "列共" & num & " 项重复"
End Sub
为重复项填充红色.
Sub ss() s1 = InputBox("请输入列数,如A列输入A或者a")
For i = 1 To Range(s1 & "65536").End(xlUp).Row
If WorksheetFunction.CountIf(Range(s1 & "1:" & s1 & "65536"), Range(s1 & i)) > 1 Then
Range(s1 & i).Interior.Color = RGB(255, 0, 0)
num = num + 1
End If Next
MsgBox "OK," & s1 & "列共" & num & " 项重复"
End Sub
扫二维码下载贴吧客户端
下载贴吧APP
看高清直播、视频！
看高清直播、视频！
贴吧热议榜
- 1戒烟闹矛盾,吃鸡一姐分手2808853
- 2乙游coser婉拒集邮被人抹黑2222500
- 3网文大瓜!Lv5作者公开找金主2060046
- 4奥委会翻脸,电竞奥运凉了1991886
- 5游客摆乌鸦哥pose,洋人看傻1682150
- 6逆天!漫展coser被多人摸脚1668072
- 7湛江举报狗肉馆惨遭官方驳回1216148
- 8转播权18亿,央视不惯臭毛病1093554
- 9夜市车主未挪车遭垃圾围堵867027
- 10氪金被坑惨,水乌龟开团终末地863480
