1.需求：比较两个sheet列的值，sheet1有的，sheet2没有的，标记为A，并把没有的，复制到sheet3.

2. 代码

Sub 将sheet1中有sheet2也有的加标记A()
Sheet1.Range("D2:D1000000").ClearContents
Dim Sheet1数据行数, Sheet2数据行数
  Sheet1数据行数 = 11
  Sheet2数据行数 = 8
 
  For I = 2 To Sheet1数据行数  'Worksheets("Sheet1").Cells(行,列) 和 Sheet1.Cells(行,列)等效
     For j = 2 To Sheet2数据行数
         If Worksheets("Sheet1").Cells(I, 3) = Worksheets("Sheet2").Cells(j, 3) Then   '两表的比较列——条件
            Worksheets("Sheet1").Cells(I, 4) = "A"  '在标志列加标志
            Exit For
         End If
     Next
  Next

End Sub


Sub Sheet1中有而Sheet2中没有拷贝到sheet3()
Dim a As Integer
a = 2
Dim Sheet1数据行数
  Sheet1数据行数 = 11

 
  For I = 2 To Sheet1数据行数  'Worksheets("Sheet1").Cells(行,列) 和 Sheet1.Cells(行,列)等效
 
         If Worksheets("Sheet1").Cells(I, 4).Value <> "A" Then   '两表的比较列——条件
            Worksheets("Sheet3").Cells(a, 1).Value = Worksheets("Sheet1").Cells(I, 1).Value
            Worksheets("Sheet3").Cells(a, 2).Value = Worksheets("Sheet1").Cells(I, 2).Value
            Worksheets("Sheet3").Cells(a, 3).Value = Worksheets("Sheet1").Cells(I, 3).Value
            Worksheets("Sheet3").Cells(a, 4).Value = Worksheets("Sheet1").Cells(I, 4).Value
            a = a + 1
         End If

  Next

End Sub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39

3.效果