Question

我做了2张相比较，突出了差异。在我的vb /宏代码中，我将丢失的ID复制到新工作表中。

以下是代码片段：

If IsError(int_row_id) Then
        'ID missing 
        id.EntireRow.Copy
        missing.PasteSpecial xlPasteValuesAndNumberFormats
        Application.CutCopyMode = False
        Set missing = missing.Offset(RowOffset:=1)

因此，如果ID丢失，则复制整行并将其粘贴到缺失的工作表中。我想要做的是在粘贴数据后的下一个单元格中的这一行数据的末尾添加短语“从新数据中丢失”

任何建议都将不胜感激！

Answer 1

If IsError(int_row_id) Then
   With Sheets("missing")
        last_row = .Cells(Rows.Count, 1).End(xlUp).Row
        id.EntireRow.Copy Destination:=.Range("A"&last_row+1)
        last_column = .Cells(last_row+1, .Columns.Count).End(xlToLeft).Column
        .Cells(last_row+1, last_column+1) = "Missing from New Data"
   End With

在数据行

1 个答案: