Excel: 特定のセルのコメントにセルの内容を移動する

Question

セル内のテキストコンテンツを他のセル（左側のセル）のコメントに変換する必要があります。この郵便受けコードは正常に動作しますが、コメントがテキスト コンテンツと同じセルに配置されます。

例: 列 B のテキストを列 A のコメントにする必要があります。

Answer 1

データを含むセルを選択（あなたの場合は列Bのセル）

次の短いマクロを実行します。

Sub CommentMaker()
   Dim r As Range, v As String
   For Each r In Selection
      If r.Column <> 1 Then
         If r.Text <> "" Then
         v = r.Text
         With r.Offset(0, -1)
            .ClearComments
            .AddComment
            .Comment.Visible = False
            .Comment.Text Text:=v
         End With
         End If
      End If
   Next r
End Sub

注記： 元のデータは削除されません。