-
Notifications
You must be signed in to change notification settings - Fork 1
/
unique-records-only.bas
33 lines (23 loc) · 1012 Bytes
/
unique-records-only.bas
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
option explicit
sub main() ' {
dim srcRange as range
set srcRange = testData
srcRange.advancedFilter _
action := xlFilterCopy, _
copyToRange := cells(3,5) , _
unique := true
activeSheet.usedRange.columns.autoFit
end sub ' }
function testData() as range' {
dim r as long : r = 3
range(cells(r,2), cells(r,3)).value = array("Foo", 1) : r = r+1
range(cells(r,2), cells(r,3)).value = array("Foo", 2) : r = r+1
range(cells(r,2), cells(r,3)).value = array("Bar", 3) : r = r+1
range(cells(r,2), cells(r,3)).value = array("Foo", 2) : r = r+1
range(cells(r,2), cells(r,3)).value = array("Baz", 3) : r = r+1
range(cells(r,2), cells(r,3)).value = array("Baz", 2) : r = r+1
range(cells(r,2), cells(r,3)).value = array("Bar", 2) : r = r+1
range(cells(r,2), cells(r,3)).value = array("Foo", 2) : r = r+1
range(cells(r,2), cells(r,3)).value = array("Bar", 3)
set testData = range(cells(3,2), cells(r,3))
end function ' }