删除用户窗体列表框中选择的行或项目

我有一个用户表单，可以在其中输入一些信息，但我还想让用户可以通过从列表框中选择输入的数据来删除他输入的数据，然后单击“删除”，然后他们需要输入密码。不幸的是，我尝试了这段代码，但是它不起作用。

Private Sub delete_Click()
Dim i As Integer
For i = 1 To Range("A65656").End(xlUp).Row
If lstdiplay.Selected(i) Then
Rows(i + 1).Selected
Rows(i).Select
Selection.delete
End If
Next i
End Sub


例如，当我选择XOXO之类的图片，然后单击DELETE时，我想删除有关XOXO的全部信息，是否意味着删除XOXO和SA及其电话号码等。...是的，我有相同的信息工作表上的数据，删除数据单元格后我想保留空白

Private Sub delete_Click()
Const listStart As LOng= 3 'Your listbox keeps the rows starting with row 3
Dim sh As Worksheet
Set sh = ActiveSheet 'better use your worksheet name here...
If Not Me.lstdiplay.ListIndex = -1 Then
Me.lstdiplay.RemoveItem Me.lstdiplay.ListIndex
sh.Rows(Me.lstdiplay.ListIndex + listStart).Delete
Else
MsgBox "You must have a listbox selected row!",vbInformation,"No row selected"
End If
End Sub


它将删除所选的列表框行，并删除等效的工作表行。如果已从第3行（包括第3行）开始加载列表框。否则，您应该调整`listStart'常量值...

它还会警告您选择丢失的情况。