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 + "件置換しました");