Копировать и вставлять содержимое из текстового поля в диапазон ячеек листа?

Question

Я работаю над проектом VBA для автоматизации инструмента Excel для трекера запросов службы поддержки.Я хочу, чтобы после нажатия кнопки командной строки скопировать содержимое из текстового поля в другую строку листа.Если я повторю задачу, содержимое текстового поля должно быть сохранено в следующей пустой ячейке той же строки.

Я использовал этот макрос:

Private Sub CommandButton1_Click()
    TextBox1.Text = ""
    TextBox1.Copy
    'TextBox2.Copy
    'TextBox3.Copy
    Range("A2").Select
    Do
        If IsEmpty(ActiveCell) = False Then
            ActiveCell.Offset(1, 0).Select
        End If
    Loop Until IsEmpty(ActiveCell) = True
End Sub

Answer 1

Вам действительно нужна только одна строка кода в вашей подгруппе:

Private Sub CommandButton1_Click()
    Range("A2").End(xlDown).Offset(1, 0).Value = TextBox1.Text
End Sub

Даже если вы так не говорите, похоже, вы хотите, чтобы текстовое поле также было очищено. Если это так, то добавьте TextBox1.Text = "" одну строку перед End Sub.