Question

我在一个按钮上有以下代码，该按钮在Userform的列表框中获取所选范围并将值粘贴到Sheets（“VBA_Data”）。范围（“AY1”）。

这仅适用于一个选项，如果您在列表框中选择多个选项，它只会将第一个值添加到单元格AY1。

我想修改代码，以便它将列表框中的所有选定值添加到AY1中从AY列开始的每个单元格中。列表框的范围是可变的，因此这可以用于任何数量的选择。

ID                       || Location   || OutPut
ABC-999-8710-12345-000   || THYW.A     || Success
ABC-900-8560-54321-100   || UJNC.E     || Success
ABC-997-0090-98765-010   || QTHB.P     || Success
ABC-923-2340-67890-001   || OMYB.Y     || Success
ABC-009-8000-24680-000   || EVHO.N     || Success
ABC-009-8000-26954-010   || IUTO.N     ||

Answer 1

您可以简单地将目标范围更改为下一个单元格。

Set TxtRng = ActiveWorkbook.Sheets("VBA_Data").Range("AY1")

For i = 0 To ListBoxProjectsToRemove.ListCount - 1
    If ListBoxProjectsToRemove.Selected(i) Then
        TxtRng.Value = ListBoxProjectsToRemove.List(i)
        Set TxtRng = TxtRng.Offset(1)
    End If
Next i

多个选定的Listbox值到单元格值

1 个答案: