c = int(InputBox("挿入する列を入力してください。"));

for (y = 1; y <= Bottom; y++) {
  s = [1,y];
  p = pos(s, "カラー：");
  if (p > 0) {
    [1,y] = left(s, p - 1) + [c,y] + mid(s, p);
    [c,y] = "";
  }
}