我目前有一个列表框,其中有3个项目,我想循环浏览列表框中的项目并将它们放入单个单元格中。我想要放入项目的单元格将从最后一个单元格向下开始5列,其中包含信息:例如:如果包含数据的最后一个单元格是C5,那么我希望将数据放入单元格中在C10(因为只有3个项目结束于C13)。下面显示了用于查找最后一个单元格的位置,然后找到距离它5下方的单元格的代码:
LastRow = ActiveSheet.Range("E" & Rows.Count).End(xlUp).Row
ActiveSheet.Cells(LastRow + 5, "E").Value = 'list box items'
我怎么能在这些单元格中填充列表框项目。 listbox名为nameList
答案 0 :(得分:0)
这样的事情会起作用:
ActiveSheet.Range("E" & Rows.Count).End(xlUp).offset(5).resize(3).value = me.nameList.List