vba筛选两个excel工作表中相同时间的数据复制到一个新的工作表中
时间: 2024-03-22 11:42:40
浏览: 168
下面是一个示例代码,演示如何使用VBA将两个工作表中相同时间的数据筛选后复制到一个新的工作表中:
Sub FilterAndCopy()
Dim ws1 As Worksheet, ws2 As Worksheet, ws3 As Worksheet
Dim lastRow1 As Long, lastRow2 As Long, lastRow3 As Long
Dim i As Long, j As Long
'获取需要操作的三个工作表对象
Set ws1 = ThisWorkbook.Worksheets("Sheet1")
Set ws2 = ThisWorkbook.Worksheets("Sheet2")
Set ws3 = ThisWorkbook.Worksheets("Sheet3")
'获取两个原始工作表的最后一行
lastRow1 = ws1.Cells(Rows.Count, 1).End(xlUp).Row
lastRow2 = ws2.Cells(Rows.Count, 1).End(xlUp).Row
'清空目标工作表
ws3.Cells.ClearContents
'复制第一个工作表中满足条件的数据到目标工作表
j = 1 '目标工作表的行数
For i = 2 To lastRow1 '从第二行开始,第一行是表头
If ws1.Cells(i, 1) <> ""
```