我想做的事？
我想比较两张工作表，如果工作表 1 中的行为空，则从工作表（项目）中复制同一行。
我怎样才能做到这一点？
我的目标是将 Colomn A 的新条目从复制sheet("Project")到sheet1但仅复制新条目！
例如在第一张A1:A20已经不是空白的。在sheet("project")，A1:A27不是空白。
我想复制最后 7 个单元格。
我写了这样的代码，但没有奏效。
任何想法？我写的代码复制了所有的行。我想复制如果它们在 sheet1 中为空白的行，然后从工作表（项目）中复制这些行。
Sub CopyD()
Dim lst As Long
Sheets("Project").Select
范围（“A1：A10000”）。选择
Application.CutCopyMode = False
选择.复制
With Sheets("Sheet1")
lst = .Range("A" & Rows.Count).End(xlUp).Row + 1
.Range("A" & lst).PasteSpecial xlPasteColumnWidths
.Range("A" & lst).PasteSpecial xlPasteValues
End With
End Sub
Sub CopyNewRows
Dim x as long
dim y as long
with worksheets("Sheet1")
x = .cells(.rows.count,1).end(xlup).row 'last occupied row in col A
end with
with worksheets("Project")
y =.cells(.rows.count,1).end(xlup).row 'last occupied row in source sheet
.range(.cells(x+1,1),.cells(y,1)).entirerow.copy worksheets("sheet1").cells(x+1,1)
end with
end sub
这假设 A 列总是为每个被占用的行填充
本文收集自互联网，转载请注明来源。
如有侵权，请联系[email protected] 删除。
我来说两句