我有一个充满各种数据的excel文件 . 我有一个列表框，用户可以在其中选择项目并将它们移动到listbox2（所有这些都来自excel中的同一列） . 现在，我只想为listbox2中的选定项添加来自textbox8（也与列表框位于同一用户窗体上）的信息 . Listbox2包含序列号，textbox8包含用户的姓名缩写 .

以下引发了在下面的***行找不到的编译错误方法或数据 .

Private Sub CommandButton6_Click()
   Dim LCount As Long
   For LCount = 0 to ListBox2.ListCount -1
   row_number = 3
   Do
     DoEvents
     row_number = row_number + 1
     item_in_review = Sheets("Rework").Range("E" & row_number)
     If item_in_review = ListBox2.Range("E" & row_number) Then   'Error line****
       'Adds the serial numbers to the list box
       Sheets("Rework").Range("M" & row_number) = TextBox8.Value
     End If
   Loop Until item_in_review = ""

 Next LCount
 End Sub
for-loop textbox listbox