如何避免将重复范围从一个工作表粘贴到另一个工作表

Question

我想将名为 "copySheet" 的作品sheet 中的数据复制到名为 "pasteSheet" 的 sheet 中的第一个空白行。

如果 copySheet 的单元格 A2 中的数据在 pasteSheet 的第一列中，则提供错误消息"data is already existed and avoid pasting"否则将复制范围从 copySheet 粘贴到 pasteSheet。

我已经编写了如下代码，但是，IF 循环无法正常工作。 A2 单元格中的值在 pasteSheet 的第一列中找到，但代码忽略循环并再次粘贴范围。

Sub Macro1()
'
' Macro1 Macro
'
Dim copySheet As Worksheet
Dim pasteSheet As Worksheet
Set copySheet = Worksheets("Sheet1")
Set pasteSheet = Worksheets("Sheet2")

copySheet.Columns("A:D").Select
Selection.ClearContents

ActiveSheet.Paste Destination:=copySheet.Range("A1")

Dim FoundRange As Range
Dim Search As String
Search = copySheet.Cells(2, 1).Select
Set FoundRange = pasteSheet.Columns(0, 1).Find(Search, LookIn:=xlValues, LookAt:=xlWhole)
If Foundcell Is Nothing Then
    Dim N As Long
    N = copySheet.Cells(1, 1).End(xlDown).Row
    Range("A2:E" & N).Select
    Selection.Copy
    pasteSheet.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues
Else
    MsgBox "Data Exists" & " data found at cell address " & Foundcell.Address
End If

Application.CutCopyMode = False
Application.ScreenUpdating = True

End Sub

Answer 1

试试这个。您的代码存在一些问题：

如上所述，您的 Columns 语法已关闭
您定义了 FoundRange 但随后引用了 FoundCell - 使用 Option Explicit 标记这些错误
avoid Select 尽可能

    Option Explicit

    Sub Macro1()

    Dim copySheet As Worksheet
    Dim pasteSheet As Worksheet

    Set copySheet = Worksheets("Sheet1")
    Set pasteSheet = Worksheets("Sheet2")

    With copySheet
        .Columns("A:D").ClearContents
        Dim FoundRange As Range
        Dim Search As String
        Search = .Cells(2, 1)
        Set FoundRange = pasteSheet.Columns(1).Find(Search, LookIn:=xlValues, LookAt:=xlWhole)
        If FoundRange Is Nothing Then
            Dim N As Long
            N = .Cells(Rows.Count, 1).End(xlUp).Row + 1
            .Range("A2:E" & N).Copy
            pasteSheet.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues
        Else
            MsgBox "Data Exists" & " data found at cell address " & FoundRange.Address
        End If
    End With

    End Sub

如何避免将重复范围从一个工作表粘贴到另一个工作表

How to avoid pasting duplicate Range from one worksheet to another

excel

vba

copy-paste

range