Excelが大好きだ!スマートフォン用の表示で見るExcelが大好きだ!Excel大好き経理マンがExcelの事を書き綴っていきます。ワークシート資料を他社に送る時に気をつけないといけないのがコメントの記載です。自社内ならともかく他社の方に見られるとちょっとまずい内容が書かれていることが多々あります。送付用にブックをコピーしてコメントを削除してから送信したりしていますが、この時期は数が多くてめんどくさくなってきました。そこで・Excelブックから全てのコメントを一時的に退避させる・退避させたコメントを元のセルに復旧させる以上の機能にチャレンジしてみます。今回はまずコメントを退避させるところまで。'###既存コメントの削除。処理としては以下のよう流れ1.コメント退避用の新規ブックを作成2.全シートのコメントを退避用ブックにコピー3.元のブックのコメントを全て削除1に関しては元のブックにコメントがあろうが無かろうが新規ブックを作る流れになっている。このマクロを呼び出す時はコメントを移動させたい時のハズという前提。Goto及びResumeで対策している。Resumeを使用してもそのままでは初回のエラーしか検知しないため、Resume句を使用している。(がいまいちこの辺りの原理がわかっていないので個人的に要勉強)2元のブックでジャンプ機能を利用してコメント付与セルのみ抽出。抽出したコメントを単純にコピーして退避用ブックにペースト。・セルアドレス・コメント内容(復元には使用しないが)の情報を一緒に転記しておく。Resumeで対策をしている。3で元のブックのコメントを全て削除している。念の為コメントアウトしているので、コメントを削除する場合はコメントアウトを削除してください。※使用した結果どうなっても責任は取れませんが以上1~3の処理を全シートに対して行い処理が終了。実行後の転記用Excelはこんな感じです。まとめコメントを別ブックに退避させ元のブックからコメントを削除するところまで無事に作成することが出来ました。作ってみるとコメントを削除する機能を使用しなくても、こうやって一覧で見れるのも中々面白いなと思いました。くどいようですが、内容を実行してコメントが忘却の彼方に消え去っても責任は取れませんのであしからず※しかしこういうのって皆さんどうやって対策してるんだろう。(1)月別アーカイブはてなブログをはじめよう!ExcelLoverさんは、はてなブログを使っています。ブログを報告するスターをつけました引用をストックしましたストック一覧を見る閉じる引用するにはまずログインしてくださいログイン閉じる引用をストックできませんでした。再度お試しください閉じる限定公開記事のため引用できません。