告急，如何处理这张工作表

xzb1972

我有这样一张excel表格，如图一：

现在我想编一个宏，第一次执行后，表格变成这样，如图二：

单位列内相同单位只保留第一个单位名称，其它相同的单位名称字体与单元格背景一致不显示出来，而不是删除。在第二次执行宏后，表格又返回原始状态(即图一状态)，即所有单位列内单元格内的单位名称都显示出来。
先谢谢了。

[ 本帖最后由 xzb1972 于 2009-7-3 11:19 编辑 ]

mineshine

Sub Macro1()
    For i = [A65536].End(xlUp).Row To 2 Step -1
        If Cells(i, 1) = Cells(i - 1, 1) Then Cells(i, 1).ClearContents
    Next i
End Sub

dengjq2000

也可以通过数据--分类汇总进行处理的
这是我在E家收集到资料！
我现在不能直接上传图形文件，只也压缩了！

ningyuanchao

不知是否为楼主所需。

xzb1972

这么多网友回复解答，太出令人高兴了，先谢谢了，下载研究一下。

xzb1972

Sub Macro1()
    For i = [A65536].End(xlUp).Row To 2 Step -1
        If Cells(i, 1) = Cells(i - 1, 1) Then Cells(i, 1).ClearContents
    Next i
End Sub
这个不行，没有完全达到目的，重复的单位名称被删除了，而不是被隐藏了。

xzb1972

ningyuanchao 的贴子不错，谢谢了。

[ 本帖最后由 xzb1972 于 2009-7-3 15:09 编辑 ]

xzb1972

sharpr的贴子没有看明白。

风之助

Private Sub CommandButton1_Click()
    Dim i%, str$, rng As Range, cell As Range
   
    Set rng = [A65536].End(xlUp).Offset(1, 0)
    For Each cell In Range([A3], [A65536].End(xlUp))
        If cell.Value = cell.Offset(-1, 0).Value Then
                Set rng = Application.Union(rng, cell)
        End If
    Next
   
    If CommandButton1.Caption = "隐藏" Then
        CommandButton1.Caption = "显示"
        rng.Font.ColorIndex = 2
    Else
        CommandButton1.Caption = "隐藏"
        rng.Font.ColorIndex = 0
    End If
   
    Set rng = Nothing
End Sub