选中所有列 运行该宏 Sub HideOne() Dim TRan As Range For Each TRan In Selection If WorksheetFunction.CountIf(Selection, TRan.Value) = 1 Then TRan.EntireRow.Hidden = True End If Next End Sub