[The Off]

Сделал вот так, он мне скопировал все как нужно, во время "написания" заметил фишку в том, что в одних excel таблицах столбцы обозначаются как 123456 а в других abcdef - это слияет на код ? например If filename1.Worksheets(1).[c:c].Find(c.Value) Is Nothing Then или же If filename1.Worksheets(1).[3:3].Find(c.Value) Is Nothing Then

Код:

Sub findnew()



     Set filename1 = GetObject("D:\newpens\at06.xls ")

     Set filename2 = GetObject("D:\newpens\at07.xls")
   
            
            For Each c In filename2.Worksheets(1).Columns(3).Cells
                If filename1.Worksheets(1).[c:c].Find(c.Value) Is Nothing Then
                
          filename2.Worksheets(1).Range("a" & c.Row).Copy Worksheets(1).Range("a" & Worksheets(1).Cells.Rows.Count).End(xlUp)(2)
          filename2.Worksheets(1).Range("b" & c.Row).Copy Worksheets(1).Range("b" & Worksheets(1).Cells.Rows.Count).End(xlUp)(2)
          filename2.Worksheets(1).Range("d" & c.Row).Copy Worksheets(1).Range("c" & Worksheets(1).Cells.Rows.Count).End(xlUp)(2)
          
             
                End If
                If IsEmpty(3) Then Exit For
            Next
    '    Worksheets(1).UsedRange.RemoveDuplicates Columns:=Array(1, 2, 3), Header:=xlYes
   Exit Sub

       Resume Next
End Sub