如把sheet1表中的A列粘贴为数值到sheet2表A列的最后一行之下，VBA代码怎么写

解析：需要编写一个VBA代码，将Excel中sheet1表的A列数据复制到sheet2表A列的最后一行之下。

代码如下：

```vba
Sub CopyColumnA()
Dim ws1 As Worksheet, ws2 As Worksheet
Dim lastRow As Long

Set ws1 = ThisWorkbook.Worksheets("Sheet1")
Set ws2 = ThisWorkbook.Worksheets("Sheet2")

lastRow = ws2.Cells(ws2.Rows.Count, "A").End(xlUp).Row + 1

ws1.Range("A:A").Copy Destination:=ws2.Range("A" & lastRow)
End Sub
```

这段VBA代码首先定义了两个工作表对象ws1和ws2，分别表示sheet1和sheet2。然后获取sheet2表A列的最后一行行号，接着将sheet1表的A列数据复制到sheet2表A列的最后一行之下。