script spd
　　property allData : {} –Numbersから取得したデータをストアしておく
　　property all2DData : {} –取得したデータを2D Arrayに変換した際にデータをストアしておく
end script

set (allData of spd) to {}
set (all2DData of spd) to {}

set dataWidth to 2

tell application "Numbers"
　　tell front document
　　　　set aList to every sheet
　　　　
　　　　repeat with i in aList
　　　　　　tell i
　　　　　　　　tell table 1
　　　　　　　　　　–テーブル中のセルの値をすべて取得（1D Listで帰ってくる）
　　　　　　　　　　set aList to value of every cell
　　　　　　　　　　
　　　　　　　　　　–1D ListをSweep（missing valueの入っているアイテムを削除）
　　　　　　　　　　set bList to sweep1DList(aList) of me
　　　　　　　　　　
　　　　　　　　　　–取得してSweepしたデータを連結
　　　　　　　　　　set (allData of spd) to (allData of spd) & (bList as list)
　　　　　　　　end tell
　　　　　　end tell
　　　　end repeat
　　　　
　　end tell
end tell

–1D Listを2D Listに変換
set (all2DData of spd) to conv1DListTo2DList((allData of spd), dataWidth) of me

–まとめたデータをCSVファイルとして書き出し
set aPath to ((path to desktop) as string) & (do shell script "uuidgen") & ".csv"
saveAsCSV((all2DData of spd), aPath) of me

do shell script "sync" –SSDで処理している場合には必要ないが、、、
set anAlias to aPath as alias

–書き出したCSVファイルをNumbersでオープン
tell application "Numbers"
　　open anAlias
　　activate
end tell

on sweep1DList(aList)
　　load framework
　　return (current application’s SMSForder’s arrayByDeletingBlanksIn:aList) as list
end sweep1DList

on conv1DListTo2DList(aList, groupingNum)
　　load framework
　　return (current application’s SMSForder’s subarraysFrom:aList groupedBy:groupingNum |error|:(missing value)) as list
end conv1DListTo2DList

–2D List to CSV file
on saveAsCSV(aList, aPath)
　　set crlfChar to (string id 13) & (string id 10)
　　set LF to (string id 10)
　　set wholeText to ""
　　
　　repeat with i in aList
　　　　set newLine to {}
　　　　
　　　　–Sanitize (Double Quote)
　　　　repeat with ii in i
　　　　　　set jj to ii as text
　　　　　　set kk to repChar(jj, string id 34, (string id 34) & (string id 34)) of me –Escape Double Quote
　　　　　　set the end of newLine to kk
　　　　end repeat
　　　　
　　　　–Change Delimiter
　　　　set aLineText to ""
　　　　set curDelim to AppleScript’s text item delimiters
　　　　set AppleScript’s text item delimiters to "＼",＼""
　　　　set aLineList to newLine as text
　　　　set AppleScript’s text item delimiters to curDelim
　　　　
　　　　set aLineText to repChar(aLineList, return, "") of me –delete return
　　　　set aLineText to repChar(aLineText, LF, "") of me –delete lf
　　　　
　　　　set wholeText to wholeText & "＼"" & aLineText & "＼"" & crlfChar –line terminator: CR＋LF
　　end repeat
　　
　　if (aPath as string) does not end with ".csv" then
　　　　set bPath to aPath & ".csv" as Unicode text
　　else
　　　　set bPath to aPath as Unicode text
　　end if
　　
　　writeToFile(wholeText, bPath, false) of me
　　
end saveAsCSV

on writeToFile(this_data, target_file, append_data)
　　tell current application
　　　　try
　　　　　　set the target_file to the target_file as text
　　　　　　set the open_target_file to open for access file target_file with write permission
　　　　　　if append_data is false then set eof of the open_target_file to 0
　　　　　　write this_data to the open_target_file starting at eof
　　　　　　close access the open_target_file
　　　　　　return true
　　　　on error error_message
　　　　　　try
　　　　　　　　close access file target_file
　　　　　　end try
　　　　　　return error_message
　　　　end try
　　end tell
end writeToFile

set tCount to getTableCount() of me

repeat with tableID from 1 to tCount
　　
　　–Numbersからデータを取得する
　　set aList to getDataFromNumbersDoc(tableID) of me
　　if aList = false then error "No Data in table " & (tableID as string)
　　
　　–Numbersの対象の表の情報を取得
　　set aWidth to getColumnCount(tableID) of me
　　set aHeaderCount to getHeaderCount(tableID) of me
　　set aFooterCount to getFooterCount(tableID) of me
　　
　　–Numbersから取得した2D Listのデータからデータの末尾を見つける
　　set aDataRowCount to findDataEnd(aWidth, aHeaderCount, aFooterCount, aList) of me
　　
　　tell application "Numbers"
　　　　tell front document
　　　　　　tell active sheet
　　　　　　　　tell table tableID
　　　　　　　　　　set row count to aDataRowCount
　　　　　　　　end tell
　　　　　　end tell
　　　　end tell
　　end tell
　　
end repeat

