VBAでの自動化を、思い通りに行いたいです！

Question

自分が取り組んでいる自動化の作業に行き詰っています。私はマクロの知識はありませんが、visual basicによる自動化を試みるため、Ｃopilotさんに生成してもらったコードを利用することにしました。しかしCopilotさんが生成したコードでは実行しても、本当に実行されたのか疑わしくなるくらい、何も変化しないのです。マクロの方はちゃんと動いているそうなので、私はCopilotさんのコード、もっと言えば私の指示内容に何か問題があるのではと思っています。どうすれば私の思うように自動化できるか、良ければご教授いただけないでしょうか。

私がCopilotに記述した内容やCopilotさんのコードは以下の通りです。私が何をしたいかは以下の内容を読めばご理解いただけるかと思います。３０００文字に達する長大な文章ですが、お読みいただければ幸いです。

・Copilotへの命令文

「親愛なるCopilotへ

私が行っているExcelの作業の自動化を助けていただきたい。

#このExcelファイルの特徴

シート数が１００以上に上り、各シートのセルのコメントにはたくさんのテキストが記述されている。これはA国について徹底的に調べ、記事を書こうとしたからである。セルでなく、コメントに書いたのはぱっと見ですぐ確認できるようにしたかった事、メモの量が膨大であったことが理由である。

##悩み

しかしこの作業の過程で私は調べてメモするばかり行い、整理整頓をしていなかった。その結果、どこに何の解説が書かれているのか、非常にわかりづらくなってしまった。そのためメモした各項目を整理整頓したいのである。

###現在の段階

すでに各項目の名前は分類済みだ。これは名前を、セルに書き込んだり、コピーペーストする形で終わらせた。しかしコメントに書き込んだ、肝心な内容はまだ分類できずにいる。そのため私はこれをExcelの自動化を用いて手早く終わらせたいのである。

####用語

キッズ：ある一つの事柄について書かれたテキストの塊。「キッズ：（キッズの名前）解説：（解説内容）と表記されている。キッズはExceのファイルの各シートのコメントに記述されている。一つのコメントに複数のキッズが記述されている事も多い。

セルキッズ　：（キッズの名前）と同じテキストが記載されたセル。なお、書体はキッズとは異なることもある。

セルキッズA　今回私が作ろうとしているもの。セルキッズのコメント欄に、セルキッズのテキストと一致する（キッズの名前）が含まれたキッズが記述されている状態。

#####目標

セルキッズAをこのExcelファイルで作れるだけ作りたい。

######自動化したいプロセスの例

#######前提条件

ここでは私がExcelで何を自動化したいのか、具体的な例を挙げた上で解説する。

なお、ここで例示するExcelはシート数が合計６つあり、

それぞれ便宜上シート１、シート２，シート３、シートx、シートy、シートzと呼称する。

シート１には３つのセルのコメント欄にキッズが含まれている。

キッズが記述されたコメント付きのセルを便宜上セルコメントと呼ぶ。

シート１にはセルコメント１，セルコメント２、セルコメント３が含まれている。

さらにセルコメント１にはキッズが三つ、セルコメント２にはキッズが４つ、セルコメント３にはキッズが１つ含まれている。

セルコメント１に含まれる三つのキッズはそれぞれキッズ１１、キッズ１２、キッズ１３と呼ぶ。

セルコメント２に含まれる四つのキッズはそれぞれキッズ２１、キッズ２２、セルキッズ２３、キッズ２４と呼ぶ。

セルコメント３に含まれるのはキッズ３１、キッズ３２、キッズ３３である。

シート２にはセルコメントが５つ含まれている。

それぞれセルコメント２１、セルコメント２２、セルコメント２３、セルコメント２４、セルコメント２５と呼称する。

セルコメント２１には３つ、セルコメント２２には５つ、セルコメント２３には２つ、セルコメント２４は３つ、セルコメント２５には２つキッズが含まれている。

セルコメント２１に含まれるキッズをキッズ２１１、キッズ２１２、キッズ２１３と呼ぶ。

セルコメント２２に含まれるキッズをキッズ２２１、キッズ２２２、キッズ２２３、キッズ２２４、キッズ２２５と呼ぶ。

