列表框多选添加到下一个可用的空白单元格&从原始范围移除

Question

希望有人能帮助我?我有两个列表框RndAdd1 &;RndEdit1。我希望能够在RndAdd1中多选择项目，然后单击Button1，它通过所选项目循环，一次一个将它们添加到新范围(第一个空白单元格)，直到添加所有项目。然后从原始范围中删除刚刚添加的所有值。(基本上星期一从A栏移到B栏，星期二从C栏移到D栏，以此类推)

我还有另一个变量集(一周中的哪一天)，我有以下代码，我要放在按钮上，然后嵌套一系列if/Elseif语句。

我目前遇到的麻烦是，它在第一个空白单元格中发布了第一个值，然后第二个值覆盖了第一个值，依此类推，直到只有最终值现在在新范围内可见。这可能是一个简单的解决方案，我只是没有想到它在正确的方式!

Dim lItem As Long
For lItem = 0 To RndAdd1.ListCount - 1
    If RndAdd1.Selected(lItem) = True Then
        If ComboBox1.Value = "Monday" Then
            Sheets("Setup").Range("B65536").End(xlUp)(0, 1) = RndAdd1.List(lItem)
            RndAdd1.Selected(lItem) = False
        End If
    End If
Next
RndAdd1.Clear
RndEdit1.Clear
ComboBox1.Clear
ComboBox1.List = Array("Monday", "Tuesday", "Wednesday", "Thursday", "Friday", "Saturday")
ComboBox1.Value = "Monday"
'Tuesday Repeat Code but with different range to take round numbers from

Answer 1

我在打电话，所以不能邮政编码购买，也许这可以帮助你:

Dim TargetRange as range 
Set TargetRange = thisworkbook.sheets(1).range("A1")  'or whereever you want it
Do until IsEmpty(TargetRange.value)
Set targetrange = targetrange.offset(1,0)
Loop
TargetRange.value = "your value here"

循环下去，直到找到一个空单元格

希望有所帮助

Answer 2

substitute

Sheets("Setup").Range("B65536").End(xlUp)(0, 1) = RndAdd1.List(lItem)

With Sheets("Setup")
    .Range(.Rows.Count, "B").End(xlUp).Offset(1) = RndAdd1.List(lItem)
End With