循环浏览列表框行（如果列不为空，则复制粘贴到工作表中的空行中）>

Question

我正在尝试遍历列表框（如下面的图片所示），如果column（3）有值，则将行复制并粘贴到excel工作表中的空行以供以后使用。我想使用列值复制该行以将其放入工作表，但它仅复制最后一行的值并重复。您能否指出以下代码中我做错了什么？

TIA

s = 22

For i = 0 To Me.AnBox.ListCount - 1

    If Me.AnBox.Column(3) <> "" Then

        Sheets("SparePartsRequestForm").Range("A" & s).Value = Me.AnBox.Column(2)
        Sheets("SparePartsRequestForm").Range("C" & s).Value = Me.AnBox.Column(1)
        Sheets("SparePartsRequestForm").Range("D" & s).Value = Me.AnBox.Column(3)
        s = s + 1

    End If

Next i
Userform

Part of excel sheet

我正在尝试遍历列表框（如下面的图片所示），如果column（3）有值，则将行复制并粘贴到excel工作表中的空行以供以后使用。我想使用列...

Answer 1

一些错误：