同一个表格里，用VbA复制子表1A1:B10的数据，粘贴到子表2A列有数据的最后一行，的代码
首先，我们需要找到子表2A列有数据的最后一行。然后，将子表1A1:B10的数据复制到子表2A列有数据的最后一行的下一行。以下是使用VBA实现的代码：
```vba
Sub CopyData()
Dim ws1 As Worksheet, ws2 As Worksheet
Dim lastRow1 As Long, lastRow2 As Long
Dim pasteRow As Long
' 设置工作表
Set ws1 = ThisWorkbook.Worksheets("子表1")
Set ws2 = ThisWorkbook.Worksheets("子表2")
' 获取子表1和子表2的最后一行
lastRow1 = ws1.Cells(ws1.Rows.Count, "A").End(xlUp).Row
lastRow2 = ws2.Cells(ws2.Rows.Count, "A").End(xlUp).Row
' 找到子表2A列有数据的最后一行
For i = lastRow2 To 1 Step -1
If Not IsEmpty(ws2.Cells(i, "A")) Then
pasteRow = i + 1
Exit For
End If
Next i
' 复制子表1A1:B10的数据，粘贴到子表2A列有数据的最后一行的下一行
ws1.Range("A1:B10").Copy Destination:=ws2.Range("A" & pasteRow)
End Sub
```
将以上代码复制到Excel VBA编辑器中的一个新模块，然后运行该宏，即可实现将子表1A1:B10的数据复制到子表2A列有数据的最后一行的下一行。
免责声明：
以上内容除特别注明外均来源于网友提问，创作工场回答，未经许可，严谨转载。