セルコメント２３に含まれるキッズをキッズ２３１、キッズ２３２、キッズ２３３、キッズ２３４と呼称する。

セルコメント２４に含まれるキッズをキッズ２４１、キッズ２４２、キッズ２４３と呼称する。

キッズ２５１、キッズ２５２、

シート３においてはセルが一つ含まれている。

セルコメント３に含まれる１つのキッズはセルコメント３１と呼ぶ。

シートｘにおいてはセルキッズが６つ記載されており、それぞれのテキストは

キッズ２１１、キッズ２１３、キッズ２２１、キッズ２３２、キッズ２５１、キッズ２４３

のキッズの名前と同一である。

シートｙにはセルキッズが７つ記載されており、それぞれのテキストは

キッズ１３キッズ２１、キッズ２２２、セルキッズ２３、キッズ３２、キッズ２２５、キッズ２３４のキッズの名前と同じである。

シートｚにはセルキッズが１０つ記載されており、それぞれのテキストはキッズ１１、キッズ１２、キッズ２２３、キッズ２４、キッズ３３キッズ、キッズ２１２、キッズ２３１、キッズ２４１、キッズ２４２、キッズ３１１のキッズの名前と同じである。

########プロセス

1.すべてのシートを参照する

2. 今回はまずシート１に注目し、シート２とシート３への対処は後回しにする。

３．このシート１の中にコメントが含まれているセルコメントを３つ発見する。まずはセルコメント１に注目し、セルコメント２とセルコメント３は後回しにする。

４．セル１に含まれているキッズを３つ発見する。今回はキッズ１１に注目し、キッズ１２とキッズ１３は後回しにする。

５．キッズ１１の（キッズの名前）と同名のセルキッズを検索し、シートｚに「キッズ１１の（キッズの名前）と同名のセルキッズ」があることを確認する。

６．それが完了したらキッズ１１をコピーし、シートｚに移動する。そして

シートｚに移動したらシートｚに「キッズ１１の（キッズの名前）と同名のセルキッズ」のコメントを作成し、そのコメントの入力欄に先ほどコピーしたキッズ１を張り付ける。

7.この作業が完了したら次はシート１に含まれていたセル１のコメント欄に記載されている、キッズ１２とキッズ１３を５.～６.と同様のプロセスでコピーペーストする。

8.さらにキッズ１２とキッズ１３が終了したらセルコメント２，セルコメント３に含まれているキッズを3.～6.と同様のプロセスでコピーペーストする。

9.さらにセル２、セル３のコピーペーストが終了し、シート１に含まれるセルを全て確認し終えたらシート２、シート３のセルコメントとキッズを1.～６.と同様のプロセスでコピーペーストする。

私の依頼は以上だ。君の返信には大いに期待している。

」

・Copilotさんが生成したコード

「

Sub CopyKids()

    Dim wsSource As Worksheet

    Dim wsDest As Worksheet

    Dim comment As Comment

    Dim kids As Variant

    Dim kid As Variant

    Dim found As Range

    Dim ws As Worksheet

    ' すべてのシートをループ

    For Each ws In ThisWorkbook.Sheets

        ' コメントが含まれるシートをソースとして指定

        If ws.Comments.Count > 0 Then

            Set wsSource = ws

            ' すべてのコメントをループ

            For Each comment In wsSource.Comments

                ' コメントのテキストを分割し、キッズを取得

                kids = Split(comment.Text, "キッズ：")

                ' 各キッズをループ

                For i = 1 To UBound(kids)

                    kid = Split(kids(i), "解説：")(0) ' キッズ名を取得

                    kid = Trim(kid) ' キッズ名の前後の空白を除去

                    ' すべてのシートでキッズ名と一致するセルを検索

                    For Each wsDest In ThisWorkbook.Sheets

                        ' 同じシートを比較しないようにする

                        If wsSource.Name <> wsDest.Name Then

                            Set found = wsDest.Cells.Find(What:=kid, LookIn:=xlValues, LookAt:=xlWhole)

                            If Not found Is Nothing Then

                                ' 一致するセルが見つかったらコメントを追加または更新

                                If found.Comment Is Nothing Then

                                    found.AddComment

                                End If

                                found.Comment.Text Text:=found.Comment.Text & vbCrLf & "キッズ：" & kid & " 解説：" & Split(kids(i), "解説：")(1)

                            End If

                        End If

                    Next wsDest

                Next i

            Next comment

        End If

    Next ws

