// SuffixRenban 2018.06.30 by あすかぜ // セル前半部分を無視して連番を作成します。 // 「ABC1」→「ABC2」→「ABC3」 // 「0001」→「0002」→「0003」 // など。 // 編集・再配布は自由です。 function StrInc(str){ if (str == "") { return "1"; } strleft = left(str, len(str) - 1); strlast = right(str, 1); if (strlast == "0") { // 最後の文字が "0" return strleft + "1"; // 1 にする } else if (strlast == "9") { // 最後の文字が "9" return StrInc(strleft) + "0"; // 0 にして、繰り上がり(再帰) } else if (int(strlast) == 0) { // 数値に変換して 0、つまりアルファベット return str + "1"; // 後ろに 1 をつける } else { // 最後の文字が "2"〜"8" return strleft + (int(strlast) + 1); // 数字に変換して 1 をたす } } for (y = SelTop + 1; y <= SelBottom; y++) { [x,y] = StrInc(str([x,y-1])); }