删除2列有重复内容的行及填充条件格式颜色

alstar

看了半天，才看懂，有点愚钝了。你的意思是有条件格式的单元格上底纹颜色吧。

1. Sub test()
   
2. For Each Rng In [a1:a100]
   
3.     If Rng.FormatConditions.Count Then
   
4.         Rng.Interior.Color = RGB(255, 255, 0)
   
5.     End If
   
6. Next
   
7. End Sub

复制代码

志65

alstar 发表于 2018-9-30 14:40
看了半天，才看懂，有点愚钝了。你的意思是有条件格式的单元格上底纹颜色吧。

我试了，可整列都填充颜色了？如图。不知为何？

alstar

志65 发表于 2018-9-30 15:29
我试了，可整列都填充颜色了？如图。不知为何？

因为你整个列都都条件格式啊

志65

alstar 发表于 2018-9-30 11:14

这个帮我再更改一下吗？假如我用其他数据来操作，但是可能这2列数字的之后一行不是16和11,那么我又要更改代码，所以能不能不能让它自己识别，不用我每次都是修改那代码的行数？多谢

alstar

志65 发表于 2018-9-30 17:56
这个帮我再更改一下吗？假如我用其他数据来操作，但是可能这2列数字的之后一行不是16和11,那么我又要更改 ...

1. Sub test()
   
2. For Each Rng In Range("a1:a" & Cells(Rows.Count, 1).End(xlUp).Row)
   
3.     If Rng.FormatConditions.Count Then
   
4.         Rng.Interior.Color = RGB(255, 255, 0)
   
5.     End If
   
6. Next
   
7. End Sub
   

复制代码

志65

alstar 发表于 2018-9-30 11:14

能否帮忙改善一下宏代码？不用每次都要去更改代码。多谢

alstar

志65 发表于 2018-9-30 18:01
能否帮忙改善一下宏代码？不用每次都要去更改代码。多谢

1. Sub 删除()
   
2. For i = 3 To WorksheetFunction.CountA([a:a])
   
3.     For ii = 3 To WorksheetFunction.CountA([b:b])
   
4.         If Cells(i, 1) = Cells(ii, 2) Then
   
5.             Cells(i, 1) = ""
   
6.         Exit For
   
7.         End If
   
8.     Next
   
9. Next
   
10. Columns(1).SpecialCells(xlCellTypeBlanks).EntireRow.Delete
    
11. End Sub

复制代码

alstar

如果方便以后调用的话，最好用个inputbox窗口来选择你要识别的区域。比如

1. Sub 有条件格式单元格上色()
   
2. Set rngs = Application.InputBox("选择区域内的第一个单元格", Type:=8)
   
3. For Each Rng In Range(rngs, rngs.End(xlDown))
   
4.     If Rng.FormatConditions.Count Then
   
5.         Rng.Interior.Color = RGB(255, 255, 0)
   
6.     End If
   
7. Next
   
8. End Sub

复制代码

志65

alstar 发表于 2018-9-30 18:29
如果方便以后调用的话，最好用个inputbox窗口来选择你要识别的区域。比如

非常多谢你，可能你看错了，我是指的删除那个表格，不是指填充颜色的。

志65

alstar 发表于 2018-9-30 18:28

hi, 我用了2个代码，但是相同的内容，处理后的结果行数不同，才发现这个代码没有把A列跟B列相同的内容删除干净耶，如截图。这个要怎么改善？多谢。麻烦了