동일값 필터

필터설정

 

    Dim myValue As String
    Dim myCol As Integer
    Dim myRng As Range
    Dim R As Integer
    Dim myCell
    
    R = Range("a65536").End(xlUp).Row
    Set myRng = Range("a1:w" & R)
    
    myCell = Selection.Value
    If IsNumeric(myCell) Then
        myCell = Format(myCell, "#,###")
    End If
    myValue = myCell
        
    myCol = Selection.Column
    
    myRng.AutoFilter field:=myCol, Criteria1:=myValue
End Sub

---

 

필터해제

 

    Dim myCol As Integer
    Dim myRng As Range
    Dim R As Integer
    Dim myCell
    
    R = Range("a65536").End(xlUp).Row
    Set myRng = Range("a1:w" & R)
    
     myCol = Selection.Column
 myRng.AutoFilter field:=myCol
End Sub