Excel Basics to Macros - Complete Guide
- Excel Macro to Find Row and delete it on the match of “Data” in Column
Sub Delete()
Dim lRow As Long
On Error Resume Next
lRow = Application.WorksheetFunction.Match(10, Range("A1:A200"), 0)
On Error GoTo 0
If lRow > 0 Then
Sheet1.Rows(lRow).Delete Shift:=xlShiftUp
End If
End Sub
Comments
Post a Comment