Question

vb listbox 删除最后空白记录

我在的list里面有很多个空想
我只想删除liast最后的空项
例如：
1

2

3

4

5
6

把6后面的空项删除，1至6中间的空项保留，前提是6后面有多少条空项不确定，要详细的代码？

Answer 1

打开附件查看，或手动窗口上放

  List1               用于显示

  Command1    生成模拟条件

  Command2    整理

Option Explicit

Private Sub Command1_Click()

    Dim i As Long
    
    List1.Clear
    Randomize
    While i < 10
        If Rnd() Mod 6 Then
            List1.AddItem ""
        Else
            List1.AddItem i
            i = i + 1
        End If
    Wend

End Sub

Private Sub Command2_Click()

    Dim Index As Long
    Dim Value As String
    Dim flagValue As Long
    
    Index = 0
    flagValue = 0
    While Index < List1.ListCount
        Value = Trim(List1.List(Index))
        Index = Index + 1
        
        If Value = "" Then
            ' 这里可以改你的条件
            ' 目前设置是只保留1-6数字中间的空白行
            If flagValue < 1 Or flagValue > 6 Then
                List1.RemoveItem Index - 1
                Index = Index - 1
            End If
        ElseIf Val(Value) > 0 Then
            flagValue = Val(Value)
        End If
    Wend

End Sub

Answer 2

那就从后面的项开始，朝前一一判断，空的就删除，非空的就结束！

Dim i As Integer
Dim n As Integer
n = List1.ListCount
For i = n - 1 To 0 Step -1
If List1.List(i) <> "" Then
Exit Sub
Else
List1.RemoveItem i
End If
Next i

Answer 3

要不要删除只有空格字符的项？要的话补充一下
最上那条回答：
If trim(List1.List(i))<> "" Then