Numbersの選択範囲で空欄でないセルに指定の文字を入れる

Numbersの表を書き換えるためのAppleScriptです。表の選択範囲のうち、空欄でないセルに指定の文字（「●」）を入れます。

電子書籍掲載の「表」を作るのに、割と必要なものです。

「表」をまとめる段階では、

のように、生データをそのままセルに記載しておきますが、場所の利用効率でいえばそのまま生データで掲載していると無駄があります。

そこで、空欄ではないセルについては、「●」などの記号を記入することで、コンパクトな「表」に作り変える作業が発生します。本AppleScriptはそれを自動化したものです。

AppleScript名：選択範囲で空欄でないセルに指定の文字を入れる.scpt

—
–　　Created by: Takaaki Naganoya
–　　Created on: 2024/10/17
—
–　　Copyright © 2024 Piyomaru Software, All Rights Reserved
—

script spd
　　property uniqList : {}
end script

set strMark 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 cells of selection range
　　　　　　　　repeat with i in (uniqList of spd)
　　　　　　　　　　set j to contents of i
　　　　　　　　　　set tmpVal to value of j
　　　　　　　　　　if tmpVal is not equal to missing value then
　　　　　　　　　　　　set value of j to strMark
　　　　　　　　　　end if
　　　　　　　　end repeat
　　　　　　end tell
　　　　end tell
　　end tell
end tell