![[あすかぜ・ねっと]](/image/asukaze.png "あすかぜ・ねっと"){kind=small}
あすかぜ・ねっと[900] 指定した範囲の列を条件付きで結合するマクロ
こや [2025/04/03 15:48:13]
度々失礼します。
セル同士に半角スペースを挟んで結合するマクロを作ってみたのですが、以下の表記を、「追加する列が空白セルだった場合は実行しない」という条件をつけて、省略可した表記にすることはできますか？
あれこれ過去の投稿をさかのぼってみたりもしたのですが、教えていただけると助かります。よろしくお願いいたします。
x = 100;
for (y = 2; y <= Bottom; y++) {
[x,y] = [x,y] + " " + str([101,y]);
[x,y] = [x,y] + " " + str([102,y]);
[x,y] = [x,y] + " " + str([103,y]);
・
・
・
[x,y] = [x,y] + " " + str([200,y]);
}
Re: [900] 指定した範囲の列を条件付きで結合するマクロ
あすかぜ [2025/04/03 22:45:05]
次のようなマクロでどうでしょうか。
for (y = 2; y <= Bottom; y++) {
s = [100,y];
for (x = 101; x <= 200; x++) {
if ([x,y] != "") {
s += " " + [x,y];
}
}
[100,y] = s;
}
101 列目から 200 列目は同じ内容の繰り返しなので for 文で繰り返すようにし、
if ([x,y] != "") {} で空白セル以外の場合のみ処理をするようにしてみました。
試してみてください。
Re: [900] 指定した範囲の列を条件付きで結合するマクロ
こや [2025/04/09 16:46:53]
お礼が遅くなり申し訳ございません。
求めていた通りの結果にできました。
作っていただいたマクロを見ると「なるほどー！」となるのですが、なかなか自分で辿り着けず…
この度も本当にありがとうございました。