Question

我想做什么？

我想比较两张纸，如果sheet1中的行为空，则从sheet（项目）复制相同的行。

我该怎么做？

我的目标是将Colomn A的新条目从sheet("Project")复制到sheet1，但只复制新条目！

例如，第一张A1:A20已经空白。在sheet("project")中，A1:A27不是空白。

我想要复制最后7个单元格。

我写了这样的代码，但没有用。

有什么想法吗？我写的代码复制了所有行。我想复制那些在sheet1中为空的行，然后从sheet（项目）中复制这些行。

Sub CopyD()

Dim lst As Long

Sheets("Project").Select

范围。（＆＃34; A1：A10000＆＃34）选择

Application.CutCopyMode = False

Selection.Copy

           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

Answer 1

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列

如果单元格仅为空白，如何从其他工作表中复制单元格

1 个答案: