vba - 列 I の値が 2 または 3 の場合、対応する B:D を同じ行にコピーし、表紙に貼り付けます。

Question

更新可能なワークシートがあります。ユーザーがリアルタイム更新にシート番号を入力すると、マクロがその行を参照しColumn 9 (I)てコピーB:Dし、フロント シート (表紙) のセルに貼り付けます。これは、データ シートのすべてのデータが実行されるまで続きます。

Sub Update_Current()
    Dim Page
    Dim lastrow As Long, i As Long
    Dim ws As Worksheet

    lastrow = ActiveSheet.Range("D1000").End(xlUp).Row + 1

    Page = InputBox("Which week would you like to update?")

    If Page = 1 Then
        Worksheets("Week(1)").Select

        For i = 6 To 100
            If ws.Cells(i, 9) = "2" Or ws.Cells(i, 9) = "3" Then
                Range("i,2:1,4").Copy

                {TORN ON WHAT GOES HERE}

            End If
        Next i
    End If
End Sub

Answer 1

遅いことはわかっていますが、答えがあると思うのに、答えなしで質問を残すことはできません. うまくいけば、これは他の誰かを助けるでしょう。

Sub Update_Current()
Dim Page
Dim lastrow As Long, i As Long
Dim ws As Worksheet

Page = InputBox("Which week would you like to update?")

If Page = 1 Then
   Set ws = Worksheets("Week(1)")
   ws.Select
    For i = 2 To 100
        If ws.Cells(i, 9) = "2" Or ws.Cells(i, 9) = "3" Then
            ws.Range("B" & i & ":D" & i).Copy
            ThisWorkbook.Sheets("CoverPage").Select
            lastrow = ThisWorkbook.Sheets("CoverPage").Range("D1000").End(xlUp).Row + 1
            ThisWorkbook.Sheets("CoverPage").Range("B" & lastrow).PasteSpecial xlPasteValues
        End If
    Next i
End If
End Sub