如把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列的最后一行之下。
免责声明：
以上内容除特别注明外均来源于网友提问，创作工场回答，未经许可，严谨转载。