Option
Explicit
Sub
Test()
Dim
rng
As
Range, c
As
Range
On
Error
Resume
Next
ActiveSheet.ListObjects(
"abstract"
).Delete
On
Error
GoTo
0
Range(
"C:C"
).Clear
For
Each
c
In
Range(
"A1:A20, A23:A50, A55:A60"
).Cells
If
Not
IsEmpty(c)
Then
If
Range(
"C:C"
).Find(c.Value)
Is
Nothing
Then
_
c.Copy Destination:=Range(
"C"
& Rows.Count).
End
(xlUp).Offset(1)
End
If
Next
c
Set
rng = Range(Range(
"C1"
), Range(
"C"
& Rows.Count).
End
(xlUp))
ActiveSheet.ListObjects.Add(xlSrcRange, Range(rng.Address), , xlNo, Range(
"C1"
)).Name =
"abstract"
ActiveSheet.ListObjects(
"abstract"
).Range.AutoFilter Field:=1, Criteria1:=
">0"
, Operator:=xlAnd
End
Sub