// 結果を表示する列
result = SelRight + 1;

// 選択範囲を上から順に調べる
for (y1 = SelTop; y1 <= SelBottom; y1++) {
  // すでにマーク済みなら再検索しない
  if([result,y1] != "○"){
    // 重複かどうか調べる対象の行
    for(y2 = y1 + 1; y2 <= SelBottom; y2++){
      // 選択範囲を左から右に１つずつ比較。
      hit = true;
      for (x = SelLeft; x <= SelRight && hit; x++){
        // 1 箇所でも値が異なるセルがあれば重複ではない
        if([x,y1] != [x,y2]){
          hit = false;
        }
      }
      // 重複ならマークをつける
      if (hit) {
        [result,y1] = "○";
        [result,y2] = "○";
      }
    }
  }
}