Excel 求助使用VBA找出重复值并标色

Excel 求助使用VBA找出重复值并标色

用条件格式是不是更方便呢？实在感觉有必要可以录制宏来解决这个问题

sub fp1() sheet6.range("d38").formula = "=d39" '设置单元格公式 end sub private sub worksheet_change(byval target as range) on error resume next '设置错误处理 application.screenupdating = false '关闭屏幕刷新 dim mypath as string '定义变量为字符串类型 dim myname as string dim inrange as range dim mytext as string dim myaddress as string dim pictemp as variant if target.count <> 1 then exit sub '如果range对象的数量不等于1 则退出过程 target.offset(-3, -5).select '选中相对于 当前内容改变的单元格 偏移-3行 -5列位置的单元格 mytext = target.value '将 当前内容改变的单元格 内容赋值给变量 activesheet.pictures(mytext).delete '删除单元格中原来的图片 picpath = thisworkbook.path & "\seal library\" & mytext & ".jpg" '定义插入图片的地址 set pictemp = activesheet.pictures.insert(picpath) '插入图片 pictemp.name = mytext '设定所插入图片的名称 with pictemp.shaperange   .pictureformat.transparentbackground = msotrue '设置图片透明   .pictureformat.transparencycolor = rgb(255, 255, 255) '设置透明色 按指定颜色透明 end with set pictemp = nothing '重置图片对象 application.screenupdating = true '打开屏幕刷新 sheet1.activate ’工作表激活 end sub sub fpsc1() activesheet.drawingobjects.delete '删除活动工作表内的图片对象 end sub