スプレッドシートでリストと一致した文字があったら抽出

Question

初心者のため、説明不足の箇所ありましたら
ご指摘ください。

◎やりたい事

スプレッドシートで

◎「ワード」シート
A列:ワードリスト
B列:A列のワードに一致する文字列があったときに表示するメッセージ

◎「文章貼り付けシート」
A列:文章を貼り付け

上記のような2つなシートがあるのですが、
・「文章貼り付けシート」A列に文を貼り付け、NGワードリストに一致する文字があれば、その文字をB列に抽出
・1つのセルに複数の一致がある場合も全て抽出(B列以降に1つずつ)
・抽出された文字列に対してエラーメッセージを表示(可能であればそのセルのメモやコメントに表示)

上記のようなことはスプレッドシートで完結できますでしょう。
GASなのか、REGEXEXTRACTという関数で出来そうなのですが調べましたがわからず挫折しました。。
アドバイスお願い致します。

Answer 1

function onEdit(e) {
  var targetSheet = e.source.getActiveSheet();
  var targetColumn = e.source.getActiveRange().getColumn();
  var targetRow = e.source.getActiveRange().getRow();
  
  if (targetSheet.getName() !== '文章貼り付け' || targetColumn !== 1 || targetRow === 1) {
    return;
  }

  var wordSheet = e.source.getSheetByName('ワード');
  if (wordSheet === null) {
    return;
  }

  var clearRange = targetSheet.getRange(targetRow, 2, 1, targetSheet.getLastColumn() - 1);
  clearRange.clear();
  clearRange.clearNote();
  
  var targetValue = e.value;
  var lastRow = wordSheet.getLastRow();
  var nextCol = 2;

  for (var wordRow = 2; wordRow <= lastRow; wordRow++) {
    var word = wordSheet.getRange(wordRow, 1).getValue()
    var memo = wordSheet.getRange(wordRow, 2).getValue()

    if (targetValue.indexOf(word) >= 0) {
      var targetCell = targetSheet.getRange(targetRow, nextCol);
      targetCell.setValue(word);
      targetCell.setNote(memo);
      nextCol++;
    }
  }
}

Comments

[Daregada]

わかりやすさ優先のコードで、このままではとても動作が遅いので、実際に利用するなら「ワードのリストをあらかじめ読み込んでおく」といった工夫が必要でしょう。