Insira este código VBA em um módulo no Excel (abra o Visual Basic no Excel, clique em Inserir e escolha o módulo e cole o seguinte:
Função Pública CELCOM (rgCELL As Range) As String
On Error GoTo NO_COMMENT
CELCOM="Comment in" & _
rgCELL.Address (False, False) & _
":=" & _
rgCELL.Comment.Text
NO_COMMENT:
Função final
Se B1 tiver um comentário que você precisa copiar para outra célula, na célula em que você deseja copiar o comentário, escreva:
=celcom(B1)
ou
=celcom(sheet1!B1)
A Celcom se tornou uma função que você pode usar.