根据不同的列将行从一个工作表复制到另一个工作表

Question

我有一张主表（＆＃34; Perk＆＃34;）并希望用＆＃34; y＆＃34;在A列进入＆＃34;注册＆＃34;表格和所有与＆＃34; y＆＃34;在B栏进入＆＃34;住房＆＃34;片。使用当前代码，正确的信息将复制到注册表中。住房单只是在第一张记录中拉。

Sub extractdata()
    Dim x As Long, lastrow

    lastrow = Sheets("Perk").Range("A" & Rows.Count).End(xlUp).Row

    Sheets("Housing").Range("A2:AW500").ClearContents
    Sheets("Registration").Range("A2:AW500").ClearContents
    For x = 2 To lastrow
    If Worksheets("Perk").Cells(x, 1) Like "y*" Or Worksheets("Perk").Cells(x, 1) Like "Y*" Then
    Worksheets("Perk").Cells(x, "A").EntireRow.Copy Destination:=Sheets("Registration").Range("A" & Rows.Count).End(xlUp).Offset(1)
    End If

    If Worksheets("Perk").Cells(x, 2) Like "y*" Or Worksheets("Perk").Cells(x, 2) Like "Y*" Then
    Worksheets("Perk").Cells(x, "B").EntireRow.Copy Destination:=Sheets("Housing").Range("B" & Rows.Count).End(xlUp).Offset(1, -1)
    End If
    Next x
End Sub

Answer 1

将此视为您的特权表，

这是注册表的输出

这是住房单的输出

这里发生的是声明的结果

Worksheets("Perk").Cells(x, "A").EntireRow.Copy Destination:=Sheets("Housing").Range("A" & Rows.Count).End(xlUp).Offset(1)

您正在尝试通过检查A列中的空单元格来查找住宅单的空行。

没试过，但是如果你用这个改变那行就应该有效

 Worksheets("Perk").Cells(x, "A").EntireRow.Copy Destination:=Sheets("Housing").Range("B" & Rows.Count).End(xlUp).Offset(1, -1)