什么是VBA公式复制和粘贴输出从用户表单到多行

我在Excel中创build了一个用户表单，其中包含以下VBA代码：

Private Sub CommandButton1_Click() If TextBox1.Value = "" Then If MsgBox("Form is not complete. Continue?", vbQuestion + vbYesNo) <> vbYes Then Exit Sub End If End If ActiveCell = TextBox1.Value ActiveCell.Offset(20, 0).Select Call resetForm End Sub Sub resetForm() TextBox1.Value = "" UserForm1.TextBox1.SetFocus End Sub 

此VBA代码为我提供在WorkSheet的活动单元格中的用户表单中生成的结果。

我想将这个结果复制并粘贴到下面的18行，然后活动的单元格应该偏移到这个单元格下面的行。

如果用户通过用户窗体（命令button）生成另一个结果，这个想法将复制并粘贴下面18行的结果，然后活动单元应该偏移到这个单元下面的行。

Answer 1

尝试

 Const NumberOfRows = 18 ' ... Range(ActiveCell, ActiveCell.Offset(NumberOfRows - 1, 0)) = TextBox1.Value ActiveCell.Offset(NumberOfRows, 0).Activate 

Answer 2

在ActiveCell = TextBox1.Value写：

 ActiveCell.Offset(18, 0) = ActiveCell ActiveCell.Offset(1, 0).Activate 

第一行生成值在活动单元格下方的18行，第二行将活动单元格移动一行，因此我想要将此结果复制并粘贴到下面的18行，然后活动单元格应偏移到此单元格下面的行。