指定した文字列をブック内で重複しないワークシート名称へ変換する

この関数について

ExcelVBA（マクロ）でシート名を変更することは簡単です。シートオブジェクトを作成し、Nameプロパティを書き換えます。しかし、手動で実施するシート名の変更と同じく、すでに存在しているシート名を指定するとVBAはエラーを吐きます。この関数は文字列をブック内で重複しないシート名へ変換します。

F0000049_指定した文字列をブック内で重複しないワークシート名称へ変換する

引数名	型	参照	省略	内容
target_wb	Workbook	ByVal	不可	シート名の重複を判定するブックを指定する
sheet_name	String	Byval	不可	変換するシート名

状態	型	内容
正常	String	指定したブック内で重複しないシート名
例外	String	もともと重複していないシート名が指定された場合、そのまま返します
エラー	String	エラー処理は行いません

サンプルコードを実行するとイミディエイトウィンドウに重複しないシート名を出力します。例）Sheet1　⇒　Sheet1 (1)

関数リファレンスでは私が開発の中で必要になったコード部品を汎用化・関数化して公開しています。この記事で紹介した関数以外にもコピペで利用できる関数を多数用意しています。検索窓から必要な機能を検索してみましょう！解説記事も続々公開中。