从另一个工作表中查找值并复制到新工作表

Question

我有一个用户表单，其中用户从列表框中选择一个值（文本字符串），它应该返回＆＃34;摘要＆＃34;下一个空行的工作表，我可以工作。

我遇到的问题是，列表框中的选项是从另一个工作表（＆＃34;输出＆＃34;）中提取的，其中用户可以选择多个项目。因此，如果用户选择值＆＃34;字符串1＆＃34;例如，在列表框上，我需要应用程序在＆＃34;输出＆＃34;上找到相同的值（＆＃34;字符串1和＃34;）。工作表，从几个单独的列中提取值（例如A1为＆＃34;字符串1和＃34;，A4，A7，A10和A13），粘贴＆＃34;字符串1和＃34;在下一个空行以及A4，A7，A10等......值到＆＃34;摘要＆＃34;工作表。

我无法拉出后续值（A4，A4等等）并将它们放在正确的行上（例如，将其与字符串1而不是字符串2匹配）。下面是我的代码，用于从列表框中返回所选项目并将它们放在下一个空行中。

Dim Items As Long
For Items = 0 To Listbox.ListCount - 1
    If Listbox.Selected(Items) = True Then
        w.Range("A" & Rows.Count).End(xlUp).Offset(1).Value =  Listbox.List(Capes)
        Listbox.Selected(Items) = False
    End If

Next

如何将后续值（A4，A7等）放在同一行上，但列2,3,4等等？