工作笔记吧 关注：46贴子：851
- 2回复贴，共1页
②.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国家出手治理农村高额彩礼2384790
- 2NIP不敌TES惨遭淘汰1948829
- 3泽连斯基想找中国当靠山1831844
- 4小行星爽约不撞地球了1347084
- 5曼谷大师赛T1零封DRX1156714
- 6美国联邦雇员也逃不过写周报966175
- 7国家线出了你有学上吗826824
- 8BLG淘汰TT完成复仇688850
- 9男明星李威涉嫌杀人634942
- 10华为新手机对标迷你折叠平板521388
