シート名が重複する場合の処理について

質問

Excel2010を使用しています。
シート＜例：1111＞を他のブックから移動させてきた際、
シート名が重複していると自動的にシート名+（番号）が与えられ、
＜1111 (2)＞と、さらに同じシート名を移動させてくると＜1111 (3)＞と処理されますが、
これを逆の状態にするにはどのようにすればよろしいのでしょうか？

現在の状態　古＜1111＞＜1111 (2)＞＜1111 (3)＞新
理想の状態　古＜1111 (3)＞＜1111 (2)＞＜1111＞新

シート番号を参照して処理を行うので、常に新しく移動させてきたシートが
＜1111＞の状態であって欲しいのです。

もしVBAで対処できるのであれば、初心者なので、優しくお願いします。

どなたかご存知の方、ご教授ください。
よろしくお願いいたします。

回答No.1

STICKY2006 · ベストアンサー

>>これを逆の状態にするにはどのようにすればよろしいのでしょうか？

「逆の状態」になるよう、処理を「作れば」いい。

>>シート＜例：1111＞を他のブックから移動させてきた際、
>>シート名が重複していると自動的にシート名+（番号）が与えられ、
>>＜1111 (2)＞と、さらに同じシート名を移動させてくると＜1111 (3)＞と処理されますが、

シートを他のブックから移動させて来る前に
移動させるシートの名前をチェックして
移動後のブックにも同じシートがあるなら
そのブックのシートを「1111(2)」に変更して
そのあとで移動させたいシートを移動させる

ような処理を作ればよいです。

履歴管理も必要とのことなので
「1111(2)」「1111」がある状態の場合には
古いシートから順番に、さらに大きな番号に付け替えを行うような
処理もあわせて作る必要がありますね。

後は、「1111(2)」「1111(3)」のように、EXCEL側が勝手につけてくれる名前
を基にしてマクロ組むと、後々面倒な事になりかねない気はするので、
「1111[2]」「1111[3]」のような、プログラム側が履歴管理のためにやった事ですよ～
というような事が分かるよう、ちょっと変えておく事をおススメしておきます。

お礼

STICKY2006さん、早速の回答ありがとうございます。
貴重なヒントになりました。
でも、実際どんなプログラムを作ればよいか、、、
ちょっとまだハードルが高いので、引き続き、ご回答お待ちしております。
よろしくお願いいたします。

補足

シートは1111だけではなく、2222・3333・・・とたくさんあります。

回答No.4

CC_T

発想の転換したほうが簡単でしょう。
『処理が終わったら、<1111＆日付>などにシート名を変更』としておけば、常に持ってきた<1111>シートに対して処理が行えます。ついでに言えばバックアップは別のブックにしたほうが作業ファイルの容量が減っていいと思いますけどね。

お礼

バクアップのアドバイス、ありがとうございます。

回答No.3

tsubuyuki

発想の一つのヒントとして、簡単に流れを・・

その前に、人力で、手動でやるとしたらどうしようと思いますか？
「あ、同じ名前のシートがあるわぁ。
　じゃ、もともとのシート名を変更して、
　改めてコピーするかぁ。」
と言う判断と作業をしますよね。

これをマクロにしてやるだけです。

転記先のブックを「あ」、転記元のブックを「Ａ」とします。
シート名変更後の古いシート名を「1111_数字」とします。
（「＿」を使うのは個人的な趣味です。）
転記してきたばかりの最新のシートの名前は数字が常に「1」にするように考えます。
（つまり最新は「１１１１＿１（ただし半角）」となるようにします）

そうすると
・ブック「Ａ」から転記したいシートを選択、シートの名前を変数に代入
　きっと「アクティブなシートを」が一番やりやすいでしょうね。
・ブック「あ」に変数に代入された数字を含む（１１１１を含む）シートが有ったら
　「＿数字」を「＿数字＋１」に変更する（Mid・Lenなどが便利かな）
・「Ａ」の「１１１１」シートを「あ」に転記し、シート名を「１１１１＿１」に変更
ごく簡単にこんな流れでしょうか。

何やら今までの回答の流れから、とりあえずヒントだけ。
少～し、考えてみましょうね＾＾；

お礼

確かに、皆さんヒントくださるんですが、
私の実力ではまだ形になってません。。。初心者なんで＾＾；
Mid・Len　ですね！
考えてみます。
ありがとうございます。

回答No.2

K Kazz（@JazzCorp）

新しいブックに順序を考えて移動させる。
これをVBAでナントカする、、、

お礼

なるほどですね。
発想は湧いてきました！

VBAでナントカする、、、が厳しいです＞＜・