sub xxx()
for i=10 to 17
s="A"
for j=4 to 10
if cells(j,i).interior.colorindex<>3 then
for k=j +1 to 11
if cells(j,i)=cells(k,i) then
if cells(j,i).interior.colorindex<>3 then
cells(j,i).interior.colorindex=3
s=s & cells(j,i)
endif
cells(k,i).interior.colorindex=3
s=s & cells(k,i)
endif
next
endif
next
if s<>"A" then
cells(3,i)=s
endif
next
end sub
追问判断k列到az列这个范围最后一行(也就是每列最后一个单元的内容)
单元内容不是固定a 有文字/字母/数字
本回答被提问者和网友采纳