- 題名・名前・本文は必ず入力してください。
- 題名は、できれば具体的な本文内容がイメージできるものにしてください。
- スパムよけのため、本文中に句読点記号が含まれていない場合にはエラーとなります。 「,」「.」ではなく「、」「。」を使ってください。
- [バグ][要望][質問][済][未] の分類は管理人が後から勝手に付加しています。 書き込み時は意識する必要はありません。
[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に相当する列番号」「○を出力する列番号」を順に入力してください。
期待どおりに動くでしょうか。
よろしくお願いいたします。