–Numbersでオープン中の書類の選択中のシートの表1からデータを取得して2D Listに
on getDataFromNumbersDoc(tableNum as integer)
　　
　　load framework
　　
　　tell application "Numbers"
　　　　if (count every document) = 0 then return false
　　　　
　　　　tell front document
　　　　　　if (count every sheet) = 0 then return false
　　　　　　
　　　　　　tell active sheet
　　　　　　　　tell table tableNum
　　　　　　　　　　set colCount to column count
　　　　　　　　　　set rowCount to row count
　　　　　　　　　　set headerCount to header row count
　　　　　　　　　　set footerCount to footer row count
　　　　　　　　　　
　　　　　　　　　　set dList to value of every cell of cell range
　　　　　　　　end tell
　　　　　　end tell
　　　　　　
　　　　end tell
　　end tell
　　
　　–Convert 1D List to 2D List
　　set bList to (current application’s SMSForder’s subarraysFrom:dList groupedBy:colCount |error|:(missing value)) as list
　　set sItem to 1 + headerCount
　　set eItem to rowCount – footerCount
　　set cList to items sItem thru eItem of bList
　　
　　return cList
　　
end getDataFromNumbersDoc

on getTableCount()
　　tell application "Numbers"
　　　　set dCount to count every document
　　　　if dCount = 0 then error "Numbers: There is No Document"
　　　　
　　　　tell front document
　　　　　　tell active sheet
　　　　　　　　return (count every table)
　　　　　　end tell
　　　　end tell
　　end tell
end getTableCount

on getHeaderCount(tableID as integer)
　　tell application "Numbers"
　　　　tell front document
　　　　　　tell active sheet
　　　　　　　　tell table tableID
　　　　　　　　　　return (header row count)
　　　　　　　　end tell
　　　　　　end tell
　　　　end tell
　　end tell
end getHeaderCount

on getFooterCount(tableID as integer)
　　tell application "Numbers"
　　　　tell front document
　　　　　　tell active sheet
　　　　　　　　tell table tableID
　　　　　　　　　　return (footer row count)
　　　　　　　　end tell
　　　　　　end tell
　　　　end tell
　　end tell
end getFooterCount

on getColumnCount(tableID as integer)
　　tell application "Numbers"
　　　　tell front document
　　　　　　tell active sheet
　　　　　　　　tell table tableID
　　　　　　　　　　return (column count)
　　　　　　　　end tell
　　　　　　end tell
　　　　end tell
　　end tell
end getColumnCount

–Numbersから取得した2D Arrayのデータ末尾を見つける（ただし、高速化処理を一切していないのでデータ数が数千件を超えると遅くなる）
on findDataEnd(aWidth as integer, aHeaderCount as integer, aFooterCount as integer, aList as list)
　　set rAList to reverse of aList –get reverse order list
　　
　　set anItem to {}
　　repeat aWidth times
　　　　set the end of anItem to missing value
　　end repeat
　　
　　set aCount to length of aList
　　set hitF to false
　　
　　repeat with i in rAList
　　　　set j to contents of i
　　　　if j is not equal to anItem then
　　　　　　set hitF to true
　　　　　　exit repeat
　　　　end if
　　　　set aCount to aCount – 1
　　end repeat
　　
　　if hitF = false then return false –すべて空（missing value）だった場合には処理打ち切り
　　
　　return aCount + aHeaderCount + aFooterCount
end findDataEnd

property NSCountedSet : a reference to current application’s NSCountedSet

script spd
　　property uniqList : {}
end script

set (uniqList of spd) to {}

tell application "Numbers"
　　tell front document
　　　　tell active sheet
　　　　　　try
　　　　　　　　set theTable to first table whose class of selection range is range
　　　　　　on error
　　　　　　　　display notification "Numbers: There is no selection"
　　　　　　　　return
　　　　　　end try
　　　　　　
　　　　　　tell theTable
　　　　　　　　set (uniqList of spd) to value of cells of selection range
　　　　　　end tell
　　　　end tell
　　end tell
end tell

if (uniqList of spd) = {} then
　　display notification "Numbers: There is no selection"
　　return
end if

set aRes to returnDuplicatesOnly(uniqList of spd) of me
if aRes is not equal to {} then
　　choose from list aRes with prompt "Duplicated Data:"
else
　　display notification "No Duplicated Data"
end if

–1D Listから重複項目のみを抽出して返す
on returnDuplicatesOnly(aList as list)
　　set aSet to NSCountedSet’s alloc()’s initWithArray:aList
　　set bList to (aSet’s allObjects()) as list
　　
　　set dupList to {}
　　repeat with i in bList
　　　　set aRes to (aSet’s countForObject:i)
　　　　if aRes > 1 then
　　　　　　set the end of dupList to (contents of i)
　　　　end if
　　end repeat
　　
　　return dupList
end returnDuplicatesOnly