我在一个按钮上有以下代码,该按钮在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 ||
答案 0 :(得分:0)
您可以简单地将目标范围更改为下一个单元格。
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