VB list删除指定的几行

Question

按两个文本框给的数值删除list相对应的行，

比如上图，点击按钮后删除list中的第4到第12行，并且删除空行
麻烦高手帮忙，谢谢

Answer 1

楼主参考一下：

Private Sub Command1_Click()
   Dim B As Long, E As Long
   Dim N As Long
   Dim i As Long
   
   '第4行到第12行，ListIndex就是3到11
   B = Val(Text1) - 1   '起始行
   E = Val(Text2) - 1   '结束行
   N = List1.ListCount - 1
   If (N > E) Then N = E
   '先删除指定范围内的行
   For i = N To B Step -1
      List1.RemoveItem i
   Next
   '再移除空行
   For i = List1.ListCount - 1 To 0 Step -1
      If (List1.List(i) = "") Then List1.RemoveItem i
      '如果全是空格的行也算，就改为：
      'If (Trim$(List1.List(i)) = "") Then List1.RemoveItem i
   Next
End Sub

Answer 2

for i=val(text2) to val(text1) step -1
list1.RemoveItem i
next追问

谢谢帮助，简单，效果不错

本回答被网友采纳