將特定行復制到另一個工作表

Question

我想使用變量將工作表 A 中的特定行復制到工作表 B 中的特定行位置。

它應該做什么：
從工作表 B 開始：我正在“工作表 B”中查找值 > 0 通過特定列（例如“V”），自上而下。
如果有一個值 > 0（例如 = 4），則取此值並將所有行從“工作表 A”中復制到 position 下 A 列中的此值，其中在“工作表 B”中找到值 = 4。
這次從“工作表 B”中的第一個新粘貼行開始重復此操作，直到檢查工作表 B 中的每一行。
復制的行可以在“V”中再次包含值 > 0，這就是為什么我想開始檢查下面的一行。

我嘗試了什么：

1. 根據單元格的給定輸入值從“工作表 1”復制范圍：

Dim i As Long, j As Long
j = 5
For i = 1 To 10232
    If Sheets("Sheet1").Cells(i, "A").Value = InputCell Then
    Sheets("Sheet1").Cells(i, 1).EntireRow.Copy Sheets("Sheet2").Cells(j, 1)
    j = j + 1
    End If
Next i

Answer 1

數據如下：

在Sheet1 中，運行這個：

Sub KopyKat()
    Dim i As Long, j As Long
    j = 1
    For i = 1 To 21
        If Sheets("Sheet1").Cells(i, "V").Value > 0 Then
            Sheets("Sheet1").Cells(i, 1).EntireRow.Copy Sheets("Sheet2").Cells(j, 1)
            j = j + 1
        End If
    Next i
End Sub

將在Sheet2中生成：