excel vab 在当前表内单元格查找值=1的行数据实时复制到第二个表里

以下是一个简单的VBA代码，可以在当前表中查找值为1的行数据，并实时复制到第二个表中。

Sub CopyRowsToSecondTable()
    Dim i As Long, j As Long
    Dim ws1 As Worksheet, ws2 As Worksheet
    
    Set ws1 = ThisWorkbook.Sheets("Sheet1") '将“Sheet1”替换为当前表的名称
    Set ws2 = ThisWorkbook.Sheets("Sheet2") '将“Sheet2”替换为第二个表的名称
    
    j = 1 '从第一行开始复制到第二个表中
    
    For i = 1 To ws1.Range("A" & ws1.Rows.Count).End(xlUp).Row '查找当前表中的最后一行
        If ws1.Cells(i, 1).Value = 1 Then '如果当前行的第一个单元格的值为1
            ws1.Rows(i).Copy ws2.Rows(j) '复制当前行到第二个表中的第j行
            j = j + 1 '将j加1，以便将下一行复制到第二个表中的下一行
        End If
    Next i
    
End Sub

请注意，在上述代码中，我们假设第一个表的第一列包含要查找的值。如果要查找其他列中的值，请更改ws1.Cells（i，1）.Value中的1为相应的列号码