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;
}

x1 = int(InputBox("検索する列番号を入力してください。"));
if (x1 == 0) { return; }

v1 = InputBoxMultiLine("検索する値を改行区切りで入力してください。");
if (v1 == "") { return; }

x2 = int(InputBox("設定する列番号を入力してください。"));
if (x1 == 0) { return; }

v2 = InputBoxMultiLine("設定する値を入力してください。");
if (v2 == "") { return; }

for (y = 1; y <= Bottom; y++) {
  if (find([x1,y], v1)) {
    [x2,y] = v2;
  }
}