代码跳过第二个单元格，不应该

Question

此代码是较大代码的一部分，它从列表框中获取单词并将其放入另一个列表框中，该代码使用此代码分隔列表框中的单词并建立成能够插入到单元格中的单词，出于某种原因第二个strsplt 没有显示，其他一切都运行良好，只是这个，我需要帮助并且没有抛出任何错误。我用 F8 和断点查看了它，问题似乎出在

If ii < .ColumnCount - 1 Then
    str = str & .List(i, ii) & vbCrLf
Else
    str = str & .List(i, ii)
End If

整个代码：

With Me.selecteditems
    ThisWorkbook.Sheets(9).Range("A:B").ClearContents
    For i = 0 To .ListCount - 1
        If .Selected(i) Then
            found = True
            For ii = 0 To .ColumnCount - 1
            ReDim strsplt(0 To i)
                If str = "" Then
                    str = .List(i, ii) & vbCrLf
                Else
                    If ii < .ColumnCount - 1 Then
                        str = str & .List(i, ii) & vbCrLf
                    Else
                        str = str & .List(i, ii)
                    End If
                End If
            Next ii
            message = "How much" & vbCrLf & str & "?" & vbCrLf
            title = "Amount"
            defaultval = "1"
            quantity = InputBox(message, title, defaultval)
            strsplt = Split(str, "*")
        End If
        'On Error Resume Next
        With ThisWorkbook.Sheets(9)
            .Range("A" & (i + 1)).Value = strsplt(i)
            .Range("B" & (i + 1)).Value = quantity
        End With
        'On Error GoTo 0
    Next i
End With  

编辑：使用debug.print str的方式

1. 项目1
2. item2 item3 item4 ...

Answer 1

尝试一下这样的暴力破解：

If ii < .ColumnCount - 1 Then
    str = str & .List(i+1, ii) & vbCrLf
Else
    str = str & .List(i+1, ii)
End If

我已在您的代码中将 i 更改为 i+1。 然后再次调试。如果不起作用，请尝试i-1、ii+1、ii-1。其中之一将起作用，它可能会给出超出范围的错误。然后固定数组长度，玩得开心。