Excel 从userform selection一次在两列中写入数据

我有一个用户表单中的列表框。当用户选择并单击“导出到Excel”按钮时，它会将所选项目导出到第7列

我想将单个选择导出到第7列和第8列

现行工作守则

Set wf = Application.WorksheetFunction
Set addlist = Sheet1.Cells(Rows.Count, 7).End(xlUp).Offset(1, 0)
For x = 1 To WortSelector.ListCount - 1
    If Me.WortSelector.Selected(x) Then
        addlist = Me.WortSelector.List(x)
        Set addlist = addlist.Offset(1, 0)
    End If
Next x

基本上我想要

Set addlist = Sheet.Cells(Rows.Count, 8).End(xlUp).Offset(1,0)

---

不能对两个不同的列使用相同的变量名

Set wf = Application.WorksheetFunction
Set addlist = Sheet1.Cells(Rows.Count, 7).End(xlUp).Offset(1, 0)
Set addlist2 = Sheet1.Cells(Rows.Count, 8).End(xlUp).Offset(1, 0)
For x = 1 To WortSelector.ListCount - 1
    If Me.WortSelector.Selected(x) Then
        addlist = Me.WortSelector.List(x)
        Set addlist = addlist.Offset(1, 0)
        addlist2 = Me.WortSelector.List(x)
        Set addlist2 = addlist2.Offset(1, 1)
    End If
Next x

希望这会有所帮助

或者让第7列和第8列相等（在下一个x之后）：

---

感谢sdda，第二个可以工作，但是当用户以新的形式输入信息时，它将替换上一个，而不是转到下一个空单元格并将信息放在该单元格中。我真的很喜欢第一个代码，你声明了另一个变量（addlist2），我只是不知道为什么它不起作用，它什么都不起作用。嗨，sdda，好吧，现在我只修改了你的代码一点点，它起作用了。我所做的就是把.offset（1,0）改为.offset（1,1）。但我真的非常感谢你的帮助。非常感谢。嘿，对不起，忘记了偏移量，你是对的！：）你能把我的答案标记为答案吗？

Worksheets(1).Range("H:H").Value = Worksheets(1).Range("G:G").Value