vba从a表sheet王的第四行循环复制到有内容的最后一行到b表的sheet李
时间: 2023-08-18 21:05:22 浏览: 59
可以使用以下VBA代码实现:
```
Sub CopyData()
Dim wb As Workbook
Dim ws1 As Worksheet, ws2 As Worksheet
Dim lastRow As Long
Dim i As Long
'打开当前活动工作簿
Set wb = ActiveWorkbook
'获取A表的Sheet1
Set ws1 = wb.Worksheets("王")
'获取B表的Sheet2
Set ws2 = wb.Worksheets("李")
'获取A表Sheet1的最后一行
lastRow = ws1.Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
'循环复制数据
For i = 4 To lastRow
'获取B表Sheet2的最后一行
lastRow = ws2.Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
'复制数据
ws1.Rows(i).Copy ws2.Rows(lastRow + 1)
Next i
End Sub
```
使用该代码,将会从A表Sheet1的第四行开始循环复制数据,直到A表Sheet1的最后一行。然后将复制的数据粘贴到B表Sheet2中,从B表Sheet2的最后一行开始。
相关推荐
![txt](https://img-home.csdnimg.cn/images/20210720083642.png)
![text/plain](https://img-home.csdnimg.cn/images/20210720083646.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)