values = InputBoxMultiLine("削除するキーワードを改行区切りで入力してください"); if (values == "") { return; } for (y = Bottom; y >= 1; y--) { s = [x,y]; remaining = values; while (remaining != "") { p = pos(remaining, "\n"); if (p == 0) { value = remaining; remaining = ""; } else { value = left(remaining, p - 1); remaining = mid(remaining, p + 1); } s = replace(s, value, ""); } [x,y] = s; }