comment_ziro.vba

Sub となりのセルをコメントにし二郎()

    Dim targetCell As Range
    Dim nextCell As Range

    Do Until ActiveCell.Value = ""
        Set targetCell = Range(ActiveCell.Address)
        Set nextCell = targetCell.Offset(0, 1)

        If Not nextCell.Text = "" And targetCell.NoteText = "" Then
            targetCell.AddComment
            targetCell.comment.Visible = False
            targetCell.comment.Text Text:=nextCell.Text
        End If

        Selection.Offset(1, 0).Select
    Loop

End Sub