End Sub

」

Answer 1

> 私はマクロの知識はありません

インターネット、書籍などで膨大な情報がありますので、それらを元に勉強して下さい。

基礎を理解していないとCopilotの回答が正しいかどうかなんて検証出来ないと思います。

マクロをステップ実行して、変数の値などを含めてご自身が意図した内容になっているかを検証して下さい。

（多分、あなたがやりたい事の言語化／Copilotの解釈の双方が間違えていると思います。）

VBA(マクロ)の公式サポート場所は、海外コミュニティとなっています。

有識者が集まっている所の方が、適切なアドバイスを受けやすいでしょう。

・Stack Overflow(VBA)

　　[VBA プログラミングに関する質問]

　　Stack Overflow には、説明的なタイトル、完全で簡潔な問題ステートメント、問題を再現する
　　ための十分な詳細の要求などのガイドラインがあることに注意してください。
　　機能要求または過度に広範な質問は、トピック外と見なされます。
　　新しいユーザーの場合は、Stack Overflow ヘルプ センター にアクセスして詳細を確認して下さい。

※ 閲覧者・回答者が多い公式サポートサイトをお勧めします。

　 英語で質問を送信してください。

　 所謂、くれくれ君には対応してくれないと思います。

Answer 2

端的に申し上げれば、Copilot への命令文が冗長かつ抽象的で分かりづらい印象が否めません。

> セルでなく、コメントに書いたのはぱっと見ですぐ確認できるようにしたかった事、> メモの量が膨大であったことが理由である。

また、お使いになっている Excel のバージョンが明記されていないため、
ここでの「コメント」や「メモ」が、新しいバージョンの Excel における
スレッド形式のコメントと従来形式のコメント（新しいバージョンにおける『メモ』）の
どちらを指しているのかが分かりません。

> #このExcelファイルの特徴> シート数が１００以上に上り、各シートのセルのコメントには> たくさんのテキストが記述されている。

・それらのワークシート上の表のレイアウトは全て統一されているのか、
　それとも全く統一されていない（不定形である）のかについて、
　現時点では不明である。

・コメント/メモの挿入対象となったワークシート/セルが、具体的にどのような条件やルールに
　基づいて選ばれたのか（あるいはそんな条件やルールなどなく、ただ思いつくままに
　コメント/メモを挿入しただけなのか）について、現時点では不明瞭である。

> すでに各項目の名前は分類済みだ。> これは名前を、セルに書き込んだり、コピーペーストする形で終わらせた。

・上記の分類わけの結果が、どのワークシートのどのセル範囲において
　どのような形でまとめられたのかが不明瞭である。

> キッズ：ある一つの事柄について書かれたテキストの塊。> 「キッズ：（キッズの名前）解説：（解説内容）と表記されている。> キッズはExceのファイルの各シートのコメントに記述されている。> 一つのコメントに複数のキッズが記述されている事も多い。> シート１には３つのセルのコメント欄にキッズが含まれている。> キッズが記述されたコメント付きのセルを便宜上セルコメントと呼ぶ。> シート１にはセルコメント１，セルコメント２、セルコメント３が含まれている。> さらにセルコメント１にはキッズが三つ、セルコメント２にはキッズが４つ、> セルコメント３にはキッズが１つ含まれている。

そのような独自の用語を定義するよりも、実際に挿入されたコメント/メモの内容と、
最終的にどのような出力結果を求められているのかについて具体的に例示されることをお奨めします。

Answer 3

ヤマアラジン さま

「Copilotさんが生成したコードでは実行しても、何も変化しない」ということですが、実行したら下記のようになりましたが、何か違うのでしょうか？

Excel 2019 で確認しました。

■ 実行前

Sheet1

Sheet2

■ 実行後

Sheet2

※ コメントの横幅が狭かったので広げて全部表示しました。

Copilotさん は質問の説明で「注釈付きのコード」を良く作成できましたね！