使用按钮将一行追加到表格底部

Question

我正在尝试创建一个可以在同事之间分发的 excel 工作表，该工作表将用于记录各种工作任务的完成情况。

因此，我有一行包含 5 个字段：

| Ref No. | Category | Task Name | Task Notes | Timestamp | 
|   5     |  Sales   | Create Ad | blah blah  | now       |

这个想法是有人填写这些细节，写下有关他们完成的任务的更多详细信息，然后他们按下按钮，该行被擦除干净(最好)，并将值复制到这些行的列表中仅低几个单元格。

| Ref No. | Category | Task Name | Task Notes | Timestamp | 
|   #     |  Select  |   Blank   | - Blank -  |           |
| <Button> |

| Ref No. | Category | Task Name | Task Notes | Timestamp | 
|   2     |  Sales   | xxxxxxxxx | blah blah  | xxx       |
|   3     |  Sales   | xxxxxxxxx | blah blah  | xxx       |
|   4     |  Sales   | xxxxxxxxx | blah blah  | xxx       |
|   5     |  Sales   | Create Ad | blah blah  | now       |

由于明显的工作需要学习，我才开始进入 VBA，但我一直在试验我不久前在这里找到的这段代码，但似乎找不到源代码。

Private Sub CommandButton1_Click()
Sub copydata()
Dim lrow As Long
lrow = Sheets("Activity").Cells(Rows.Count, 3).End(xlUp).Row
With Sheets("Activity")
.Range("B3:F3").Copy
.Range("B" & lrow + 1).PasteSpecial xlPasteValues
End With
End Sub

当我运行代码时，关闭VBA编辑器，然后按按钮出现错误：

编译错误： 预期结束子

我试图进行故障排除，但所有"修复"都指向没有任何问题。

任何帮助，不胜感激。我已经注册了 VBA 的 udemy 课程，但想尽快解决这个问题。

Answer 1

因为你试图把一个子放进一个子

Private Sub CommandButton1_Click()
Sub copydata()

所以要么结束第一个子CommandButton1_Click开始一个新的

Private Sub CommandButton1_Click()
'some code
End Sub
Sub copydata()
Dim lrow As Long
lrow = Sheets("Activity").Cells(Rows.Count, 3).End(xlUp).Row
With Sheets("Activity")
.Range("B3:F3").Copy
.Range("B" & lrow + 1).PasteSpecial xlPasteValues
End With
End Sub

或者踢掉其中一条Sub线。