根据组合框值删除行

Question

我想在运行宏时填充一个用户窗体。该用户窗体有一个组合框，我希望所有表单Form（“ Sheet1”）的值。范围列A为列表。如果用户选择的值在该范围内，则我希望代码删除该值所在的整个行。示例：如果用户选择John并且John在Sheet1的A列中，则一旦用户提交用户表单，就会删除与John一起的整行。

我还有另一种情况，我只想删除M列。提交用户表单后，将删除A：N列，但M列保持不变。

我尝试过的代码如下。

Private sub commandbutton1_Click()
Dim smessage = "are you sure you want to delete the Row?"
if Msgbox(smessage, vbQuestion + vbYesNo,_ "Confirm 
Delete") = vbYes Then 
Dim LastRow as long, i as Long

LastRow = Columns(1).Find("*",SearchDirection:=xlPrevious).Row

For i = LastRow To 1 Step -1
If Cells(i,"A") = Combobox1.Text Then 
Rows(i).delete
End If 
Next
End If
End Sub