将 7 列的数据从列表框导出到工作表到选定的单元格答案

【问题标题】：Exporting data of 7 columns from listbox into worksheet into selected cells将 7 列的数据从列表框导出到工作表到选定的单元格
【发布时间】：2014-10-30 04:17:49
【问题描述】：

我将 7 列的数据从列表框中传输到工作表中，再到选定的单元格 (A20:G29)。数据传输到下一个可用单元格，而不是 A20:G29

这是我的代码：

Private Sub cmdAdd_Click()
    Dim addme As Range
    Dim x As Integer

    Set addme = Sheet2.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)
    For x = 0 To Me.lstSelector.ListCount - 1
        If Me.lstSelector.Selected(x) Then
            addme = Me.lstSelector.List(x)
            addme.Offset(0, 1) = Me.lstSelector.List(x, 1)
            addme.Offset(0, 2) = Me.lstSelector.List(x, 2)
            addme.Offset(0, 3) = Me.lstSelector.List(x, 3)
            addme.Offset(0, 4) = Me.lstSelector.List(x, 4)
            addme.Offset(0, 5) = Me.lstSelector.List(x, 5)
            addme.Offset(0, 6) = Me.lstSelector.List(x, 6)
            Set addme = addme.Offset(1, 0)
         End If
    Next x

    For x = 0 To Me.lstSelector.ListCount - 1
     If Me.lstSelector.Selected(x) Then Me.lstSelector.Selected(x) = False
    Next x

End Sub

Private Sub cmdclose_Click()
Unload Me
End Sub

Private Sub lstSelector_Click()

End Sub

我需要建议

【问题讨论】：

是的。你认为这是为什么？
非常感谢大卫。事实上，你是炸弹！你让我今天一整天都感觉很好。它正在 100% 工作。
干杯。如果我的回答解决了问题，请考虑marking it as 'accepted'。 :)

标签： excel vba

【解决方案1】：

这一行确定了数据输出的起始范围/单元格：

Set addme = Sheet2.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)

这是一种相对粗略但经常使用的查找范围内最后一个单元格的方法。因此，您的程序将始终“转移到下一个可用单元格”而不是转移到其他特定范围的单元格，这是有道理的。

试试这个：

Set addme = Sheet2.Range("A20")

【讨论】：