function find(str, keys) {
  while (keys != "") {
    p = pos(keys, "\n");
    if (p > 0) {
      key = left(keys, p - 1);
      keys = mid(keys, p + 1);
    } else {
      key = keys;
      keys = "";
    }

    if (key != "" && pos(str, key) > 0) {
      return true;
    }
  }
  return false;
}

keys = InputBoxMultiLine("抽出する語句を改行区切りで入力してください。");
if (keys == "") {
  return;
}

for (y = Bottom; y > 0; y--) {
  found = false;
  for (x = 1; x <= Right && !found; x++) {
    if (find([x,y], keys)) {
      found = true;
    }
  }
  if (!found) {
    DeleteRow(y);
  }
}
SaveAs();