전체 텍스트 열에 대해 셀 텍스트를 주석으로 변환하는 방법은 무엇입니까?

Question

이것은 개별적으로 수행하지만 주석으로 변환하려면 열의 각 셀이 필요합니다. 이 같은

Sub CelltoComment() 

Range("B2").Value = "" 
    Range("b2").AddComment 
    Range("b2").Comment.Visible = False 
    Range("b2").Comment.Text Text:=Range("c2").Value 

End Sub 

Answer 1

뭔가 : 트릭의 대부분

Option Explicit 

Sub CelltoComment() 

    Dim myCell As Range 

    For Each myCell In Columns(2).SpecialCells(2) 

     With myCell 
      .Value = "" 
      .AddComment 
      .Comment.Visible = False 
      .Comment.Text myCell.Offset(0, 1).Text 
     End With 
    Next myCell 

End Sub 

이 오프셋 (0,1)에 의해 이루어집니다 만 값으로 세포를 걸리는 다음 열 및 Columns(2).SpecialCells(2)을합니다. 수식이있는 셀이 있으면 피할 수 있습니다.