如果符合條件，則復制並粘貼到特定行

Question

我的代碼遇到了麻煩：事情就是這樣，如果列H =“ Yes”，則將單元格內容從行“ A”復制到行“ A”的另一張紙上，但要從第一行開始。

問題是：我想將內容粘貼到單元格“ A7”中標頭之后的第一行，而不粘貼到滿足條件的相應行中。 另外，如果有一種方法可以避免在復制粘貼后將行之間的空白單元格組織起來。

Option Explicit

Private Sub CommandButton1_Click()

'submacro which copies data over columns
    Dim lastRow As Long, i As Long
    'determine last row in column H
    lastRow = Cells(Rows.Count, "H").End(xlUp).Row
    For i = 1 To lastRow


        'if Yes in H then copy from cell B in OFCE to cell B in DASHBOARD in    current row
        If Worksheets("OFCE").Cells(i, "H").Value = "Yes" Then
        'To paste from Dashboard tab to OFCE tab
            Worksheets("Dashboard").Cells(i, "A").Value = Worksheets("OFCE").Cells(i, "A").Value
        End If
    Next


End Sub

之后，我不僅要轉移一行，還要轉移許多其他行。

Answer 1

我不確定我是否完全了解您的需求，但這可能會有所幫助：

Option Explicit

Private Sub CommandButton1_Click()

        Dim LastRowH As Long, i As Long, LastRowA As Long

LastRowH = Worksheets("OFCE").Cells(Worksheets("OFCE").Rows.Count, "H").End(xlUp).Row

For i = 1 To LastRowH

    If Worksheets("OFCE").Cells(i, "H").Value = "Yes" Then

        LastRowH = Worksheets("Dashboard").Cells(Worksheets("Dashboard").Rows.Count, "A").End(xlUp).Row

        Worksheets("Dashboard").Cells(LastRowH + 1, 1).Value = Worksheets("OFCE").Cells(i, 1).Value

    End If

Next i

End Sub

Answer 2

按鈕更新會從您@ Error1004處運行代碼，但現在我不僅需要傳輸，而且還需要檢查和更新傳輸的數據，而無需重復輸入，而只需添加符合條件的新數據即可，但是它將再次復制到以下行中您可以在下面的圖片中從OFCE表格中看到數據的來源，在第二張圖像中可以復制和粘貼數據。

第一個標簽

重復數據的第二個標簽