excel vba判断单元格内容是否内容相同

判断k列到az列这个范围最后一行
判断单元格内的内容是否相同
例:k列 最后单元=aa(表示单元格内的内容《相同》,填充此单元格为红色)
例:l列 最后单元=a0(表示单元格内的内容《不相同》,单元格无填充颜色)

第1个回答  2016-06-19
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 有文字/字母/数字

本回答被提问者和网友采纳
相似回答