A minimalist script approach could be as follows:
set theChars to {"A", "B", "C", "D", "E", "F", "G", "H", "I", "J", "K", "L", "M", "N", "O", "P", "Q", "R", "S", "T", "U", "V", "W", "X", "Y", "Z"}
set listSize to length of theChars
set outSeq to {}
set i to 0
repeat until i is 1000
set pick1 to (random number from 1 to listSize)
set pick2 to (random number from 1 to listSize)
set pick3 to (random number from 1 to listSize)
set pick4 to (random number from 1 to listSize)
tell theChars to set theSeq to item pick1 & item pick2 & item pick3 & item pick4
if theSeq is not in outSeq then
set end of outSeq to theSeq
set i to i + 1
end if
end repeat
set text item delimiters to return
set outSeq to outSeq as text
set the clipboard to outSeq
return outSeq -- optional line to view in Results pane
- Copy-paste into Script Editor (in Applications > Utilities) -- be sure to scroll right to get the whole script
- Make sure Script Editor is listed and checked at System Preferences > Security & Privacy > Privacy > Accessibility.
- Click the triangle "run" button.
- Click once in a cell in Numbers and command-v or Edit > Paste and Match Style to paste.
SG