Записывать данные сразу в два столбца из пользовательской формы

Question

У меня есть список в форме пользователя.Когда пользователь выбирает и нажимает кнопку экспорта в 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)

Answer 1

Нельзя использовать одно и то же имя переменной для двух разных столбцов.

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):

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