Engineer LARRY/3) 현장업무-공무
2022. 6. 27.
동일값 필터
필터설정 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..