虽然ID是适合排版的,我觉得你这个作品集可以用AI或者CD都可以的。用VBA代码,在模块中黏贴下面代码,然后运行
Public
Sub
删除()
Dim
myrange1
As
Range
Dim
myrange2
As
Range
Dim
mycell
As
Range
Dim
ws
As
Worksheet
Dim
i
As
Long
With
Worksheets
Set
myrange1
=
Item(1)Range("A1")CurrentRegionColumns(1)
Set
myrange2
=
Item(2)Range("A1")CurrentRegionColumns(1)
Set
ws
=
Add(after:=Item(Count))
End
With
i
=
0
For
Each
mycell
In
myrange1Cells
If
WorksheetFunctionCountIf(myrange2,
mycellValue)
=
0
Then
i
=
i
+
1
mycellEntireRowCopy
wsCells(i,
1)
End
If
Next
Set
myrange1
=
Nothing
Set
myrange2
=
Nothing
Set
mycell
=
Nothing
Set
ws
=
Nothing
End
Sub
它会生成一个新的表,里面是表1里剩下的与表2不同的数据,然后把表2和表3合并就可以啦。
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)