[已解决]用条件格式能否作到

qhllqhll

把相同区域里的单元格数值以自定义格式的方法隐藏数值，保留显示第一个相同单元格，
见附件
谢谢
自定义单元格.rar (5.44 KB, 下载次数: 2)

2015-6-15 14:59 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

hello_cgj

2015-6-15 15:50

来个

1. Sub 示例()
   
2. Dim k, i, n
   
3.     For k = 1 To 2
   
4.         For i = 5 To Cells(Rows.Count, 1).End(3).Row
   
5.             If Cells(i, k) = Cells(i - 1, k) Then
   
6.                 Cells(i, k).NumberFormatLocal = ";;;"
   
7.             End If
   
8.         Next
   
9.     Next
   
10. End Sub
    
11. 
    
12. 
    

复制代码

跳转到最佳答案楼层

zyouong

自定义单元格.rar (6.01 KB, 下载次数: 3)

2015-6-15 15:02 上传

点击文件名下载附件

zyouong

如果连同第一列一起，用格式刷刷一下。

自定义单元格.rar (5.97 KB, 下载次数: 3)

2015-6-15 15:03 上传

点击文件名下载附件

qhllqhll

zyouong 发表于 2015-6-15 15:04
如果连同第一列一起，用格式刷刷一下。

首先谢谢您的帮助
如果设置了打印单色就原形毕露了，
请用vba也可以，要求达到，自定义单元格格式“；；；”的效果

hello_cgj

来个

1. Sub 示例()
   
2. Dim k, i, n
   
3.     For k = 1 To 2
   
4.         For i = 5 To Cells(Rows.Count, 1).End(3).Row
   
5.             If Cells(i, k) = Cells(i - 1, k) Then
   
6.                 Cells(i, k).NumberFormatLocal = ";;;"
   
7.             End If
   
8.         Next
   
9.     Next
   
10. End Sub
    
11. 
    
12. 
    

复制代码