1つのワークシートの行を別の列にコピーする

Question

私はマスターシート（ "Perk"）を所有しており、列Aの "y"をすべて "登録"シートにコピーし、すべて "y"列Bの「住宅」シートに入れます。現在のコードでは、正しい情報が登録シートにコピーされています。ハウジングシートは、最初のレコードを引っ張っているだけです。

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

これは、登録シートの出力収納シートの出力

として

と、このよう

、あなたの特典シートとしてこれを考えてみましょうここで何が起こっている はあなたが間違っている列Aに空のセルをチェックすることにより、収納シートの空の行を見つけようとしているの文

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

の結果です。

は試していませんが、あなたはこれでその行を変更した場合、それは今あなたがそれを持っている列A yを持っている場合、それは登録に行くことと、列A yを持っていない場合にのみ

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