vba从a表sheet王的第四行,循环到有内容的最后一行,然后复制其中的O列C列E列,到b表的sheet李
时间: 2023-08-18 12:05:22 浏览: 54
可以使用以下 VBA 代码实现:
```
Sub CopyData()
Dim wb As Workbook
Dim ws1 As Worksheet, ws2 As Worksheet
Dim lastRow As Long
Dim i As Long, j As Long
Dim copyRange As Range, pasteRange As Range
'打开当前活动工作簿
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
'获取O列、C列、E列的数据
Set copyRange = ws1.Range("O" & i & ":O" & i & ", C" & i & ":C" & i & ", E" & i & ":E" & i)
'获取B表Sheet2的最后一行
lastRow = ws2.Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
'确定粘贴区域
Set pasteRange = ws2.Range("A" & lastRow + 1)
'粘贴数据
copyRange.Copy pasteRange
Next i
End Sub
```
使用该代码,将会从 A 表 Sheet1 的第四行开始循环,直到 A 表 Sheet1 的最后一行。然后将每一行中 O 列、C 列、E 列的数据复制到 B 表 Sheet2 中,从 B 表 Sheet2 的最后一行开始。
相关推荐
![text/plain](https://img-home.csdnimg.cn/images/20210720083646.png)
![bas](https://img-home.csdnimg.cn/images/20210720083646.png)
![txt](https://img-home.csdnimg.cn/images/20210720083642.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)