☰

列内の各セルのテキストを別のセルへのコメントとして自動的に挿入する方法

tag-icon • tag-icon microsoft-excel
列内の各セルのテキストを別のセルへのコメントとして自動的に挿入する方法

2 つの列があるとします。これらを列 1 と列 2 と呼びます。両方の列のセルにはテキストが含まれているか、空です。やりたいことは、列 2 のセルのテキストを列 1 の同じ行のセルにコメントとして挿入し、それをすべての行に適用することです。

たとえば、次のようなテーブルがあるとします。

ここに画像の説明を入力してください

セルにはText1コメントが付きますText4:

ここに画像の説明を入力してください

等々：

ここに画像の説明を入力してください

答え1

データがA1を通してB100気が変わってマクロベースのソリューションを受け入れる場合は、次のことを試してください。

Sub CommentMaker()
    Dim A As Range, aa As Range

    Set A = Range("A1:A100")
    A.ClearComments

    For Each aa In A
        aa.AddComment
        aa.Comment.Text Text:=CStr(aa.Offset(0, 1).Value)
    Next aa
End Sub

関連情報