[あすかぜ・ねっと]あすかぜ・ねっと自作ソフトCassava > サポート掲示板

Cassava Editor サポート掲示板

スレッド一覧に戻る
題名:
名前:
この名前を次回も使用する


スレッド一覧に戻る返信

[432] 重複

ゆゆ [2018/03/13 18:19:22]

重複するデータがある際に、マークをつけたく、
以前のスレッドに掲載があった、以下のマクロを使用してみたのですが、うまく動作しませんでした。

Excelでいうと「=IF(COUNTIF($AI$2:$AI$201,AH2),"○","")」のような感じで、
特定の文字が特定の列に含まれていた場合に、マークを付けたいと考えております。

当方、マクロ等の知識があまりないのですが、
どうぞよろしくお願いいたします。



//// マクロここから ////

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

//// マクロここまで ////

Re: [432] 重複

あすかぜ [2018/03/13 20:32:31]

貼り付けていただいたマクロは、行全体の重複を調べる(1列目から一番右の列まですべて同じ内容の行を探す)ものですね。

「=IF(COUNTIF($AI$2:$AI$201,AH2),"○","")」に近くなるようなマクロを書いてみました。
https://www.asukaze.net/soft/cassava/macro/asukaze/bbs432_20180313.cms
マクロを実行すると列番号を 3 回聞かれますので、「AHに相当する列番号」「AIに相当する列番号」「○を出力する列番号」を順に入力してください。

期待どおりに動くでしょうか。
よろしくお願いいたします。

スレッド一覧に戻る返信