tell application "Keynote"
　　tell front document
　　　　tell current slide
　　　　　　set tCount to count every table
　　　　　　if tCount < 2 then
　　　　　　　　display dialog "There is no tables to merge" buttons {"OK"} default button 1
　　　　　　　　return
　　　　　　end if
　　　　　　
　　　　　　set tList to every table
　　　　　　set tInfoList to {}
　　　　　　repeat with i in tList
　　　　　　　　set {tPosX, tPosY} to position of i
　　　　　　　　set tName to name of i
　　　　　　　　set the end of tInfoList to {tName, tPosX, tPosY}
　　　　　　end repeat
　　　　end tell
　　end tell
end tell

–表のY座標、X座標で昇順ソート（上→下、左→右の順で並べる）
set sortedList to sort2DList(tInfoList, {3, 2}, {true, true}) of me

–表リストから名前だけ抽出
set tmpTList to retSpecifiedItemFrom2DList({1}, sortedList) of me

–マージ対象のテーブルを名称で選択
set tRes to choose from list tmpTList with title "Select Merge Tables" with prompt "Select merge target two table names " & return & "(Sorted Up-> Down, Left->Right)" with multiple selections allowed
if length of tRes is not equal to 2 then
　　display dialog "Select *two* tables"
　　return
end if

–set mDirection to contents of (choose from list {"Vertival", "Horizontal"} with title "Select Merge Direction" without empty selection allowed)
set mDirection to "Horizontal"

set f1Table to contents of item 1 of tRes –Left (Original)
set f2Table to contents of item 2 of tRes –Right (merged)

tell application "Keynote"
　　tell front document
　　　　tell current slide
　　　　　　–マージ先の表のサイズを取得（幅、高さ）
　　　　　　tell table f1Table
　　　　　　　　set f1Width to column count
　　　　　　　　set f1Height to row count
　　　　　　end tell
　　　　　　
　　　　　　–マージされるの表のサイズを取得（幅、高さ、データを2D Listで）
　　　　　　tell table f2Table
　　　　　　　　set f2Width to column count
　　　　　　　　set f2Height to row count
　　　　　　　　set f2DatList to {}
　　　　　　　　repeat with i from 1 to f2Height
　　　　　　　　　　tell row i
　　　　　　　　　　　　set aRowDat to value of every cell
　　　　　　　　　　end tell
　　　　　　　　　　set the end of f2DatList to aRowDat
　　　　　　　　end repeat
　　　　　　end tell
　　　　　　
　　　　　　–マージ先の表のサイズを変更して新規追加したセルにデータを埋める
　　　　　　tell table f1Table
　　　　　　　　set column count to column count + f2Width –表リサイズ
　　　　　　　　
　　　　　　　　set rowCount to 1
　　　　　　　　repeat with i in f2DatList
　　　　　　　　　　set colCount to (f1Width + 1)
　　　　　　　　　　
　　　　　　　　　　tell row rowCount
　　　　　　　　　　　　repeat with ii in i
　　　　　　　　　　　　　　set jj to contents of ii
　　　　　　　　　　　　　　
　　　　　　　　　　　　　　if jj is not equal to missing value then –空白セルを処理スキップ
　　　　　　　　　　　　　　　　tell cell colCount
　　　　　　　　　　　　　　　　　　set value to jj
　　　　　　　　　　　　　　　　end tell
　　　　　　　　　　　　　　end if
　　　　　　　　　　　　　　
　　　　　　　　　　　　　　set colCount to colCount + 1
　　　　　　　　　　　　end repeat
　　　　　　　　　　end tell
　　　　　　　　　　
　　　　　　　　　　set rowCount to rowCount + 1
　　　　　　　　end repeat
　　　　　　end tell
　　　　　　
　　　　　　delete table f2Table
　　　　end tell
　　end tell
end tell

return f2DatList

–2D Listをソート
on sort2DList(aList as list, sortIndexes as list, sortOrders as list)
　　load framework
　　–index値をAS流（アイテムが1はじまり）からCocoa流（アイテムが0はじまり）に変換
　　set newIndex to {}
　　repeat with i in sortIndexes
　　　　set j to contents of i
　　　　set j to j – 1
　　　　set the end of newIndex to j
　　end repeat
　　
　　–Sort TypeのListを作成（あえて外部から指定する内容でもない）
　　set sortTypes to {}
　　repeat (length of sortIndexes) times
　　　　set the end of sortTypes to "compare:"
　　end repeat
　　
　　set resList to (current application’s SMSForder’s subarraysIn:(aList) sortedByIndexes:newIndex ascending:sortOrders sortTypes:sortTypes |error|:(missing value)) as list
　　return resList
end sort2DList

–指定2Dリストから、各要素の指定アイテム目を取り出して（1D Listで）返す
on retSpecifiedItemFrom2DList(aList as list, bList as list)
　　set newList to {}
　　repeat with i in aList
　　　　repeat with ii in bList
　　　　　　set j to contents of ii
　　　　　　set a to contents of (item i of j)
　　　　　　set the end of newList to a
　　　　end repeat
　　end repeat
　　return newList
end retSpecifiedItemFrom2DList