隱藏表格中的重複單元格

Question

我想隱藏表格中的重複單元格。見圖。

http://imgur.com/UoNKcBI

結果（我manualy隱藏NotebookNames，那是什麼我的意見是關於）

http://imgur.com/jVnhJAa

在第一列中，我們得到了 「映像文件名」，我想隱藏（油漆細胞白色）的重複，只留下第一個「重複」了。 在第二列中有「圖像版本」，我也想在這裏隱藏重複項，但依賴於「圖像名稱」列。因此，如果有2次「Image S400」+ 1.3版，請隱藏第2張「圖像名稱」+「圖像版本」。

我正在嘗試這個，現在有條件格式，但我確定這不是方法。

這是可能與條件格式？還是我必須用VBA解決這個問題？

的問候和美好的一週

Declade

Answer 1

你想隱藏單元格或行，如果你的選擇是您可以使用此子讀取所有的行到表中，如果二路映像名稱和圖像當前行的版本是以前的一些行成爲當前行會被隱藏的

Sub HideDoubleRst() 
Application.ScreenUpdating = False  
    Dim UR As Long, X As Long 
    Dim MyCol As Integer  
    MyCol = Range("A:A").Column 
    UR = Cells(Rows.Count, MyCol).End(xlUp).Row 
    For X = 2 To UR 
     If Cells(X, MyCol) = Cells(X - 1, MyCol) And Cells(X, MyCol + 1) = Cells(X - 1, MyCol + 1) Then 
     Rows(X).Select 
     Selection.EntireRow.Hidden = True 
     End If 
    Next X 

Application.ScreenUpdating =真 結束小組 或者，如果你只想隱藏2個細胞您CA n改變背景顏色和你fontcolor到白色

Sub ColorDoubleRst() 
Application.ScreenUpdating = False 

    Dim UR As Long, X As Long 
    Dim MyCol As Integer 

    MyCol = Range("A:A").Column 
    UR = Cells(Rows.Count, MyCol).End(xlUp).Row 
    For X = 2 To UR 
    If Cells(X, "A") = Cells(X - 1, "A") Then 
     Cells(X, "A").Select 
     With Selection.Font 
      .ThemeColor = xlThemeColorDark1 
     End With 
     With Selection.Interior 
      .ThemeColor = xlThemeColorDark1 
     End With 
     If Cells(X, "B") = Cells(X - 1, "B") Then 
      Cells(X, "B").Select 
      With Selection.Font 
       .ThemeColor = xlThemeColorDark1 
      End With 
      With Selection.Interior 
       .ThemeColor = xlThemeColorDark1 
      End With 

      If Cells(X, "F") = Cells(X - 1, "F") Then 
       Cells(X, "F").Select 
       With Selection.Font 
        .ThemeColor = xlThemeColorDark1 
       End With 
       With Selection.Interior 
        .ThemeColor = xlThemeColorDark1 
       End With 
      End If 
     End If 
    End If 
    Next X 
Application.ScreenUpdating = True 
End Sub