set clList to {}

tell application "Finder"
　　set wList to every window
　　–> {Finder window id 1775 of application "Finder", Finder window id 1612 of application "Finder", Finder window id 1740 of application "Finder", Finder window id 1641 of application "Finder", Finder window id 1630 of application "Finder", Finder window id 1618 of application "Finder", Finder window id 1599 of application "Finder", Finder window id 1592 of application "Finder", Finder window id 1586 of application "Finder", Finder window id 1580 of application "Finder", Finder window id 1575 of application "Finder", Finder window id 1569 of application "Finder", Finder window id 1563 of application "Finder"}
　　
　　set tList to (target of every window) as alias list
　　–> {alias "Macintosh HD:Users:me:Public:ドロップボックス:", alias "Macintosh HD:Users:me:Documents:AppleScript 12.0:", alias "Macintosh HD:Users:me:Public:ドロップボックス:", alias "Macintosh HD:Users:me:Public:ドロップボックス:", alias "Macintosh HD:Users:me:Public:ドロップボックス:", alias "Macintosh HD:Users:me:Public:ドロップボックス:", alias "Macintosh HD:Users:me:Public:ドロップボックス:", alias "Macintosh HD:Users:me:Public:ドロップボックス:", alias "Macintosh HD:Users:me:Public:ドロップボックス:", alias "Macintosh HD:Users:me:Public:ドロップボックス:", alias "Macintosh HD:Users:me:Public:ドロップボックス:", alias "Macintosh HD:Users:me:Public:ドロップボックス:", alias "Macintosh HD:Users:me:Public:ドロップボックス:"}
　　
　　–ターゲットフォルダをユニーク化
　　set bList to removeDuplicates(tList) of me
　　–> {alias "Macintosh HD:Users:me:Documents:AppleScript 12.0:", alias "Macintosh HD:Users:me:Public:ドロップボックス:"}
　　
　　–ユニーク化したターゲットでループ
　　repeat with i in bList
　　　　set j to (contents of i) as alias
　　　　set firstF to true
　　　　
　　　　–ウィンドウでループ
　　　　repeat with ii in wList
　　　　　　set jj to contents of ii
　　　　　　set tmpTarg to (target of jj) as alias
　　　　　　
　　　　　　if tmpTarg is equal to j then
　　　　　　　　–最初の１つ目のWindowだけ残す
　　　　　　　　if firstF = true then
　　　　　　　　　　set firstF to false
　　　　　　　　else
　　　　　　　　　　–２個目以降のWindowはクローズ対象リストに入れる
　　　　　　　　　　set the end of clList to jj
　　　　　　　　end if
　　　　　　end if
　　　　end repeat
　　end repeat
　　
　　–クローズ対象とされるFinder Windowを順次クローズ
　　repeat with i in clList
　　　　set j to contents of i
　　　　try
　　　　　　ignoring application responses
　　　　　　　　close j
　　　　　　end ignoring
　　　　end try
　　end repeat
end tell

on removeDuplicates(aList)
　　set newList to {}
　　repeat with i from 1 to (length of aList)
　　　　set anItem to item 1 of aList
　　　　set aList to rest of aList
　　　　if {anItem} is not in aList then set end of newList to anItem
　　end repeat
　　return newList
end removeDuplicates

tell application "Finder"
　　tell front window
　　　　set aTarg to target
　　end tell
　　set aList to (every Finder window) as list
　　repeat with num from 2 to count aList
　　　　set anItem to (aList)’s item num
　　　　if (anItem’s target is aTarg) then close anItem
　　end repeat
end tell