a = InputBoxMultiLine("検索文字列を入力してください。");
if (a == "") {
  return;
}
b = InputBoxMultiLine("置換文字列を入力してください。");

count = 0;
for (y = 1; y <= Bottom; y++) {
  for (x = 1; x <= Right; x++) {
    r = replace([x,y], a, b);
    if (r != [x,y]) {
      [x,y] = r;
      count++;
    }
  }
}
MessageBox(count + "件置換しました");