excel - 如何重新编写我的 VBA 以将复制的行粘贴到具有匹配值的单独工作表中的行上？

Question

我有一个 VBA 代码块，我想稍微修改一下。请参阅下面我所指的代码块。我将进一步解释。

If prev_row <> 0 And Worksheets("Block Chain").Range(change_type_column & last_row).Value = "New" Then
  For curColumn = 1 To last_col
    column_title = Worksheets("Block Chain").Cells(1, curColumn).Value
    If column_title <> "change type" Then
      If Worksheets("Block Chain").Cells(last_row, curColumn).Value <> Worksheets("Block Chain").Cells(prev_row, curColumn).Value Then
        first_empty_row = Worksheets(column_title).Cells(Rows.Count, 1).End(xlUp).Row + 1
        Worksheets("Block Chain").Range(last_row & ":" & last_row).Copy Worksheets(column_title).Range(first_empty_row & ":" & first_empty_row)
      End If
    End If
  Next curColumn
End If

我在这里指的代码是:

Worksheets("Block Chain").Range(last_row & ":" & last_row).Copy Worksheets(column_title).Range(first_empty_row & ":" & first_empty_row)

目前，此行从一个工作表(区 block 链)复制一行并将其粘贴到当前存储在变量 column_title 中的任何工作表的最后一行。 .
现在，我想修改此代码以执行以下操作:

我希望它从 Block Chain 复制行，它已经这样做了

我希望它在 column_title 中查找行在列 A 中具有匹配值的工作表

最后，我希望代码为 粘贴 复制的行 超过 位于步骤 2 中的行

如果您知道如何重写此代码以执行我上面指定的操作，我将非常感谢您的帮助。
非常感谢。

Answer 1

下面的代码声明了一个名为 foundCell 的范围变量。然后，它尝试将该范围变量绑定(bind)到 column_title 表的 A 列中的单元格，该单元格的值与“ block 链”表中的“last_row”行的 A 列中的单元格具有相同的值。如果未找到该值，则代码停止。

Dim foundCell As Range
If prev_row <> 0 And Worksheets("Block Chain").Range(change_type_column & last_row).Value = "New" Then
  For curColumn = 1 To last_col
    column_title = Worksheets("Block Chain").Cells(1, curColumn).Value
    If column_title <> "change type" Then
      If Worksheets("Block Chain").Cells(last_row, curColumn).Value <> Worksheets("Block Chain").Cells(prev_row, curColumn).Value Then
        first_empty_row = Worksheets(column_title).Cells(Rows.Count, 1).End(xlUp).row + 1
        Set foundCell = Worksheets(column_title).Columns(1).Find(Worksheets("Block Chain").Rows(last_row).Cells(1), , , xlWhole)
        If foundCell Is Nothing Then
            Stop
            ' the value from column a in block chain worksheet was not found in column a of the column_title sheet.  Need to decide what to do
        Else
            Worksheets("Block Chain").Range(last_row & ":" & last_row).Copy foundCell
        End If
      End If
    End If
  Next curColumn
End If