Private Sub Command1_Click() Dim i As Long For i = List1.ListCount - 1 To 0 Step -1 If Not (List1.List(i) Like "asd*") Then List1.RemoveItem i End If Next End Sub
7,785
社区成员
197,585
社区内容
加载中
试试用AI创作助手写篇文章吧