엑셀 시트 데이터 삭제 :: Delete_Record 함수

Sub Delete_Record(WS As Worksheet, ID, Optional IsRowNo As Boolean = False, Optional IDcol As Long = 1)
 
'###############################################################
'오빠두엑셀 VBA 사용자지정함수 (https://www.oppadu.com)
'수정 및 배포 시 출처를 반드시 명시해야 합니다.
 
'■ Delete_Record 함수
'■ 시트의 특정 데이터를 삭제합니다. 삭제할 ID를 입력하거나 행번호로 직접 지정할 수 있습니다.
'■ 사용방법
'Delete_Record ThisWorkBook.WorkSheets("시트명"), 4
'▶ 인수 설명
'_____________WS                : 데이터를 삭제할 시트입니다.
'_____________ID                  : 데이터를 삭제하기 위하여 참조할 ID 또는 행번호입니다.
'_____________IsRowNo       : [선택인수] TRUE일 경우 입력한 행 번호의 데이터를 삭제합니다. 기본값은 FALSE 입니다.
'_____________IDCol             : [선택인수] ID가 입력된 열 번호입니다. 기본값은 1 입니다.
'###############################################################
 
Dim i As Long
Dim cRow As Long
 
If IsNumeric(ID) = True Then ID = CLng(ID)
 
With WS
    If IsRowNo = False Then
        cRow = .Cells(.Rows.Count, IDcol).End(xlUp).Row
        For i = 1 To cRow
            If .Cells(i, IDcol).Value = ID Then .Cells(i, 1).EntireRow.Delete: Exit For
        Next
    Else
        .Cells(ID, 1).EntireRow.Delete
    End If
End With
 
End Sub