用VBA写一个从表1提取符合条件的数据复制到表2,粘贴在最后一个非空行的下面
时间: 2023-03-31 07:03:40 浏览: 69
你好,这个问题可以通过以下代码实现:
Sub CopyData()
Dim ws1 As Worksheet, ws2 As Worksheet
Dim lastRow As Long, i As Long
Set ws1 = ThisWorkbook.Worksheets("表1")
Set ws2 = ThisWorkbook.Worksheets("表2")
lastRow = ws2.Cells(Rows.Count, 1).End(xlUp).Row
For i = 2 To ws1.Cells(Rows.Count, 1).End(xlUp).Row
If ws1.Cells(i, 1) = "条件" Then '将"条件"替换成你需要的条件
ws1.Rows(i).Copy ws2.Rows(lastRow + 1)
lastRow = lastRow + 1
End If
Next i
End Sub
希望能对你有所帮助。
相关问题
用vba写一个符合一组条件的数据复制到另一个字表的代码
你好,以下是符合一组条件的数据复制到另一个表的 VBA 代码:
Sub CopyData()
Dim sourceSheet As Worksheet
Dim targetSheet As Worksheet
Dim lastRow As Long
Dim i As Long
Set sourceSheet = ThisWorkbook.Worksheets("源表")
Set targetSheet = ThisWorkbook.Worksheets("目标表")
lastRow = sourceSheet.Cells(sourceSheet.Rows.Count, "A").End(xlUp).Row
For i = 2 To lastRow
If sourceSheet.Cells(i, "B").Value = "条件" Then
sourceSheet.Rows(i).Copy Destination:=targetSheet.Rows(targetSheet.Cells(targetSheet.Rows.Count, "A").End(xlUp).Row + 1)
End If
Next i
End Sub
希望能对你有所帮助!
用VBA写一个以表2的A2和B2:B35作为条件,在表3复制复核条件的数据粘贴到表4的最后一行
你好,根据你的要求,我可以回答这个问题。以下是 VBA 代码:
Sub CopyData()
Dim i As Integer
Dim j As Integer
Dim lastRow As Integer
lastRow = Sheets("表4").Range("A" & Rows.Count).End(xlUp).Row + 1
For i = 2 To 35
If Sheets("表2").Range("A2").Value = Sheets("表2").Range("B" & i).Value Then
For j = 1 To 5
Sheets("表3").Cells(i, j).Copy Destination:=Sheets("表4").Cells(lastRow, j)
Next j
lastRow = lastRow + 1
End If
Next i
End Sub
希望这个代码可以帮到你。