在excel中 如图,我想让一列中有三个及三个以上的s的数字改变颜色,要怎 ...
发布网友
发布时间：2024-10-19 20:34
共2个回答
热心网友
时间：2024-10-22 18:35
dim i,j,k,row
row= Cells(Rows.Count, 1).End(xlUp).Row
col= Cells(2, columns.count).End(xlLeft).column
for j=1 to col
k=0
for i= 2 to row
if cells(i,j)="s" then k=k+1
if k=3 then
cells(1,j).interior.color=vbred
exit for
end if
next i
next j
end sub
excel 的这个页面 alt+f11 调出 basic 窗口,左上角窗口---右键--插入模块---copy这段代码进去---f5执行
热心网友
时间：2024-10-22 18:37
选中第一行，开始－－样式－－条件格式，新建规则，用公式：
=COUNTIF(A:A,"s")>2
设置格式：填充红色。
